如何写标注关联开关？

zilong136

有时候标注对象要关联，有时候要解除关联，怎么用lisp写出来？

qazxswk

(defun c:11()
(setvar "dimassoc" (if (= (getvar "dimassoc") 2) 1 2))
(if (= (getvar "dimassoc") 2)(princ  "标注关联已开启。")(princ  "标注关联已关闭。"))
(princ))

qazxswk

这个没有顺序可言了。一开始就做判断了，如果当前dimassoc的值为2，运行此命令就会改为1，如果当前dimassoc的值为1，运行此命令就会改为2。自己多操作一下。

(setvar "dimassoc" 1)      ;创建非关联标注对象。
(setvar "dimassoc" 2)      ;创建关联标注对象。

zilong136

qazxswk 发表于 2024-2-16 17:46
(setvar "dimassoc" 1)      ;创建非关联标注对象。
(setvar "dimassoc" 2)      ;创建关联标注对象。

我是想用一个快捷键来切换这两个功能，不是设置两个快捷键。就像Ctrl+1一样。

w090212y

万能command

ferious

龙年大吉！

zilong136

w090212y 发表于 2024-2-11 08:19
万能command

能具体写出来吗？

zilong136

ferious 发表于 2024-2-11 09:51
龙年大吉！

谢谢，谢谢，你也一样，龙年大吉。

qazxswk

(setvar "dimassoc" 1)      ;创建非关联标注对象。
(setvar "dimassoc" 2)      ;创建关联标注对象。

shenhung

然後做一個工具圖像..直接互相切換.

zilong136

shenhung 发表于 2024-2-17 13:20
然後做一個工具圖像..直接互相切換.

这个就无所谓了，自己设置一个快捷键就行了。

qazxswk

(defun c:11()
(setvar "dimassoc" (if (= (getvar "dimassoc") 2) 1 2))
(princ))