[求助]：请教一下高手，我想实现一个功能

liuli117

我有个lisp文件里面有个倒角的语句
(defun c:ch1  () (command "chamfer" "d" "1" "1" "chamfer" "u"))    ;倒1直角
，我想请问，是否有可能变成我输入ch+数字，它可以按照我输入的数字倒角？比如我输入ch10.3，他就可以实现倒角距离是10.3？
谢谢

雨箭风刀

“1" 改为 pause
或
(defun c:ch1 () (command "chamfer" "d" (setq d (getdist "\n 倒角距离:")) d "chamfer" "u"))

byghbcaixin

在一个函数内部可以解决,但作为命令在命令行窗口下输入,用一般的思维还不是容易办到的.欺待的新的思路

yy5heng

按照lisp运行的解释模式，ch10.3被认为是输入了“ch10.3”命令，出错。

dandee

可以实现这样的功能。其实代码也很简单的。
思路如下：
要用上反应器，判断每次输入的命令是否符合A条件
A条件为，（输入的命令为字符串），判断前两个字符是否是ch
如果是，再判断后面是否为数字，如果是的话
就执行(command "chamfer" "d" "数字" "数字" 。。。。。。）
这样就搞定了。
至于反应器获得输入命令的程序，上网搜索一下，可以找到

liuli117

还要用函数吗？我的理解是，如果用函数，定义一个变量，然后ch+变量，后面的d也变成变量。然后每次输入，直接从ch后面获取变量的值，不知道对不对，高手指点一下，最好由程序举例，呵呵
另外请5楼的朋友指点一下反应器的事情，小弟是菜鸟

雨箭风刀

[php]
(defun c:cf (/ oc)
  (setq oc (getvar "cmdecho"))
  (setvar "cmdecho" 1)
  (command "chamfera" pause)
  (setvar "chamferb" (getvar "chamfera"))
  (command "chamfer")
  (while (/= 0 (getvar "cmdactive"))
    (command pause)
  )
  (setvar "cmdecho" oc)
)[/php]

liuli117

最初由 雨箭风刀 发布
[B][php]
(defun c:cf (/ oc)
  (setq oc (getvar "cmdecho"))
  (setvar "cmdecho" 1)
  (command "chamfera" pause)
  (setvar "chamferb" (getvar "chamfera"))
  (command "chamfer")
  (while (/= 0 (getva... [/B]

偶看不懂，麻烦大哥解释一下，谢谢

Dallas_whu

查查变量的含义就清楚了