726613 发表于 2013-5-11 21:20:17

倒圆角程序


功能：倒圆角
(defun c:r (/ r a B)
   (SETQ A (GETVAR "filletrad"))
   (SETQ B (GETREAL "\n-->请输入圆角数值："))
    (IF (= B NIL) (SETQ B A) )
    (SETVAR "FILLETRAD" B)
   (command "fillet" "u" PAUSE PAUSE);
(princ)
)

此程序有点问题：在输入数值后，光标会出在数值前面？请问为什么会这样呢？请高手指点。谢谢

ZZXXQQ 发表于 2013-5-11 23:08:15

提示字串中全角冒号换成半角的

726613 发表于 2013-5-12 07:20:08

ZZXXQQ 发表于 2013-5-11 23:08 static/image/common/back.gif
提示字串中全角冒号换成半角的

谢谢版主指教

烟盒迷唇 发表于 2018-5-20 18:32:26

能框选两条线自动圆角，不用一条条点的吗

下文没句号。 发表于 2023-3-6 11:11:07

楼主能做成框选的吗？
页: [1]
查看完整版本: 倒圆角程序