禁用默认提示

salman · 发表于 2022-7-6 10:50:55

大家好，

ssget函数显示“选择对象：”提示。我正在编写一个lisp，提示用户在图形中选择块。为此，我使用（ssget“：s”（list（con 0“INSERT”））。在调用ssget之前，我会显示“Select Block：”提示。但是当函数调用时，它也会显示自己的消息，我不想显示。我们可以禁用ssget的这个默认提示消息吗。

谢谢

Lee Mac · 发表于 2022-7-6 11:27:23

存储NOMUTT Sys Var的设置，将其设置为1，生成消息，调用ssget，返回NOMUTT的值。

copy


(setq old (getvar 'NOMUTT))
(setvar 'NOMUTT 1)
(princ "\nSelect a Block: ")
(ssget "_+.:E:S" '((0 . "INSERT")))
(setvar 'NOMUTT old)

alanjt · 发表于 2022-7-6 12:02:32

然而，我已经使用了以下几次，我不太喜欢修改NoMutt变量，因为你看不到任何额外的选择提示。

如。

copy

Command: (ssget)
Select objects: k
*Invalid selection*
Expects a point or 
Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/Add/Remove/Multiple/P
revious/Undo/AUto/SIngle

务必注意Lee在ssget单选中的选择用法。

[编程交流] 禁用默认提示

发表回复

精选推荐