grread画个箭头，重复上次命令鼠标出现黄色感叹号

罗尼

• ;grread画个箭头，重复上次命令鼠标出现黄色感叹号，哪位大神能帮忙看一下是什么原因造成，万分感谢！
• (defun c:tt(/ pt1 pt2 leader elist loop gr code )
•   (setq pt1 (getpoint))
•   (setq pt2 (polar pt1 0 0.001))
•   (entmakeX (list '(0 . "LEADER") '(100 . "AcDbEntity") '(100 . "AcDbLeader") '(8 . "7标注层") (cons 10 pt2) (cons 10 pt1)))
•   (setq leader(entlast))
•   (if leader
•     (progn
•       (setq elist(entget leader))
•       (setq loop t)
•       (while loop
•         (setq gr(grread t 15 0))
•         (setq code(car gr))
•         (setq pt2(cadr gr))
•         (cond
•           ((= code 5) (entmod(subst(cons 10 pt2)(assoc 10 elist)elist)))
•           ((= code 3)(setq loop nil) )
•           ((= code 11)(setq loop nil) )
•           ((= code 25)(setq loop nil) )
•           )
•         )
•       )
•     )
•   )
  

罗尼

问题已解决！

时光飞逝

学习一下楼主的源码