669423907 发表于 2019-4-19 16:02:11

标直径时右键取消的问题

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

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


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


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


1291500406 发表于 2019-4-19 16:53:13

本帖最后由 1291500406 于 2019-4-19 17:11 编辑

试过了while ， 不行，

669423907 发表于 2019-4-19 17:49:12

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 发表于 2019-4-29 10:10:05

顶起，各位大师有什么妙招么？
页: [1]
查看完整版本: 标直径时右键取消的问题