0 Members and 1 Guest are viewing this topic.
(defun c:test() (setq ENA (CAR (ENTSEL "\n SELECT OBJECT A:"))) (setq ENB (CAR (ENTSEL "\n SELECT OBJECT B:"))) (vl-cmdf ".JOIN" ENA ENB "") (not(and (entget ena) (entget enb))))
(NOT (AND (ENTGET ena) (ENTGET enb)))
yep, was just posting that CAB
(not(vl-every 'entget (list ena enb)))
(not(vl-every 'entget (list enA enB enC)))
(not(vl-every 'entget (ss->List ss)))
How do I test for more than 2 Lines selected ?
(defun ss->List (ss) (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))