请教！！！

丹霞岭

下面是我编写的程序的一段
。。。。。
  (setq ss(ssget "X"(list(cons 8 "MTK"))));构造选择集SS包含MTK层所有实体
  (setq ss1(ssget "X"(list(cons 8 "ccc"))));构造选择集SS1包含ccc层所有实体
  (command "_move" ss ss1 "" pp3 )
  (command "draworder" ss "f")
。。。。。。。
运行到  (command "draworder" ss "f")时，会出现“错误，函数被取消  出错后推出”的提示，为什么会这样？我想使用"_move命令移动后让程序继续运行下去，但总会出错，如何改进？

crazylsp

是不是用的CAD2013,order出错可能要重新载入acad2013doc.lsp。cui/lisp档案/右键/载入。

wowan3344

建议贴一段完整的代码，好让别人帮你调试！

(command "_move" ss ss1 "" pp3 )这个算是运行完了吗？

把command 改为vl-cmdf  可能方便找问题！

自贡黄明儒

第二句ss后面是不是该加＂＂表示选择完成？

菜卷鱼

(command "_move" ss ss1 "" "指定基点"   "指定第二个点" ) ,你只指定了基点，没指定位移点

丹霞岭

wowan3344 发表于 2014-12-2 19:04
建议贴一段完整的代码，好让别人帮你调试！

(command "_move" ss ss1 "" pp3 )这个算是运行完了吗？

(defun  c:cv()
   (setq p1(getpoint))
   (setq p2(getpoint))
   (coomand "line"  p1 p2)
   (setq mx(entlast));直线p1、p2实体付给mx
   (setq pp1(getpoint))
   (setq pp2(getpoint))
   (coomand "line"  pp1 pp2)
   (setq mxx(entlast));直线pp1、pp2实体付给mxx
  (command "_move" mx mxx "" p1 );利用鼠标将两条直线段用move命令在屏幕上以p1为基点移动
                                   ;后，再继续运行后面的  (command "draworder" ss "f")
                                                     ;到这里会出错,这里需要如何改动？
  (command "draworder" ss "f")
)

wowan3344

1、command有两处把此函数写错！
2、command line 这两处命令都没结束 ，应(command "line" p1 p2 "")
3、(command "_move" mx mxx "" p1 pause)
最后你的SS没有赋值如何继续运行后面的(command "draworder" ss "f")
且(command "draworder" ss "f")这句应该也有点问题。

丹霞岭

wowan3344 发表于 2014-12-3 09:17
1、command有两处把此函数写错！
2、command line 这两处命令都没结束 ，应(command "line" p1 p2 "")
3、 ...

(command "draworder" ss "f")这句应该也有点问题。是的,后来我改为(command "draworder" ss  “” "f")就可以了。原来(command "_move" mx mxx "" p1 pause)中要用pause,问题解决了，thank you!!!!!!!!!