命令衔接问题(lisp小白问)

Linhay

(defun C:tt (/ PT1 PT2 PT3)
   (graphscr)
   (setq PT1 (getpoint "坐标系原点"))
   (setq PT2 (getpoint "坐标系第二点"))
   (setq PT3 (getpoint "坐标系第三点"))   
    (command "ucs" "3" PT1 PT2 PT3)
   (command "._xline" "b" pause pause pause"")
   (command "._trim"pause pause)
    (command "ucs""w")
    (command "UCS" "3" pause pause pause "")
    (command "UCS" "Z""90")
    (command "_pasteclip" pause )
    (command "ucs""w")
)


本人lisp小白,上边我简化的命令,使用过程中执行完trim命令就自己断了(函数错误),请教各位前辈怎么解决这个问题,拜谢

lovexj918

本人lisp小小白，(command "._trim" pause  pause "")是否是这样

Linhay

lovexj918 发表于 2015-1-7 12:00
本人lisp小小白，(command "._trim" pause  pause "")是否是这样

这个试过,不行

鱼与熊掌

2. ;pause
   
3. (defun cx-pause nil
   
4.         (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
   
5. )
   
6. ;承接CAD插件定制.

;pause<br /> (defun cx-pause nil<br />         (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br /> )<br /> ;承接CAD插件定制.

鱼与熊掌

2. ;使用方法 .
   
3. (defun c:tt()
   
4. (command "line")
   
5. (cx-pause)
   
6. (command "trim")
   
7. (cx-pause)
   
8. )

;使用方法 .<br /> (defun c:tt()<br /> (command "line")<br /> (cx-pause)<br /> (command "trim")<br /> (cx-pause)<br /> )

Linhay

鱼与熊掌 发表于 2015-1-7 22:53

谢谢大神,赞美大神~