参数化命令可否实现？

preone

比如，我想输入命令：R3，实现的功能是倒圆角，半径为3mm；另外输入命令：R10，实现的功能是倒圆角，半径为10mm.前提是必须是一个程序实现的不同的半径，其实就是想把输入的命令作为参数的一部分，不知可否实现？

举另外一个例子，比如，一些图块名为，S1，S2.. S10,10个不同的块，输入不同的命令，可以插入对应的块，比如输入命令:S1，就插入S1图块；输入命令:S2，就插入S2图块等等，也是一个程序不同的命令实现不同的输入，其实也是想把输入的命令作为参数的一部分，不知我说明白了没有

期待大神的回复解答，感谢。

Andyhon

自定义命令群的背后都会有其服务的对象
R* / S* 都可用Autoload预载入待命调用


您的 R3...R10  3mm 以下有吗  >10mm???
而我们的实务上用的却是 R1  R1.1  R1.5 R...

至于牵扯图块就更难移植了
悬念多多
之前有见过前辈的分享,试试手气吧!

此类程序建构上需要 '值域' 来收敛
而这些只有自己最清楚...

xyp1964

;; 快捷键：r1～r100

1. (setq a 0)
   
2. (repeat 100
   
3.   (setq a  (1+ a)
   
4.         b  (itoa a)
   
5.         t1 "(/)(command\"fillet\"\"r\""
   
6.         t2 ")(command\"fillet\"pause pause)(princ))))"
   
7.   )
   
8.   (eval (read (strcat "(defun c:r" b t1 b t2)))
   
9. )

(setq a 0)<br /> (repeat 100<br />   (setq a  (1+ a)<br />         b  (itoa a)<br />         t1 "(/)(command\"fillet\"\"r\""<br />         t2 ")(command\"fillet\"pause pause)(princ))))"<br />   )<br />   (eval (read (strcat "(defun c:r" b t1 b t2)))<br /> )

preone

Andyhon 发表于 2018-1-15 21:30
自定义命令群的背后都会有其服务的对象
R* / S* 都可用Autoload预载入待命调用

谢谢大神指点
"此类程序建构上需要 '值域' 来收敛" 是否可理解为，有了值域就可以在值域范围内对每一个值定义命令，相当于把值域范围内的所有命令都进行程序定义，进而实现“参数化命令”？
有么有可能不需值域，也能实现“参数化命令”？

陨落

我之前有一个思路，把接受这种字符串的代码写到一个命令里面，用vl-sendcommand来发送cad已有的所有命令。结果测试失败了，每次一用vl-sendcommand，程序就开始不同步运行。

陨落

vla-sendcommand后来解决了同步运行的问题，也能返回到原来的程序
但是每次用vla-sendcommand发送的命令，只要涉及到选择，如(vla-sendcommand "move ")
使用move命令的时候，就只能单选，无法框选，期待大神解决这个问题，也许就能实现这个宏伟的目标了。

vectra

听上去是要批量定义命令

fl202

把输入的命令作为参数的一部分。 这样无非是减少一次回车或者空格的机会。
还不如做个对话框，设定:list_box  或者多个 :button 即可选择了。

preone

陨落 发表于 2018-1-15 21:16
vla-sendcommand后来解决了同步运行的问题，也能返回到原来的程序
但是每次用vla-sendcommand发送的命令， ...

谢谢回复，我还么有学到VL-,VLA-,的命令，既然前辈已用此命令实现“参数化命令”，可否让小弟学习一下~

preone

xyp1964 发表于 2018-1-16 13:46
;; 快捷键：r1～r100

哈哈，谢谢院长，这个思路是用repeat 100次，把R1~R100的命令都用一个程序定义了，
不过有没有不用每个命令都定义的方法，或者说我输入一个命令:C1,而这个“C1”其实也是程序中的一个参数(局部变量)，调用程序时，这个整体“C1”既是命令又是参数，从而实现“参数化命令”，说的不对的地方还请院长指正