jayaram 发表于 2022-7-6 11:39:56

使用autocad的visual basic

我需要你的帮助。。。我想通过编程绘制一个正方形或矩形,也就是说,如果我用visual basic编写代码,那么我必须在auto cad的俯视图中以正方形的形式获得输出。你能告诉我在auto cad中获得正方形作为输出的代码是什么吗?为了使用api在auto cad中获得输出,必须遵循哪些步骤。你能告诉我一步一步的过程吗???

lpseifert 发表于 2022-7-6 11:49:35

看看这里,有VB/VBA教程
http://www.afralisp.net/

Lee Mac 发表于 2022-7-6 11:57:59

如果您刚刚开始为AutoCAD编程,我建议使用LISP,因为VBA正在慢慢地从AutoCAD中淘汰。

jayaram 发表于 2022-7-6 11:59:18

我想要一个简单的代码来绘制一个正方形和一个矩形只用vb。我不能用lisp。。。谁能给我一个代码来画一个简单的正方形和矩形,这样我就可以在auto cad中得到输出。。。还有台阶???

SEANT 发表于 2022-7-6 12:04:38

听起来你需要一条轻量级多段线。如果是这种情况,请在VBA帮助参考中查找AddLightWeightPolyline方法。我修改了参考文献中给出的示例,以生成一个10 x 10的正方形。
 
Sub Example_AddLightWeightPolyline()
   ' This example creates a lightweight polyline in model space.
   
   Dim plineObj As AcadLWPolyline
   Dim points(0 To 9) As Double
   
   ' Define the 2D polyline points
   points(0) = 0: points(1) = 0
   points(2) = 10: points(3) = 0
   points(4) = 10: points(5) = 10
   points(6) = 0: points(7) = 10
   points( = 0: points(9) = 0
      
   ' Create a lightweight Polyline object in model space
   Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
   plineObj.Closed = True
   ZoomAll
   
End Sub

jayaram 发表于 2022-7-6 12:10:24

我需要的是,他们将在excel中给出正方形的值,它必须从中读取值,并且必须绘制正方形(输出将在auto cad中),但代码将在visual basic中。。。

SEANT 发表于 2022-7-6 12:18:02

我理解最后期限紧迫带来的压力。但是,如果你“急需帮助…”,那么你必须花一些时间提出请求,以允许我们提供帮助。解释所有参数,发布示例文件等。
 
这里有几个链接演示了VBA AutoCAD/Excel挂钩。
 
http://www.cadtutor.net/forum/showthread.php?t=36125
http://www.cadtutor.net/forum/showthread.php?t=15738

jayaram 发表于 2022-7-6 12:25:26

谢谢你,先生,我了解excel表格。。。但是我现在可以用这样的方式画一个正方形吗?我可以用auocad获得输出,并且代码必须用visual basic编写。。。我需要这样一个简单的正方形和矩形的代码。。。

rkmcswain 发表于 2022-7-6 12:32:11

“jayaram”-这不是一个免费的编程代码列表网站。这里有人可以帮助您完成自己的编程工作,但您是否会找到人接受您的特定请求并为您编写完整的程序,这一点值得怀疑。我们都是在自己的时间来到这里的用户,没有任何补偿。

jayaram 发表于 2022-7-6 12:34:55

好的对不起。。。
页: [1] 2
查看完整版本: 使用autocad的visual basic