tanjurun 发表于 2016-6-1 19:24:50

如何用lisp提取块内的所有元素

如题，请高手指教

1993063 发表于 2016-6-2 00:25:14

;;也是本网站淘的
;;; No.1-2获取图块内的所有非图块对象(含嵌套块中的)名称 函数
;;;***********************************************************
(defun getblkallent ( BLK / xblkname xblkdef entname1 enttype entlist)
(setq xblkname (cdr (assoc 2 (entget BLK))))
(setq xblkdef (tblobjname "Block" xblkname))
(while (setq entname1 (entnext xblkdef))
    (setq enttype (cdr (assoc 0 (entget entname1))))
    (if (= enttype "INSERT")
      (setq entlist (append (getblkallent entname1) entlist))
      (setq entlist (cons entname1 entlist))
    )
    (setq xblkdef entname1)
)
entlist
)

Nico 发表于 2016-10-1 13:21:02

就是这个，有空我试一下
页: [1]
查看完整版本: 如何用lisp提取块内的所有元素