[讨论]选择块

muwind

初学LISP,遇到个小问题:

比如一个图里有个块的名字是TK,

现在我需要用LISP选择这个块,读取他的信息,包括插入点,X,Y方向比例等,这个怎么实现.现在每次都是手动选择该块,然后读取信息.

caoyin

(defun c:test (/ SS N EDAT LST)
(if (setq SS (ssget '((0 . "insert") (2 . "TK")))) ;;得到选择集
(repeat (setq N (sslength SS))
  (setq EDAT (entget (ssname SS (setq N (1- N))))) ;;得到每个图元的数据
  (setq EDAT (list (assoc 10 EDAT)  ;;得到插入点
                   (assoc 41 EDAT)  ;;X 轴比例
                   (assoc 42 EDAT)  ;;Y 轴比例
                   (assoc 43 EDAT)  ;;Z 轴比例
             )
        LST  (cons (mapcar 'cdr EDAT) LST)
  )
)
)
)

muwind

谢谢楼上的指点,就(if (setq SS (ssget '((0 . "insert") (2 . "TK")))) ;;这句跟我写的不一样,可能是我说的不明白.能不能实现在LISP里就把在图里插入的该块(TK)作为一个选择集,图里就使用了一次这个块,现在仍需要我手动去选择一下.我再研究下下,还是谢谢你了

caoyin

(setq SS (ssget "_X" '((0 . "insert") (2 . "TK"))))

muwind

谢谢，指点，非常非常的感谢