[求助]怎样在VBA中实现CAD中的boundary命令。

leefy

各位大哥：
VBA中向CAD发送命令的关键词是sendcommand，可是小弟觉得很不好用呀，小弟想问在VBA中用什么样的办法可以实现boundary的效果？或者是在CAD中在用什么关键词向CAD发送boundary这个命令来实现效果？谢谢各位了。

wyj7485

Dim Pt As Variant
Pt = ThisDrawing.Utility.GetPoint(, "指定内部点: ")
ThisDrawing.SendCommand "_-Boundary" & vbCr & Pt(0) & "," & Pt(1) & vbCr & vbCr '获得边界,边界为多线段 Dim lwpLineObj As AcadLWPolyline
Set lwpLineObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)

leefy

谢谢楼上这位大哥了。