求两条弧形线倒角

liu22737

TPG辉 发表于 2014-6-28 09:32
能不能实现：
1.命令
2.请输入倒R角半径

这个只能请斑竹了，好像llsheng_73也有研究过

这个应该很难实现，因圆弧与直线不同，它两端都能倒(每端两种R角状态，cad的fillet默认好像倒第二个交点)，
     直线只有一种状态

框选时很难判断你要倒哪一端，一次反框两个圆弧端部可以实现倒R，批量那就太麻烦了

TPG辉

liu22737 发表于 2014-6-28 15:50
这个只能请斑竹了，好像llsheng_73也有研究过

这个应该很难实现，因圆弧与直线不同，它两端都能倒(两种 ...

恩，问了好多人

ZZXXQQ

2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (if (setq r (getdist "\n圆角半径: ")) (progn
   
5.   (command "_.FILLET" "R" r)
   
6.   (command "_.FILLET" PAUSE PAUSE)
   
7. ))
   
8. (setvar "CMDECHO" 1)
   
9. (princ)
   
10. )
    

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (if (setq r (getdist "\n圆角半径: ")) (progn<br />   (command "_.FILLET" "R" r)<br />   (command "_.FILLET" PAUSE PAUSE)<br /> ))<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />