kizj 发表于 2015-1-17 16:25:35

求助！如何在命令中直接带入参数

比如导个1.0的R角就输入F1.0,导个2.0的C角就C2.0

鱼与熊掌 发表于 2015-1-17 16:35:10

可以做批量定义命令

kizj 发表于 2015-1-17 16:39:40

鱼与熊掌 发表于 2015-1-17 16:35 static/image/common/back.gif
可以做批量定义命令

这样工作量太大了，

ysq101 发表于 2015-1-17 20:45:15

kizj 发表于 2015-1-17 16:39 static/image/common/back.gif
这样工作量太大了，

不算大吧。

defnu c:f02 command f r 02
defnu c:f03 command f r 03
defnu c:f04 command f r 04
......
这样不就好了？？
定几个常用的就好了。。

鱼与熊掌 发表于 2015-1-17 20:47:21

kizj 发表于 2015-1-17 16:39 static/image/common/back.gif
这样工作量太大了，

定义0.1到100?

kizj 发表于 2015-1-18 12:48:43

ysq101 发表于 2015-1-17 20:45 static/image/common/back.gif
不算大吧。

defnu c:f02 command f r 02


因为有时候用到的R角都是不固定的，有0.05，0.1，0.2，0.3，0.15，0.23~~不好这样定

kizj 发表于 2015-1-18 12:52:39

鱼与熊掌 发表于 2015-1-17 20:47 static/image/common/back.gif
定义0.1到100?

100倒用不上，就是0.05~10.0之间都有可能用上

鱼与熊掌 发表于 2015-1-18 13:05:05

定义命令不能用小数点.

鱼与熊掌 发表于 2015-1-18 13:08:01

定义命令不能用小数点. .仅供参考.(setq x 5)
(repeat (fix(/ 1000 5))
        (setq runlst (cons (strcat "f" (rtos x)"," "cx-cmd-fr " (rtos x))runlst))
        (setq x(+ 5 x))
)

(setq runlst nil)

(defun c:cx-cmd-fr(r)
        (command "FILLET" "r" r"FILLET")
        (cx-pause)
)

(defun c:tt nil
        (mapcar '(lambda(x)(eval(read(strcat "(defun c:" (car (cx-split1 x ",")) "()(c:" (cadr (cx-split1 x ","))   "))"))))runlst)
        (prompt "成功加载CXCAD,BY ChenX 2015\r")
        (princ)
)

鱼与熊掌 发表于 2015-1-18 13:08:35

本帖最后由 鱼与熊掌 于 2015-1-18 13:09 编辑

.不小心多回复了.....
页: [1] 2
查看完整版本: 求助！如何在命令中直接带入参数