yang686526

不知vlisp能否做到呢？[已解决]
www.dimcax.com
不知vlisp能否做到呢？[已解决]
一直想有个好用的简单的倒圆角功能
就是我在命令行输入f1 就倒r1的圆角,f2就倒r2的圆角，f8就倒r8的圆角。。。。f8.0384就倒r8.0384的圆角
我只在命令行输入一次f1，也就是说f1就是命令。f后的数要可以是任意的
本以为用反应器可以做到，但是输入f3.456就提示没有这个命令。
后来只有定义一些常用的f1 f2 f3 f4 。。。。
没办法做到f后这个数字是任意数
请大家帮忙
d
我也想知道呀，希望版主们开开会，解决这个问题，难点是怎么提出命令的数字出来，
d
“提出命令的数字出来”这个应该好办，可以用转成数字再转字符，如果相等则是数字咯，论坛上有相关的主题。
主要是在命令行输入没有的命令，则提示：
命令: f2.3265
未知命令“f2.3265”。按 f1 查看帮助。
如果有反应器能等到这信息，应该就可以用反应器吧？
有人来解决吗？
d
问题已经解决，可以用反应器，反应器有个未知命令的!
d
以上的程序已经可以实现画圆的功能，可有点不完美就是，执行完后，命令行会提示
命令: c2.36
指定圆的圆心:
未知命令“
”。按 f1 查看帮助。
有没有办法完美一下！
|;
还有个问题就是，本想再实现fillet \ chamfer \ offset \lengthen的功能
offset 还好知道用vla-offset可以实现。
但是fillet\ chamfer \lengthen等就不知道怎么办了？
请大家帮忙修改一下看看。
通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:
d
;;我的也能凑合着用，还有问题大家帮忙解决
;;在命令行输入 f + n(任意数字)实现倒半径为n的圆，如 f15.4537
( *doc* ( *doc* (vla-get-activedocument ())))
( *test* ( *test* ( nil '((:vlr-unknowncommand . test)))))
( test (a b / c n)
( ( ( c ( ( b)))
( ( c 1 1) "f")
( ( n ( ( c 2))))
)
(
( "filletrad" n)
(vla-sendcommand *doc* "_.fillet ")
)
)
()
)