从ACAD中绘制矩形

fixo · 发表于 2022-7-6 22:55:15

在快速浏览时，您必须使用以下内容，而不是这一行：


acDoc.SaveAs ThisDrawing.GetVariable("dwgprefix") & CStr(num) & 
dxfname, ac2007_dxf

以下代码块：

copy


Dim myFolder as string   'or save folder as Const in the start of Module
myFolder="C:\Users\User\DxfFolder\
acDoc.SaveAs MyFolder & CStr(num) & 
dxfname, ac2007_dxf

正如我从你的截图上看到的那样，你可以很容易地计算出来
矩形的所有顶点，并将其全部传递到函数中，
对不起，我没有时间做这项工作
自己做吧
干杯

snglvl · 发表于 2022-7-6 22:59:59

哦，谢谢你，先生。你已经给了我所需要的。我真的很感谢你及时的帮助。
我自己已经弄明白了。

antepli · 发表于 2022-7-6 23:05:20

不要用这个口齿不清我的auutocad plase hep me

MSasu · 发表于 2022-7-6 23:10:10

Antepli，LT版本（根据您的配置文件）不支持AutoLISP，因此很遗憾，您无法使用该例程。

antepli · 发表于 2022-7-6 23:13:41

抱歉，Visual Basic代码问题此代码

MSasu · 发表于 2022-7-6 23:16:27

恐怕Visual Basic代码和LT的答案是一样的。

[编程交流] 从ACAD中绘制矩形

发表回复

精选推荐