HBTS_CLJ 发表于 2007-10-8 08:19:00

如何遍历块内实体?

请教各路高手,如何用Lisp或vba遍历普通块中的实体并获得实体数据?开发遇到障碍!多谢指教!

ZZXXQQ 发表于 2007-10-15 13:30:00

<p>用LISP简单，下面是将所有实体数据显示出来。不过将贴子发到这里看到的人很少，应该发到专业版块。</p><p>(DEFUN C:TT ()<br/>&nbsp;(IF (SETQ SS (SSGET "X")) (PROGN<br/>&nbsp; (SETQ I -1)<br/>&nbsp; (REPEAT (SSLENGTH SS)<br/>&nbsp;&nbsp; (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I)))))<br/>&nbsp;&nbsp; (PRIN1 ENT)<br/>&nbsp; )<br/>&nbsp;))<br/>&nbsp;(PRINC)<br/>)</p>

jxphklibin 发表于 2009-1-8 19:29:00

本帖最后由 作者 于 2009-1-8 19:31:24 编辑

2楼并没有理解1楼的意思。1楼的r意思是，一个图块中所有图元实体的遍历，而2楼所说的意思却是，选择集内所有图元的遍历。这是风牛马不相干的两码事情。
页: [1]
查看完整版本: 如何遍历块内实体?