Question

如何用autocad中的VBA语言别写钣金展开小工具？哪位高手给我个代码啊

我就是想拿VBA编写一个最简单的钣金展开工具，这个工具可以直接输入每个弯长，板宽和各个折弯角度，在CAD上画出展开图，这个钣金件展开就是一个2mm厚的平板，折弯状态下分5个弯，折弯角度均为90°，请问该如何编写（我是卡在VBA中的text控件数组上，VBA中没有控件数组，真的很麻烦啊）

Answer 1

国内此方面的CAD二次开发的钣金展开程序
你可看看
钢构CAD3.22

追问

钢构CAD中的钣金展开不是我要的，应该说我们这方面的钣金展开比钢构CAD中的展开简单

Answer 2

这个真不会

Answer 3

你是干什么的，要展开啥？

追问

如图中所示，但是折弯也可能不止5个，角度也不一定是90°，这是最简单的

追答

你想用text干什么，输入数据用ThisDrawing.Utility.GetReal更像CAD的风格。

追问

text是用来输入数据的，text用来输入每个折弯的长度，折弯角度还有板厚，所以很需要text，除非还有别的办法输入这些数据

追答

当然，输入数据用ThisDrawing.Utility.GetReal语句多好啊！后面跟上提示：“请输入xxxxx，就跟CAD中原有风格一样，CAD输入数据不都是从命令栏中输入吗？
也且用TEXT控件，你输入知道输入多少个数据，数据个数需确定，而如果再配合循环语句，你可以输入任意个数据。当然，你想用TEXT控件也可以。或者别的办法也行，反正输入数据或直接从其它应用程序中导入数据也可。

追问

我是要界面的，你说的输入行，但是不太直观啊

追答

添加用户窗口啊，在窗口中添加文本框，将文体框内数据赋给变量即可。程序运行后弹出窗口，在文本框内输入数据，程序继续。