谢谢!就用了这么关键一段(红色): (setq s0 (ssadd)) (command "insert" "gc325.dwg" p0 0.5 0.5 0) (setq sss (entlast)) (ssadd sss s0) (command "array" "L" "" "r" 1 10 10 10) (while (setq sss (entnext sss)) (if (not (member (cdr (assoc 0 (entget sss))) '("insert") ) ) (ssadd sss s0) ) ) |