・ 線分を作図

始点と終点を指示して線分を作図するサンプルです

Sub draw_line()
Dim pts As Variant
Dim ptx As Variant
Dim pte As Variant
Dim obj_line As AcadLine

pts = ThisDrawing.Utility.GetPoint(, "始点を指示")
ptx = ThisDrawing.Utility.TranslateCoordinates(pts, acWorld, acUCS, False)
pte = ThisDrawing.Utility.GetPoint(ptx, "終点を指示")
Set obj_line = ThisDrawing.ModelSpace.AddLine(pts, pte)
End Sub