Excel 求助 AutoCADVBA 怎么画多段线
展开全部
引用autocad objectdbx common 17.0type和autocad2007 type library
Dim acadApp As AcadApplication '定义一个CAD进程
Dim acaddoc As AcadDocument '定义一个CAD文件
On Error Resume Next '如果出错，执行下一行
Set acadApp = CreateObject("AutoCAD.Application") '调用CAD程序
Set acaddoc = acadApp.ActiveDocument '取得当前文件
acadApp.Visible = True '设置可见性！
Dim acadApp As AcadApplication '定义一个CAD进程
Dim acaddoc As AcadDocument '定义一个CAD文件
On Error Resume Next '如果出错，执行下一行
Set acadApp = CreateObject("AutoCAD.Application") '调用CAD程序
Set acaddoc = acadApp.ActiveDocument '取得当前文件
acadApp.Visible = True '设置可见性！
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
