如何遍历块内实体?

HBTS_CLJ

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

ZZXXQQ

用LISP简单，下面是将所有实体数据显示出来。不过将贴子发到这里看到的人很少，应该发到专业版块。

(DEFUN C:TT ()
 (IF (SETQ SS (SSGET "X")) (PROGN
  (SETQ I -1)
  (REPEAT (SSLENGTH SS)
   (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I)))))
   (PRIN1 ENT)
  )
 ))
 (PRINC)
)

jxphklibin

2楼并没有理解1楼的意思。1楼的r意思是，一个图块中所有图元实体的遍历，而2楼所说的意思却是，选择集内所有图元的遍历。这是风牛马不相干的两码事情。