leefy 发表于 2005-6-13 10:57:00

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

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

wyj7485 发表于 2005-6-14 09:31:00

Dim        Pt        As        Variant<BR>Pt        =        ThisDrawing.Utility.GetPoint(,        "指定内部点:        ")<BR>ThisDrawing.SendCommand        "_-Boundary"        &amp;        vbCr        &amp;        Pt(0)        &amp;        ","        &amp;        Pt(1)        &amp;        vbCr        &amp;        vbCr


'获得边界,边界为多线段


        Dim        lwpLineObj        As        AcadLWPolyline<BR>        Set        lwpLineObj        =        ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count        -        1)<BR><BR>

leefy 发表于 2005-6-14 14:18:00

谢谢楼上这位大哥了。
页: [1]
查看完整版本: [求助]怎样在VBA中实现CAD中的boundary命令。