使用autocad的visual basic

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

我需要你的帮助。。。我想通过编程绘制一个正方形或矩形，也就是说，如果我用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的正方形。

copy

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