社区 › VB › 求助：怎么判断图中acad对象的类型

shirazbj 发表于 2006-3-5 08:50:00

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

假设图中有line对象，我用：
Dim newObjs As AcadLine
   
Set newObjs = ThisDrawing.ModelSpace.Item(i)
返回该line对象，然后可以取得该line的一些参数。
但是如果图中还有spline对象，我怎样知道Item返回的是line还是spline呢？

songzhi 发表于 2006-3-5 09:33:00

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

songzhi 发表于 2006-3-5 09:52:00

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

shirazbj 发表于 2006-3-5 10:21:00

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

查看完整版本: 求助：怎么判断图中acad对象的类型