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

这个cod有什么问题

此代码来自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

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

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:

 
1---(我知道没有路,我想确认一下)
2---纠正步骤1((*未知命令“*”)后

Cad64 发表于 2022-7-6 07:05:23

 
你自己动不了。只有版主或管理员可以移动线程。我已将您的线程移动到Autolisp部分。
 
neophoible是正确的。你似乎放弃了你开始的线索。你可能想回到过去,重温他提到的那些,并把它们看完。

neophoible 发表于 2022-7-6 07:06:22

给你。这是提供信息和获得帮助的方式。好吧,WBLOCK不会创建目录。如果确实有必要通过LISP,您应该能够使用vl mkdir来实现。如果这还不够好,请尝试使用LISP搜索如何创建目录。

BlackBox 发表于 2022-7-6 07:20:58

FWIW-
 
FindFile方法还将返回目录参数的有效文件路径,并可用于测试文件夹是否已存在。否则,vl MkDir为1+。

hosyn 发表于 2022-7-6 07:28:54

Soooo thanx黑匣子现在已解决:)
页: [1]
查看完整版本: 这个cod有什么问题