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

xsquan · 发表于 2004-6-21 15:57:00

我是这样做的
dim line1 as acadline
然后由cad窗口扑捉2个点p1，p2，为 varia类型
下面这样赋值不对，应该怎么样做
line1.startpoint=p1
line1.endpoint=p2

今晚打老虎 · 发表于 2004-6-21 16:11:00

set line1=thisdrawing.addline(p1,p2)
这才是创建线对象实体的方法

xsquan · 发表于 2004-6-21 17:30:00

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

mccad · 发表于 2004-6-21 20:59:00

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