[VBA程序]：vba执行sendcommand后如何要求必须在图上画线而不是继续执行代码

ourtibet

目的为：在图上画polyline，在程序中返回polyline对象


代码为：

thisdrawing.sendcommand "pline"

Dim ssetObj As AcadSelectionSet
Dim i As Integer
   
For i = 0 To ThisDrawing.SelectionSets.Count - 1
    ThisDrawing.SelectionSets(0).Delete
Next i
   
Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
ssetObj.Select acSelectionSetLast
Dim entity As AcadEntity
Set entity = ssetObj.Item(0)
If entity.ObjectName = "AcDbPolyLine" Then
    Set Line = entity
End If


执行sendcommand后直接执行下面的代码了，如何要求必须在图上画线呢？还有更简单的办法吗？

雪山飞狐(lzh)

vba里尽量不要使用SendCommand方法，容易造成程序混乱，用AddLightweightPolyline方法创建PL线