怎么使用command "fillet" 命令

张大锤 · 发表于 2018-10-9 17:03

(defun c:rr()

(setq ss1 (ssget ":s" '((0 . "line,Lwpolyline"))))

(setq ss2 (ssget ":s" '((0 . "line,Lwpolyline"))))

(command "fillet" "R" "200" ss1 ss2)

(princ)

)

(command "fillet" "R" "200" ss1 ss2)

这么写F 倒角命令不可请问大家F倒角 RR 倒角200 FF倒角0 这里要怎么写

张大锤 · 发表于 2018-10-9 17:06

(defun c:rr()
(setq ss1 (ssget ":s" '((0 . "line,Lwpolyline"))))
(setq ss2 (ssget ":s" '((0 . "line,Lwpolyline"))))
(setq r 200)
(command "fillet" "R" r)
(command "fillet" ss1 ss2)
(princ)
)

写出来了但是不知道为什么要分开写...........

htlaser · 发表于 2018-10-9 17:25

本帖最后由 htlaser 于 2018-10-9 17:28 编辑

(defun C:fC (/ ss)
      (setvar "cmdecho" 0) ;指令执行过程不响
      (setq ss(getreal"\n-->倒R角功能默认为<R=200>"))
  (if(= ss nil)(setq ss 200))
      (command "_.fillet" "r" ss "_.fillet" "u") ;利用 U 选项函数循环 ;利用 U 选项函数循环
      (princ "\n-->请选取两直线：")       (princ))

evayleung · 发表于 2018-10-9 22:50

直接改FILLETRAD变量吧。

菜卷鱼 · 发表于 2018-10-10 10:06

(defun c:rr( / SS1 SS2)
(setq ss1 (ssget ":s" '((0 . "line,Lwpolyline"))))
(setq ss2 (ssget ":s" '((0 . "line,Lwpolyline"))))
(command "fillet" "R" 200 )
(command "fillet" SS1 SS2)
(princ)
)

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

[提问] 怎么使用command "fillet" 命令