我只能认为自那以后命令已经改变了，因为我发布的代码似乎适用于ACAD'04。 嗯，我看不出这里的命令有什么变化。
http://www.hyperpics.com/commands/
哦，好吧-大卫
我明白你的意思-但用“entlast”论点补充它似乎无论如何都能奏效。。 谢谢李。
它工作得很好。2004年在家试用。
我确实将圆角形状从2“改为8”，段长改为11”，这样X就不会重叠太多。
您在编写过程中创建的Lisp例程开始让我感到奇怪，因为我理解这个操作。这只是（/*误差*vlst ovar）
（defun*错误*（msg）
（如果为ovar（mapcar‘setvar vlst ovar））
（princ（strcat“\n错误：”（strcase msg）））
（普林斯）
我现在很难理解。
我可以调整lisp例程，像这样简单，我可以理解它。这有助于了解
开始写我自己的。
再次感谢。
感谢大家的支持和投入。这让工作变得容易多了。
：D
很高兴它对你有用
对此：
(/ *error* vlst ovar)
(defun *error*(msg)
(if ovar (mapcar 'setvar vlst ovar))
(princ (strcat "\nError: " (strcase msg)))
(princ))
让我们分开来看：
第一：
(/ *error* vlst ovar)
是函数的一部分：“defun”和所有局部变量应包含在正斜杠后的括号内。（函数的参数放在正斜杠之前-但此函数不接受参数）。在VLIDE帮助中查找“defun”函数，您将了解我的意思。
本地化变量不仅有助于跟踪用作变量的符号，还可以在程序完成后清除这些符号中的任何值。
现在，转到：
这是程序的错误处理程序-它接受一个参数（错误消息），当ACAD返回错误时返回该参数。程序基本上会说，‘如果有错误，将所有变量返回到原来的状态，然后打印错误消息。"
7
8
希望这能进一步澄清问题。
如果你对这件事或其他事情还有任何问题，尽管问。
李
页:
1
[2]