如何在EXCEL中用VBA取CAD中多段线的坐标
展开全部
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询