标直径时右键取消的问题

669423907

请教一个关于标直径的问题：

(defun c:13()
(command "dimdiameter" )
)


(command "dimdiameter" )
当选中一个圆后，无论是点左键或右键，都会标注该圆的直径


怎样通过程序，当选中一个圆后，点左键就标注该圆的直径，点右键就取消？

1291500406

试过了while ， 不行，

669423907

1291500406 发表于 2019-4-19 16:53
试过了while ， 不行，

目前只能这样，不知道有没有更好的办法
(defun Ss是否删除标注(/ i l)
(setq i (cadr(grread 3)) l (cadr(grread 3))) ;光标位置
(while (and (/= i nil) (<(distance i l)(/(getvar"viewsize")9999)) )
(progn
(setq l (cadr(grread 3))) ;循环比较
(if (member (car (grread t 15 0)) '(11 25) ) (command "erase" (entlast) "" (setq i nil l nil)) ) ;右键删除
) ) (setq i nil l nil) )

(defun c:13()
(command "dimdiameter" "\\" "\\")
(Ss是否删除标注)
)

669423907

顶起，各位大师有什么妙招么？