VBA-在ru后绘制多段线

magnus2005 · 发表于 2022-7-6 21:58:08

你好
我想知道是否可以执行宏：
1.启动模块
2.在auto cad中绘制多段线（与普通一样，使用pline comannd在cad中绘制多边形）
3、端画多边形
4、取新poly坐标，换颜色。

这是一个示例算法，但它向您展示了我想要如何创建多段线。我不想使用变量的坐标来放置多边形，我通常希望绘制多边形使用函数，即orto或sample来查看形状。我的计划将是绘制多边形和多边形后，将准备绘制。有可能按我想的方式做吗？

SEANT · 发表于 2022-7-6 22:14:52

通过不断添加行，并以前一行的端点为基础使用GetPoint，可以模拟您描述的实时动态反馈。最后，可以删除这些线并创建适当的多段线。

一个主要缺点是，如果您想考虑圆弧，我不认为可以通过VBA重新创建多段线命令的圆弧/凸起创建序列。

BIGAL · 发表于 2022-7-6 22:19:03

如果您有一个点列表（（12 34）（56 78）。。。。这将绘制一条线

copy

; list is coordsxy
(command "_PLINE")
(while (= (getvar "cmdactive") 1 ) 
(repeat (length co-ordsxy)
(command  (nth (setq x (+ x 1)) co-ordsxy))
)

magnus2005 · 发表于 2022-7-6 22:28:39

如果我有点列表，我知道如何创建多段线。我想运行命令pline，这样用户就可以绘制多边形了。对我来说，仅仅抓住要点是不够的，我需要看看我在画什么。获取点是无用的，因为你们可以选择关于不同坐标的点，即我想画垂直线，但第二个点的选择和第一个点的x不同。

SEANT · 发表于 2022-7-6 22:38:50

我的VBA生锈了，所以我不会走得太远（只会画线）。这里有一些代码说明了我在上面提出的建议。

copy

Sub Example_AddLine()
Dim strPrompt As String
Dim dblPt() As Double
Dim dblNextPt() As Double
Dim blnTrue As Boolean
Dim lineObj As AcadLine
strPrompt = "Get First Point: "
blnTrue = True
  With ThisDrawing.Utility
     On Error Resume Next
     dblPt = .GetPoint(, strPrompt)
     If Err.Number <> 0 Then Exit Sub
     
   Do While blnTrue = True
       strPrompt = "Get Next Point: "
       dblNextPt = .GetPoint(dblPt, strPrompt)
       If Err.Number <> 0 Then blnTrue = False
       Set lineObj = ThisDrawing.ModelSpace.AddLine(dblPt, dblNextPt)
       dblPt = dblNextPt
   Loop
       
   On Error GoTo 0
   End With
End Sub

GetPoint方法将在输入期间尊重正交设置，但如果使用对象捕捉，则不会。如果要解决这种组合，您必须编写自己的逻辑。

请参阅正在运行的代码的屏幕广播。
https://screencast.autodesk.com/main/details/46bb9fdd-e8b6-49c7-91de-f7ea2f113ef7