请大虾帮忙解释一句代码

jiandan321

ThisDrawing.SendCommand "_-Boundary" & vbCr & InsP(0) & "," & InsP(1) & vbCr & vbCr

boundary具体用法！网上找了很久，没有找到

mccad

有点晕，boundary是AutoCAD的命令，你在命令行中试试。

青青20

' 单击一点生成闭合多段线
Public Sub ClickAddPolyline()
    ' 获得当前的实体数量
    Dim n As Long
    n = ThisDrawing.ModelSpace.Count
   
    ' 提示用户拾取一点
    Dim pt As Variant
    pt = ThisDrawing.Utility.GetPoint(, "指定内部点: ")
   
    ' 创建多段线
    ThisDrawing.SendCommand "-Boundary" & vbCr & pt(0) & "," & pt(1) & vbCr & vbCr
   
    ' 将生成的多段线颜色变为红色
    Dim objPoly As AcadLWPolyline
    If ThisDrawing.ModelSpace.Count > n Then
        Set objPoly = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
        objPoly.color = acRed
    Else
        MsgBox "未发现有效的边界。"
    End If
End Sub