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)))