Subkkk()DimacadAppAsAcadApplicationDimacaddocsAsAcadDocumentsDimacaddocAsAcadDocumentOnErrorResumeNextSetacadApp=CreateObject("AutoCAD.Application")Setacaddoc=acadApp.ActiveDocumentacadApp.Visible=TrueDimmylineAsAcadLWPolylineDimmylist(5)AsDoublemylist(0)=Cells(1,1)mylist(1)=Cells(1,2)mylist(2)=Cells(2,1)mylist(3)=Cells(2,2)mylist(4)=Cells(3,1)mylist(5)=Cells(3,2)Setmyline=acaddoc.ModelSpace.AddLightWeightPolyline(mylist)EndSub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024