搞不定！难道--

aaacjh · 发表于 2012-8-5 15:11

请知者指点！先行谢过！

倒圆角命令设置r为0，会经常使用。可是以下代码不知哪里有误，运行没有效果。;修剪或延伸直线
(defun c:ff()
(setvar "osmode" 0)
(setq f1(car(entsel)) f2(car(entsel)))
(command "_FILLET" "R" "0" "" f1 f2 "")
(setvar "osmode" 15359)
(princ)
)

aaacjh · 发表于 2012-8-5 21:17

原来要这样，0后重复一次"_FILLET"，不常规，搞死人了。

Andyhon · 发表于 2012-8-5 22:40

(defun c:ff()
  (setvar "osmode" 0)
  (setq f1 (entsel) f2 (entsel))
  (setvar "FilletRAD" 0)
  (command "_FILLET" f1 f2)
  (setvar "osmode" 15359)
  (princ)
)

aaacjh · 发表于 2012-8-7 19:38

谢谢长老！！！新手学习了！

flytoday · 发表于 2012-8-9 23:04

长老这个个与原命令没区别。。。该搞成。。框选一下就成哈

fcut2004 · 发表于 2012-10-18 19:55

不错，学习了，批量圆角时，我也碰到这问题了，最后也是根据这种思路解决了。

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