禁用默认提示
大家好，ssget函数显示“选择对象：”提示。我正在编写一个lisp，提示用户在图形中选择块。为此，我使用（ssget“：s”（list（con 0“INSERT”））。在调用ssget之前，我会显示“Select Block：”提示。但是当函数调用时，它也会显示自己的消息，我不想显示。我们可以禁用ssget的这个默认提示消息吗。
谢谢 存储NOMUTT Sys Var的设置，将其设置为1，生成消息，调用ssget，返回NOMUTT的值。
(setq old (getvar 'NOMUTT))
(setvar 'NOMUTT 1)
(princ "\nSelect a Block: ")
(ssget "_+.:E:S" '((0 . "INSERT")))
(setvar 'NOMUTT old)
然而，我已经使用了以下几次，我不太喜欢修改NoMutt变量，因为你看不到任何额外的选择提示。
如。
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单选中的选择用法。
页:
[1]