Theswamp.org 有个函数 - (defun MinDxfDef ( ename / result temp )
- ;; will create crap if the current or parent
- ;; layer of the candidate entity is locked
- (foreach pair (setq result (entget ename))
- (if (entmakeX (setq temp (vl-remove pair result)))
- (progn (entdel (entlast))(setq result temp))
- result
- )
- )
- )
|