[求助]如可选择图块里的物件

caravaggio

请问高手门:


LISP里有没有指令可以选择图块里的物件, 不是一个一个的选(nentsel), 而是用"CROSS"的方法选呢.


请指教. 谢谢!

Ea

没有

龙龙仔

没有"CROSS"的方法,但可连续一个一个同时选! ;;---------------------------
(defun NENTSGET (/ SS LIS A ENTS)
(setvar "pickadd" 1)
(prompt "\nSelect objects individually...")
(setq SS (ssget ":N:D"))
(setq LIS (ssnamex SS)
LIS2 '()
)
(setq IDX 0)
(repeat (length LIS)
(setq ELST (nth IDX LIS))
(if (= (type (setq NAM (cadr ELST))) 'ENAME)
(setq LIS2 (append LIS2 (list NAM)))
)
(setq IDX (1+ IDX))
)
(if (> (length LIS2) 1)
(REM-DUP LIS2)
LIS2
)
) ;;;removes duplicates from list
;;;reini urban
(defun REM-DUP (LST / ELE NEW)
(setq NEW NIL)
(foreach ELE LST
(if (not (member ELE NEW))
(setq NEW (cons ELE NEW))
)
)
(reverse NEW)
)
;;--------------------------------

无痕

大开眼界！支持龙龙仔！

caravaggio

谢谢个位的意见, 因为新版本的ACAD的"trim"及"extend"指令也有这种在图块里面选用"cross"择物件的方法, 我以为有新加的命令.....哪我们没办法用咯!