倒圆角程序

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
提示字串中全角冒号换成半角的

谢谢版主指教

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

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

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

楼主能做成框选的吗？

账号		自动登录	找回密码
密码			注册

倒圆角程序

相关帖子