[寻找]：我想编一个命令,可以调用程序里得两个命令,怎么编?

linkai

我想编一个命令,可以调用程序里得两个命令,怎么编?

比如先copy后删除.
;;copy delete
(defun c:ce()
(command "copy")
(command "delete")

好像做了copy后不会有delete得命令出现

Underway

(defun c:ce()
(command "copy")
(while (= (logand (getvar "CMDACTIVE") 1) 1)
    (command pause)
  )
(command "delete")
(while (= (logand (getvar "CMDACTIVE") 1) 1)
    (command pause)
  )
)

linkai

谢谢啦
这回就去试试


Underway  你好
效果很好,其实还有一个小问题想问你,不知道你还在线否
CELTSCALE是cad得线型比例命令
CHSCAL是tssd得比例命令
例如我想两个命令得值同时都取50,也就是都是1:50怎么编呀

先谢了

如下:

命令: CHSCAL
输入新的绘图比例<1:20> 1:20

命令: CELTSCALE
输入 CELTSCALE 的新值 <20.0000>: 20