这个cod有什么问题

hosyn · 发表于 2022-7-6 06:22:42

此代码来自autocad book training，运行autocad时出错：o
这段代码有什么问题，它的错误是“*”


(
defun c:www (/ dn pa pawbdn) ;leave space after the front slash
(setq dn (getvar "dwgname"))    ;type both quotes and both parantheses in
(setq pa (getvar  "dwgprefix") ) ; lines two three and four
(setq pawbdn (strcat pa "wb\" dn))
(command "wblock" pawbdn "*")
)

neophoible · 发表于 2022-7-6 06:34:38

霍辛，我觉得你发错论坛了。这是AutoLISP代码。你想用它做什么？你知道它应该做什么吗？你到底犯了什么错误？你可以自己解决这些问题，如果你愿意花时间看看它在做什么。为此，您可能需要在设置变量时查看变量的值。您甚至不必使用Visual LISP编辑器。你知道如何使用普林斯吗？顺便说一句，你从哪里得到这些代码？注意：如果在完成上述步骤后，你仍然不理解，那么将你的问题与上述所有信息一起发布，这样人们就可以看到你已经尝试了什么。

neophoible · 发表于 2022-7-6 06:48:29

顺便说一句，霍辛，你有没有留下很多线索？这里有两个看起来肯定被抛弃了：
http://www.cadtutor.net/forum/showthread.php?79486-DWG文件中爆炸图的逆向工程
http://www.cadtutor.net/forum/showthread.php?80295-固定dwg中的所有块

hosyn · 发表于 2022-7-6 06:55:13

不幸的是，我知道我在选择踏板时犯了错误，现在我不知道该如何移动它。
这是运行代码的结果：

copy


Command:
Command: WWW
wblock Enter name of output file: D:\Documents and Settings\hh\My Documents\wb\Drawing1.dwg Path does not exist: D:\Documents and Settings\hh\My Documents\wb\
Please verify the correct path was given.
Command: * Unknown command "*".  Press F1 for help.
Command: nil
Command: