vba编程中的问题-->mccad转移

jhl

版主,用selectonscreen从图形中获得一个选择集后,我相对选择集中的entities分别根据其不同的objectname做不同的处理,程序如下:
1 foreach entry in selectobj
2    if entry.objectname="acdbline" then  
3         points(i)=entry.startpoint
4         points(i+1)=entry.endpoint
5    else if entry.objectname="acdbpolyline"
6         ......
7 next
由于刚学,格式可能有些不对,意思我想您能看懂,运行到第3句,提示错误,那如何能让程序承认entry就是一个"acdbline"对象并使用它的属性呢?

efan2000

Line对象的StartPoint和EndPoint对Variant类型，所以你在声时Points数组时，就应该是Variant类型。

河伯

1."acdbline" 应为"AcDbLine"，注意ObjectName的大小写。

2.points应该定义为Variant数组，注意VBA和Vlisp数据类型的不同。