需要用户提示lis的帮助

MikeP · 发表于 2022-7-6 17:25:21

我无法使这部分代码正常工作。它甚至不会弹出一个错误，就像它忽略了它一样，是的，我确实列出了我的变量


(cond
   ((setq hide (getkword "\nHide Box? [Y/N] ? <Y>"))
)
  (if hide
   (command "-layer" "s" "Dim" "off" "Dim" "")
   ("")
  )

neekcotrack · 发表于 2022-7-6 17:42:44

尝试更改：

copy

(command "-layer" "s" "Dim" "off" "Dim" "")

为此：

copy


(command "_.layer" "s" "Dim" "off" "Dim" "Y")

如果这不起作用，我建议提交lisp的重置。

jammie · 发表于 2022-7-6 17:56:51

只是稍微调整一下代码

使用getkword建立关键字以供下一个用户输入函数调用使用时添加Initget

copy

    (initget "Y N") ;Set the key words
   
   (setq hide (getkword "\nHide Box? [Y/N] ? <Y>"))         ;Get the input
   (if
    (= hide "Y") ;If the user has entered the required key "Y"
    (command "_.layer" "s" "Dim" "off" "Dim" "Y" "") ;Turn off the layer
    )

当做
杰米

Lee Mac · 发表于 2022-7-6 18:04:34

不确定这是否适用，但在使用initget函数时，我通常在initget函数语法之后指定位引用。我没有太多使用initget函数的经验，如果我错了，请纠正我。

即

copy

(initget 1 "Y N") ; 1 = no null input
   
   (setq hide (getkword "\nHide Box? [Y/N] ? <Y>"))         ;Get the input
   (if
    (= hide "Y") ;If the user has entered the required key "Y"
    (command "_.layer" "s" "Dim" "off" "Dim" "Y" "") ;Turn off the layer
    )

希望这有帮助

David Bethel · 发表于 2022-7-6 18:22:52

copy


  (initget "Yes No") 
  (if (/= "No" (getkword "\nHide Box? [Yes/No] ? <Y>:   "))
      (command "_.LAYER" "s" "Dim" "_Off" "Dim" "_Y" ""))

通过使用（initget）位标志强制输入，可以否定默认的“Y”。因此，零响应不等于“否”，因此测试为T和_。将处理层调用。

我更喜欢initget调用中的完整单词。即使使用完全是非，非负矩阵不等式Y和N仍然有效。

这里有两个Gottcha。
-如果层DIM不存在怎么办？
-如果层DIM冻结了怎么办？
-如果sysvar EXPERT设置为5，则忽略关闭当前层的提示。

健壮的层命令可能是一个相当长的调用。我的0.02美元-David

MikeP · 发表于 2022-7-6 18:37:15

我得到“无效用户关键字”

[编程交流] 需要用户提示lis的帮助

发表回复

精选推荐