Lisp以启用捕捉高光

onzki · 发表于 2022-7-6 10:25:11

大家好，我修改了我的距离命令（如下所示）。然而，它并没有显示我习惯看到的快照高光（nea，per）。虽然它提供了正确的距离结果，但也许这只是我追求的“美学和感觉”。。我应该在这里添加什么？谢谢

)
（定义C:D（）
（命令“DIST”“NEA”pause“PER”）
)

Guest kruuger · 发表于 2022-7-6 10:32:23

“c:d”之间不应有空格
试试这个

copy

(DEFUN C:D ()
 (COMMAND "DIST" "NEA" pause "PER")
)

kruuger

lpseifert · 发表于 2022-7-6 10:34:43

试试这个

copy


(defun c:d ()
 (setq oldsnap (getvar "osmode"))
 (setvar "osmode" 640)
 (command "dist" pause pause)
 (setvar "osmode" oldsnap)
 (princ)
 )

Tharwat · 发表于 2022-7-6 10:42:37

您不能用（D）命名例程，因为它已被赋予命令DIMSTYLE。

lpseifert · 发表于 2022-7-6 10:44:05

当然可以

Guest kruuger · 发表于 2022-7-6 10:51:45

我们可以做到这一点，但我们夸大了DIMSTYLE快捷方式。一切都取决于我们的pgp文件。
我也更喜欢D表示距离：）
克鲁格

Tharwat · 发表于 2022-7-6 10:53:50

这就是我想向大家表明的。

祝你好运，克鲁格

塔瓦特

alanjt · 发表于 2022-7-6 11:00:45

如果您不确定您的cmdecho将设置为什么，您可以这样做（我在启动时将我的设置为0）：
如果您知道cmdecho将设置为1，您可以使用以下选项：
顺便说一句，Tharwat，将LISP例程定义为已定义的PGP快捷方式没有问题，它只是一个真正的命令（例如，您很难将其称为“DIST”）。

我也更喜欢“D”，但我很久以前就放弃了使用DIST，编写了自己的（更强大的）DistanceInquiry。LSP。