从Word和exp打开AutoCAD

VBAStories · 发表于 2022-7-6 21:58:20

我正在开发Word模板，将设计计算整合到一个文档中。我们使用的设计软件创建dxf文件。我正在尝试打开由用户决定的特定图形，并将其转换为wmf，以便可以将其导入word模板。以下代码是我用于导出的代码。我添加了蓝色的评论来解释我的担忧。请注意，以下代码仅用于导出图形，并从word运行。

Sub Convert_3DBuild（）
Dim iRow为整数
将AcadApp作为对象
Dim SS’As AcadSelectionSet Word不允许我声明这个变量，这就是为什么它被注释掉的原因。

出错时继续下一步
设置AcadApp=GetObject（，“AutoCAD.Application”）
如果出错。数字0那么
设置AcadApp=CreateObject（“AutoCAD.Application”）
如果结束
阿卡达普。可见=真

阿卡达普。文件。打开（“C:\drawing.dxf”）

设置SS=ACADAP。ActiveDocument。选择集。添加（“SS”）
Set SS=Nothing的AutoCAD帮助说明，如果选择集为Nothing，则将选择整个图形，但此处的情况似乎并非如此。

“SS。阿卡达普。全选
阿卡达普。ActiveDocument。导出“C:\drawing”、“WMF”、SS
'由于AutoCAD无法将SS识别为选择集，因此AutoCAD会等待用户选择零件，然后再继续。
'选择需要自动进行

阿卡达普。ActiveDocument。关闭savechanges:=False
'如果是AcadApp。文件。然后计数=1
“阿卡达普。ActiveDocument。sendcommand“退出”&vbCr
'是否有一种方法可以在不使用SendCommand的情况下退出AutoCAD，该命令再次要求用户交互以选择不将更改保存到空白图形？

'如果结束
设置AcadApp=Nothing
末端接头
我愿意用其他方法来完成同样的任务。

提前感谢您的帮助。

[编程交流] 从Word和exp打开AutoCAD

发表回复

精选推荐