[VBA]怎么样给直线赋值？

xsquan

我是这样做的


dim line1 as acadline


然后由cad窗口扑捉2个点p1，p2，为 varia类型


下面这样赋值不对，应该怎么样做


line1.startpoint=p1


line1.endpoint=p2

今晚打老虎

set line1=thisdrawing.addline(p1,p2)


这才是创建线对象实体的方法

xsquan

但我并不是要画出直线来，我只是扑捉了2个点，使得经过2点连成直线的实体被选择。请问各位我上述的为什么实现不了

mccad

需要使用选择集中的SelectByPolygon方法来选择对象，详细请参照帮助文件：[WEB]http://www.mjtd.com/object/acad2004/idh_selectbypolygon.htm[/WEB]