此行出错

TunzaGibbo · 发表于 2022-7-5 15:21:27

大家好

#（setq Cloud（getstring（“\n输入选项P或O）））#
你能告诉我为什么这条线会出错吗？

这是错误：
.如果没有事先调用（*push error using command*），则无法从*error*调用（命令）。
建议将（命令）调用转换为（命令-s）。

然而，如果我用这一行代替上面的那一行，这一行是可行的，但显然它没有给我选择的余地
#（setq云O）#

Grrr · 发表于 2022-7-5 15:28:40

copy

(setq Cloud (progn (initget "P O") (getkword "\nEnter an Option [P/O]: " )))

BIGAL · 发表于 2022-7-5 15:31:22

Tunzagibbo选择#not type it或[c o d e]和[[c o d e]如果你想键入它。

TunzaGibbo · 发表于 2022-7-5 15:38:41

高Grrr
谢谢你的代码
我还是有点问题。你能帮我查一下这个代码吗？
我知道，只要在Autocad中运行“revcloud”命令，我就可以选择P或O，但我的Lisp只是全局的一部分。
如果我将2个DEFUNS（“objectcloud”和“polygoncloud”）剪切并粘贴到Autocad命令行中，它们各自都可以正常运行。
当我试图将它们合并到lisp程序中时，我得到了错误。

当我输入P或O时，它似乎失败了

copy

(defun c: mycloud ()
(setq Cloud (progn (initget "P O") (getkword "\nEnter an Option [P/O]: " )))
(if (= Cloud O) (objectcloud))
(if (= Cloud P) (polygoncloud))
(defun polygoncloud ()
  (setvar "orthmode" 1) 
  (command-s"._revcloud" "_P")
)
(defun objectcloud () 
  (command "._revcloud" "_O" pause "No")
)

FranknBeans · 发表于 2022-7-5 15:41:01

因为您将字符串存储在变量“cloud”中，所以其值将是“P”或“O”，而不是P或O

copy


(defun c:mycloud ( / Cloud )[color=royalblue] ; localise cloud variable[/color]
 (initget 1 "P O")
 (setq Cloud (getkword "\nEnter an Option [P/O]: " ))
 (if (= Cloud "P")
     (polygoncloud)[color=royalblue] ; if "P"[/color]
     (objectcloud)[color=royalblue] ; else "O"[/color]
 )
)

TunzaGibbo · 发表于 2022-7-5 15:48:41

这是我试图运行的实际代码，但仍然有问题。

copy

(defun c:bbb (/ Cloud)
(initget 1 "P O p o") 
(setq Cloud (getkword "\nEnter an Option [P/O] " ))
(if (= Cloud "O") (objectcloud) (polygoncloud))
(defun polygoncloud ()
  (setvar "orthmode" 1) 
  (command-s"._revcloud" "_P")
)
(defun objectcloud () 
  (command-s "._revcloud" "_O" pause "No")
)
)

FranknBeans · 发表于 2022-7-5 15:51:34

隐马尔可夫模型。。如果你先声明子函数就行了，我不知道这是个问题，我习惯于把它们放在最上面。考虑到大小写是个好主意，添加strcase将确保变量始终为大写。

copy


(defun c:bbb (/ polygoncloud objectcloud Cloud)
 (defun polygoncloud ()
   (setvar "orth[color=red]o[/color]mode" 1)
   (command "._revcloud" "_P")
 )
 (defun objectcloud ()
   (command "._revcloud" "_O" pause "No")
 )
 (initget 1 "P O")
 (setq Cloud (strcase (getkword "\nEnter an Option [P/O]: ")))
 (if (= Cloud "O") (objectcloud) (polygoncloud))
 (princ)
)

TunzaGibbo · 发表于 2022-7-5 15:58:03

谢谢你的帮助，弗兰克。现在一切正常

当做

托尼

Grrr · 发表于 2022-7-5 15:58:47

在这种情况下，它们似乎是主函数的局部函数，首先声明这一点很重要——您在函数（主函数或子函数）中放入的所有内容都是从上到下进行求值的。
默认“top2bottom”顺序的异常是从已经计算过的函数调用的。

应用时，自上而下的评估顺序适用。lsp文件，它从上到下逐个评估所有声明的函数。
然后，一旦所有主函数和子函数都被声明/求值，您就可以运行主函数，而不用担心未定义的（子）函数。
注意，当解释器评估一个函数时，它只是检查它的内容——在这里，您可能会收到“输入时额外的左/右参数”错误，
但它不运行函数（这意味着运行/检查内部的所有计算）：

copy


_$ (defun test ( / ) [color="darkgreen"]; <- The function /main/[/color]
 [color="darkgreen"]; These things will be evaluated from top to bottom order, starting from this row
 ; <code> ... bla bla[/color]
 (MyUndefinedFunction [color="darkgreen"]; <- a subfunction we use inside of our main, but we didn't define it anywhere (so the main will try to run it, but will crash because it was never evaluated)[/color]
 ) [color="darkgreen"]; <- our main should crash at this evaluation, and will stop going thru the next bottom lines [/color]
[color="darkgreen"] ; <code> ... bla bla
 ; we could define/evaluate the subfoo here, but since we already attempted to run it before defining it, we will recieve an error
 ; (defun MyUndefinedFunction ( / ) <code> .. bla bla)[/color]
)[color="darkgreen"]; defun test[/color]
TEST [color="darkgreen"]; <- This means our main function evaluated successfuly (no syntax errors)[/color]
_$ (test) [color="darkgreen"]; <- Now we run it, it will step through all the evaluations inside (TOP to BOTTOM order)[/color]
Error: [color="red"]no function definition[/color]: MYUNDEFINEDFUNCTION [color="darkgreen"]; <- it doesn't recognise it, because we never define it (or we tried to define it after we ran it)[/color]
_1$ 
_$ test [color="darkgreen"]; <- lets check if our main is defined/evaluated[/color]
#<USUBR @000000b646f7c570 TEST>[color="darkgreen"] ; <- yes it is[/color]
_$ MyUndefinedFunction [color="darkgreen"]; <- lets check if our subfunction is defined/evaluated[/color]
nil [color="darkgreen"]; <- no its not[/color]