muhanleek 发表于 2008-8-19 17:19:00

[求助]菜鸟请教高手，帮忙看看！！

<p>&nbsp; (defun c:yy ()<br/>&nbsp; (setvar "cmdecho" 0)<br/>&nbsp; (command "wipeout" "f" "on")<br/>&nbsp; (setq gop (ssget "X" '((-4 . "&lt;or") (8 . "*line1") (8 . "*line") (8 . "*exptext") (8 . "*maptext") (-4 . "or&gt;"))))<br/>&nbsp; (if gop<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn(<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "erase" gop "")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq num (sslength gop))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "\n删除目标") <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ num)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "个！\n")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "erase" gop "")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "\n没有对象被删除！")</p><p>&nbsp;)<br/>&nbsp; (setvar "cmdecho" 1)<br/>&nbsp; (princ)&nbsp;&nbsp;&nbsp; <br/>&nbsp; )<br/>&nbsp;&nbsp;&nbsp; </p><p></p><p></p><p>gop为NIL 时正常，gop为T时执行到最后出现错误&nbsp;&nbsp;</p><p><font color="#ff0066">&nbsp;"命令: (load "e-gx.lsp")<br/>C:YY<br/>命令: yy<br/>删除目标182个！<br/>; 错误: *error* 函数中出错参数太多"</font></p><p>&nbsp;怎么解决？？？</p>

muhanleek 发表于 2008-8-19 17:39:00

<p>知道的帮我解释一下，就是会提示以上错误，函数的功能可以完成。。</p>

wwwliuyu 发表于 2008-8-19 17:39:00

<p>(defun c:yy ()<br/>&nbsp; (setvar "cmdecho" 0)<br/>&nbsp; (command "wipeout" "f" "on")<br/>&nbsp; (setq gop (ssget "X" '((-4 . "&lt;or") (8 . "*line1") (8 . "*line") (8 . "*exptext") (8 . "*maptext") (-4 . "or&gt;"))))<br/>&nbsp; (if gop<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn&nbsp; ;(<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "erase" gop "")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq num (sslength gop))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "\n删除目标") <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ num)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "个！\n")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;(command "erase" gop "")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "\n没有对象被删除！")</p><p>&nbsp;)<br/>&nbsp; (setvar "cmdecho" 1)<br/>&nbsp; (princ)&nbsp;&nbsp;&nbsp; <br/>&nbsp; )<br/></p>

muhanleek 发表于 2008-8-19 18:02:00

本帖最后由 作者 于 2008-8-19 18:07:26 编辑 <br /><br /> <p>太菜了，多了一对括号啊，谢谢你了</p>
页: [1]
查看完整版本: [求助]菜鸟请教高手，帮忙看看！！