如何快速获取任意cad文件中的所有对象类型

dianbotang

如何用lisp程序快速获取任意一个cad文件中包含的所有对象类型？比如line,circle,text,mtext,hatch,polyline,table,DIMENSION,LWPOLYLINE等。

一种思路是用ssget去遍历所有的对象类型。应该还有更好的思路。

liuhe

2. (setq     *ACAD*  (vlax-get-acad-object)
   
3.       *DOC*   (vla-get-ActiveDocument *ACAD*))
   
4. (vlax-for obj *DOC*
   
5.   (princ (vla-get-objectname obj)))
   
6.           

(setq     *ACAD*  (vlax-get-acad-object)<br />       *DOC*   (vla-get-ActiveDocument *ACAD*))<br /> (vlax-for obj *DOC*<br />   (princ (vla-get-objectname obj)))<br />           

自贡黄明儒

http://bbs.mjtd.com/forum.php?mo ... 750&highlight=ssgetssget用法大全

fangmin723

直接用类型全选，选择集有图元说明文件中有这种类型的图元
ssget x 几次

1. (foreach tpy (list "LINE" "ARC" "CIRCLE")  
   
2.   (if (> (sslength (ssget "X" (list (cons 0 tpy)))) 0) (setq typlst (cons tpy typlst)))
   
3. )

(foreach tpy (list "LINE" "ARC" "CIRCLE")  <br />   (if (> (sslength (ssget "X" (list (cons 0 tpy)))) 0) (setq typlst (cons tpy typlst)))<br /> )

你有种再说一遍

恭喜你找到了:索引组织表

如果是lisp建议你参考koz答案.

如果是c#,那么它可以并行构造索引.
原理就是新建一个ConcurrentDictionary<string,objectid>
然后通过并行遍历句柄提取,这样画图期间不断通过事件加入.
这样选择时候就是秒速的

kozmosovia

用ssget一方面慢，另外也会遗漏只存在块里面而不在模型的实体类型。直接vlax-for遍历modelSpace.PaperSpace+Blocks就行了。如果图形大，可以先一次性都copyobjects到DBX再在DBX中遍历。