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

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


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


dxfname, ac2007_dxf

以下代码块：


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的答案是一样的。
页: 1 [2]
查看完整版本: 从ACAD中绘制矩形