[求助]：fillet为什么不能实现？

wangwangnn · 发表于 2005-8-22 13:06:26

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

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

×

大家看看，我写的连接角功能，用到的fillet函数为什么不能实现？
但是在cad中用这个顺序是可以做出来的。
(defun c:lianjiejiao()
(setq en1 (car (entsel "\n选择构成角的一边：")))
(setq en2 (car (entsel "\n选择构成角的另一边：")))
(command "fillet" "r" 0 en1 en2)
)

zxq0220 · 发表于 2005-8-22 14:28:38

(defun c:lianjiejiao()
(setq pt1 (cdr (entsel "\n选择构成角的一边：")))
(setq pt2 (cdr (entsel "\n选择构成角的另一边：")))
(command "fillet" "r" 0 "fillet" pt1 pt2)
)

wangwangnn · 发表于 2005-8-22 15:20:43

应该把cdr 改为car吧
但加载后还是不行呀，不知是哪里的问题？

网络水手 · 发表于 2005-8-22 15:26:03

通常的lisp做法是:

(defun c:lianjiejiao(/ tt en1 en2)
(setq tt (getvar "filletrad")) ;保存系统变量
(setvar "filletrad" 0) ;将倒角半径设为0
(setq en1 (entsel "\n选择构成角的一边："))
(setq en2 (entsel "\n选择构成角的另一边："))
(command "fillet" en1 en2)
(setvar "filletrad" tt) ;恢复原系统变量
)

zxq0220 · 发表于 2005-8-22 15:39:37

最初由 wangwangnn 发布
[B]应该把cdr 改为car吧
但加载后还是不行呀，不知是哪里的问题？ [/B]

是的，改成CAR就可以了。
(defun c:lianjiejiao()
(setq pt1 (car (entsel "\n选择构成角的一边：")))
(setq pt2 (car (entsel "\n选择构成角的另一边：")))
(command "fillet" "r" 0 "fillet" pt1 pt2)
)

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

[求助] [求助]：fillet为什么不能实现？

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

相关帖子