求助：怎么判断图中acad对象的类型

shirazbj

假设图中有line对象，我用：

Dim newObjs As AcadLine

    
Set newObjs = ThisDrawing.ModelSpace.Item(i)

返回该line对象，然后可以取得该line的一些参数。

但是如果图中还有spline对象，我怎样知道Item返回的是line还是spline呢？

songzhi

if ucase$(ThisDrawing.ModelSpace.Item(i).ObjectName)="ACDBLINE" then

    set newObjs=ThisDrawing.ModelSpace.Item(i)

............

end if

songzhi

其实用选择集更好，将所有的直线加入一个选择集，然后处理

shirazbj

谢谢。

对复杂的图形手选太麻烦了。还是程序选好。