[LISP函数]：求教ZOOM 的LSP的问题？

hokny

求救高手我按图保存.LSP文件,可是在CADR14中输入(load "xxx.lsp")却无法使用?我那里作错了呢?????:)

ll_j

最初由 hokny 发布
[B]求救高手我按图保存.LSP文件,可是在CADR14中输入(load "xxx.lsp")却无法使用?我那里作错了呢?????:) [/B]

不需要那么复杂，只需要按下面格式书写即可：
(defun c:ze()(command "zoom" "e"))
(defun c:zzd()(zommand "zoom" ".8x"))

如果需要，可以写成：
(defun c:zzd()(zommand "zoom" ".8x" "" "d"))

hokny

不需要那么复杂，只需要按下面格式书写即可：
(defun c:ze()(command "zoom" "e"))
(defun c:zzd()(zommand "zoom" ".8x"))

如果需要，可以写成：
(defun c:zzd()(zommand "zoom" ".8x" "" "d"))




还是不行，请问我那里错了？？

hokny

记事本

lijiao

在你的第3贴中已经指出，错误出在(substr wjqm 1 (- (strlen wjqm) (strlen nowdwg)))
请检查一下WJQM和NOWDWG是否为字符串，并且WJQM的位数是否比NOWDWG的位数多。

ll_j

经天才达利提醒，我查了一下，确实错误是“中毒”现象。详见：
http://www.xdcad.net/forum/showthread.php?s=&threadid=25149

hokny

在你的第3贴中已经指出，错误出在(substr wjqm 1 (- (strlen wjqm) (strlen nowdwg)))
请检查一下WJQM和NOWDWG是否为字符串，并且WJQM的位数是否比NOWDWG的位数多。


我不知道 怎么检查请问该怎么做？

ll_j

最初由 hokny 发布
[B]在你的第3贴中已经指出，错误出在(substr wjqm 1 (- (strlen wjqm) (strlen nowdwg)))
请检查一下WJQM和NOWDWG是否为字符串，并且WJQM的位数是否比NOWDWG的位数多。


我不知道 怎么检查请问该怎么做？ [/B]

不要查找了，这的确是恶意代码的一部分（在acad.lsp中），还是先按杀“毒”，再考虑编程吧。