Question

请问如何用CAD VBA先画条直线，然后把这条直线放到已创建的组里去。

Answer 1

利用组编辑（groupedit)--选择需要添加直线的组--接受---添加对象---拾取刚画好的直线。这条直线就放到已创建的组里了。

追问

这个我知道，我想用VBA程序实现这过程

追答

那就得写一VBA程序，要是不会写就在网上找找是不是有这种程序。

Answer 2

Option Explicit

Sub Test()
    Dim Line As AutoCAD.AcadLine
    Set Line = Me.CreateLine(0, 0, 0, 300, 400, 500)
    Debug.Print "长度：" & Line.Length
End Sub

Public Function CreateLine(xStartPoint As Double, yStartPoint As Double, zStartPoint As Double, _
    xEndPoint As Double, yEndPoint As Double, zEndPoint As Double) As AutoCAD.AcadLine
    Dim Line As AutoCAD.AcadLine, sP(0 To 2) As Double, eP(0 To 2) As Double
    sP(0) = xStartPoint: sP(1) = yStartPoint: sP(2) = zStartPoint
    eP(0) = xEndPoint: eP(1) = yEndPoint: eP(2) = zEndPoint
    Set CreateLine = Application.ActiveDocument.ModelSpace.AddLine(sP, eP)
End Function