Linhay 发表于 2015-1-7 11:49:41

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

(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 发表于 2015-1-7 12:00:56

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

Linhay 发表于 2015-1-7 12:38:20

lovexj918 发表于 2015-1-7 12:00 static/image/common/back.gif
本人lisp小小白，(command "._trim" pausepause "")是否是这样

这个试过,不行

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

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

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

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

Linhay 发表于 2015-1-8 08:00:25

鱼与熊掌 发表于 2015-1-7 22:53 static/image/common/back.gif


谢谢大神,赞美大神~
页: [1]
查看完整版本: 命令衔接问题(lisp小白问)