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

kizj

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

鱼与熊掌

可以做批量定义命令

kizj

鱼与熊掌 发表于 2015-1-17 16:35
可以做批量定义命令

这样工作量太大了，

ysq101

kizj 发表于 2015-1-17 16:39
这样工作量太大了，

不算大吧。

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

鱼与熊掌

kizj 发表于 2015-1-17 16:39
这样工作量太大了，

定义0.1到100?

kizj

ysq101 发表于 2015-1-17 20:45
不算大吧。

defnu c:f02 command f r 02

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

kizj

鱼与熊掌 发表于 2015-1-17 20:47
定义0.1到100?

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

鱼与熊掌

定义命令不能用小数点.

鱼与熊掌

定义命令不能用小数点. .仅供参考.

2. (setq x 5)
   
3. (repeat (fix(/ 1000 5))
   
4.         (setq runlst (cons (strcat "f" (rtos x)"," "cx-cmd-fr " (rtos x))runlst))
   
5.         (setq x(+ 5 x))
   
6. )
   
7. 
   
8. (setq runlst nil)
   
9. 
   
10. (defun c:cx-cmd-fr(r)
    
11.         (command "FILLET" "r" r"FILLET")
    
12.         (cx-pause)
    
13. )
    
14. 
    
15. (defun c:tt nil
    
16.         (mapcar '(lambda(x)(eval(read(strcat "(defun c:" (car (cx-split1 x ",")) "()(c:" (cadr (cx-split1 x ","))   "))"))))runlst)
    
17.         (prompt "成功加载CXCAD,BY ChenX 2015\r")
    
18.         (princ)
    
19. )
    

(setq x 5)<br /> (repeat (fix(/ 1000 5))<br />         (setq runlst (cons (strcat "f" (rtos x)"," "cx-cmd-fr " (rtos x))runlst))<br />         (setq x(+ 5 x))<br /> )<br /> <br /> (setq runlst nil)<br /> <br /> (defun c:cx-cmd-fr(r)<br />         (command "FILLET" "r" r"FILLET")<br />         (cx-pause)<br /> )<br /> <br /> (defun c:tt nil<br />         (mapcar '(lambda(x)(eval(read(strcat "(defun c:" (car (cx-split1 x ",")) "()(c:" (cadr (cx-split1 x ","))   "))"))))runlst)<br />         (prompt "成功加载CXCAD,BY ChenX 2015\r")<br />         (princ)<br /> )<br />

鱼与熊掌

1. .不小心多回复了.....

复制代码