[LISP函数]：高手又来看看

pipi002004 · 发表于 2005-12-21 17:25:24

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;;不修改当前倒角半径的情况下，以0为半径倒角
(defun c:f1 (/ fr )
  (setq fr (getvar "filletrad"))
  (command "fillet" "r" "0")
  (command "fillet" (entsel) (entsel))
  (setvar "filletrad" fr)
  )
按理说这个能达到要求，为什么不行呢？r14下测试不通过.f后为r为0了

aliu22 · 发表于 2005-12-21 17:46:49

(setvar "filletrad" fr)
这样子定义系统变量是不是有问题吧?

Underway · 发表于 2005-12-21 18:14:26

(defun c:f1 (/ fr )
(setq fr (getvar "filletrad"))
(command "fillet" "r" "0")
(command "fillet" Pause Pause)
(setvar "filletrad" fr)
)

pipi002004 · 发表于 2005-12-21 18:20:47

谢谢,经过测试,比较好用,谢谢了

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

[LISP函数]：高手又来看看

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子