罗尼 发表于 2022-6-8 08:08:44

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) )
[*]          )
[*]      )
[*]      )
[*]    )
[*])

罗尼 发表于 2022-6-9 09:12:02

问题已解决！

时光飞逝 发表于 2022-6-11 18:20:30

学习一下楼主的源码
页: [1]
查看完整版本: grread画个箭头，重复上次命令鼠标出现黄色感叹号