很高兴它对你有用
对此:
- [size=3][font=Times New Roman] (/ *error* vlst ovar)
- (defun *error* (msg)
- (if ovar (mapcar 'setvar vlst ovar))
- (princ (strcat "\nError: " (strcase msg)))
- (princ))
- [/font][/size]
让我们分开来看:
第一:
- [size=3][font=Times New Roman](/ *error* vlst ovar)[/font][/size]
是函数的一部分:“defun”和所有局部变量应包含在正斜杠后的括号内。(函数的参数放在正斜杠之前-但此函数不接受参数)。在VLIDE帮助中查找“defun”函数,您将了解我的意思。
本地化变量不仅有助于跟踪用作变量的符号,还可以在程序完成后清除这些符号中的任何值。
现在,转到:
这是程序的错误处理程序-它接受一个参数(错误消息),当ACAD返回错误时返回该参数。程序基本上会说,‘如果有错误,将所有变量返回到原来的状态,然后打印错误消息。"
希望这能进一步澄清问题。
如果你对这件事或其他事情还有任何问题,尽管问。
李 |