这样行不行:
(defun c:TEST() (setq s (ssget) m -1) (repeat (sslength s) (setq s1 (entget (ssname s (setq m (+ m 1)))) s2 (cdr (assoc 0 s1)) d (assoc 10 s1)) (cond ((= s2 "POINT")
(if (/= (last d) 0)(progn(print "点坐标=")(princ (cdr d))(princ))) ((= s2 "INSERT")
(if (/= (last d) 0)(progn(print "插入点坐标=")(princ (cdr d))(princ))) ) ) (princ) ) |