[编程申请]：请高手编一个倒角命令，能倒固定长度的切角

lizhongf

请高手编一个倒角命令，能倒固定长度的切角，AUTOCAD的CHAMFER命令只能倒距两个边固定长度的切角，我想要能倒固定长度斜边的命令，烦请哪位大侠帮忙，谢谢！

zxq0220

最初由 lizhongf 发布
[B]请高手编一个倒角命令，能倒固定长度的切角，AUTOCAD的CHAMFER命令只能倒距两个边固定长度的切角，我想要能倒固定长度斜边的命令，烦请哪位大侠帮忙，谢谢！ [/B]

不知道下面的程序能否满足您的要求。

2. 
   
3. (DEFUN C:CHAMF ( / SS OLDOS SL I SL SN EN P1 P2 R PC)
   
4. (SETVAR "CMDECHO" 0)
   
5. (IF (= (GETVAR "USERR1") 0) (PROGN
   
6.   (SETVAR "USERR1" 1.0)
   
7.   (SETVAR "USERR2" 45.0)
   
8. ))
   
9. (SETQ L (GETVAR "USERR1") ANG (GETVAR "USERR2"))
   
10. (PRINC "\nCurrent chamfer length = ") (PRINC L)
    
11. (PRINC " Angle = ") (PRINC ANG)
    
12. (INITGET "Length" 1)
    
13. (SETQ PT (GETPOINT "\nLength＜Select first line＞ :"))
    
14. (IF (= PT "Length") (PROGN
    
15.   (PRINC "\nLength ＜") (PRINC L)
    
16.   (SETQ L (GETDIST "＞= "))
    
17.   (PRINC "\nAngle ＜") (PRINC ANG)
    
18.   (SETQ ANG (GETREAL "＞ = "))
    
19.   (IF (/= L nil) (SETVAR "USERR1" L) (SETQ L (GETVAR "USERR1")))
    
20.   (IF (/= ANG nil) (SETVAR "USERR2" ANG) (SETQ ANG (GETVAR "USERR2")))
    
21. ) (PROGN
    
22.   (SETQ L1 (* (SIN (/ (* ANG PI) 180)) L))
    
23.   (COMMAND "CHAMFER" "A" L1 ANG)
    
24.   (COMMAND "CHAMFER" PT)
    
25. ))
    
26. )
    

<br /> (DEFUN C:CHAMF ( / SS OLDOS SL I SL SN EN P1 P2 R PC)<br /> (SETVAR "CMDECHO" 0)<br /> (IF (= (GETVAR "USERR1") 0) (PROGN<br />   (SETVAR "USERR1" 1.0)<br />   (SETVAR "USERR2" 45.0)<br /> ))<br /> (SETQ L (GETVAR "USERR1") ANG (GETVAR "USERR2"))<br /> (PRINC "\nCurrent chamfer length = ") (PRINC L)<br /> (PRINC " Angle = ") (PRINC ANG)<br /> (INITGET "Length" 1)<br /> (SETQ PT (GETPOINT "\nLength＜Select first line＞ :"))<br /> (IF (= PT "Length") (PROGN<br />   (PRINC "\nLength ＜") (PRINC L)<br />   (SETQ L (GETDIST "＞= "))<br />   (PRINC "\nAngle ＜") (PRINC ANG)<br />   (SETQ ANG (GETREAL "＞ = "))<br />   (IF (/= L nil) (SETVAR "USERR1" L) (SETQ L (GETVAR "USERR1")))<br />   (IF (/= ANG nil) (SETVAR "USERR2" ANG) (SETQ ANG (GETVAR "USERR2")))<br /> ) (PROGN<br />   (SETQ L1 (* (SIN (/ (* ANG PI) 180)) L))<br />   (COMMAND "CHAMFER" "A" L1 ANG)<br />   (COMMAND "CHAMFER" PT)<br /> ))<br /> )<br />

lizhongf

最初由 zxq0220 发布
[B]
... [/B]

谢谢大侠，就是这个，不过两个边相互垂直，angle=45时很好用，角度为其他的值时不正确，比如length=20，angle=30时，倒角后的斜边长度不为20，实际是Distance = 11.5470，应该为20才正确，同样被倒角的两个边不相互垂直时，也不正确，烦请大侠修正，谢谢！！！

zxq0220

程序修改过了，目前只对直角有效。非直角的容我再想想。
程序：
(DEFUN C:CHAMF ( / SS OLDOS SL I SL SN EN P1 P2 R PC)
(SETVAR "CMDECHO" 0)
(IF (= (GETVAR "USERR1") 0) (PROGN
  (SETVAR "USERR1" 1.0)
  (SETVAR "USERR2" 45.0)
))
(SETQ L (GETVAR "USERR1") ANG (GETVAR "USERR2"))
(PRINC "\nCurrent chamfer length = ") (PRINC L)
(PRINC " Angle = ") (PRINC ANG)
(INITGET "Length" 1)
(SETQ PT (GETPOINT "\nLength〈Select first line〉 :"))
(IF (= PT "Length") (PROGN
  (PRINC "\nLength 〈") (PRINC L)
  (SETQ L (GETDIST "〉 = "))
  (PRINC "\nAngle 〈") (PRINC ANG)
  (SETQ ANG (GETREAL "〉 = "))
  (IF (/= L nil) (SETVAR "USERR1" L) (SETQ L (GETVAR "USERR1")))
  (IF (/= ANG nil) (SETVAR "USERR2" ANG) (SETQ ANG (GETVAR "USERR2")))
) (PROGN
  (SETQ L1 (* (SIN (/ (* (- 90 ANG) PI) 180)) L))
  (COMMAND "CHAMFER" "A" L1 ANG)
  (COMMAND "CHAMFER" PT)
))
)

狂刀

(defun c:tt ()
  (setq d (* 20 (sin (/ PI 4))))
  (setvar "chamfera" d)
  (setvar "chamferb" d)
  (command "CHAMFER")
)

这只是给个思路
下面的附件可以试试，能倒非９０度角，强哦：）
命令：ｃｆｄ

狂刀

a
目前仅支持ｌｉｎｅ

konie

楼主的想法  我也遇到过  想听

zxq0220

程序改好了，请试用，看看是否能够满足要求。

狂刀

定了倒角距离还要确定角度好像意义不大，因为要倒角的两条边可能不一定水平or垂直。
定前者就可以了

lizhongf

谢谢，怎么不能下载呀

xinbuzhe

zxq0220 的程序好像已经满足要求了

yxianfo

5楼的程序以倒角斜边长度为指定值，实际并不实用，将其改为传统意义的倒角距离（即“第一条直线的倒角长度”）应更为实用。程序改写如下，命令为ddj。

(defun c:ddj ( / L pt ang)
(setvar "cmdecho" 0)
(if (= (getvar "userr1") 0) (progn
(setvar "userr1" 1.0)
(setvar "userr2" 45.0)
))
(setq L (getvar "userr1") ang (getvar "userr2"))
(princ "\n当前第一条直线的倒角长度 = ") (princ L)
(princ "    第一条直线的倒角角度= ") (princ ang)
(initget "length" 1)
(setq pt (getpoint "\nlength/〈选择第一条直线〉:"))
(if (= pt "length") (progn
(princ "\nlength 〈") (princ L)
(setq L (getdist "〉 = "))
(princ "\nangle 〈") (princ ang)
(setq ang (getreal "〉 = "))
(if (/= L nil) (setvar "userr1" L) (setq L (getvar "userr1")))
(if (/= ang nil) (setvar "userr2" ang) (setq ang (getvar "userr2")))
) (progn
;(setq L1 (* (sin (/ (* (- 90 ang) pi) 180)) L))    ;不用斜边长度值，改回传统意义的倒角距离，故删除此句。
;(command "chamfer" "a" L1 ang)                     ;由于改回传统意义的倒角距离，此句中的L1应改为L,故此句也删除。
(command "chamfer" "a" L ang)                       ;添加此句，即把上句中的L1改为L即可。
(command "chamfer" pt)
))
)


本程序中，若"length"函数能用一个字母来表示，则在命令行中输入此选项时就会方便多了，还有待改进。

本程序在2008中使用，两直线即使不是垂直相交（在允许的范围内）也能实现倒角。

zhaozwf

把上面的例子修改了一下，试一下吧
(defun c:ddj1 ( / l pt ang)
(setvar "cmdecho" 0)
(if (= (getvar "userr1") 0)
  (progn
  (setvar "userr1" 1.0)
  (setvar "userr2" 45.0)
  )
)
(setq l (if l l (getvar "userr1"))
      ltp (getdist (strcat "\n输入第一条直线的长度:<" (rtos l 2 2) ">:"))
      l (if ltp ltp l)
      ang (if ang ang (getvar "userr2"))
      angtp (getreal (strcat "\n第一条直线的倒角角度:<" (rtos ang 2 2) ">:"))
      ang (if angtp angtp ang)
      )
(setq pt (entsel "\n选择第一条直线:"))
(setq L1 (* (sin (/ (* (- 90 ang) pi) 180)) L)) ;
(command "chamfer" "a" L1 ang) ;
(command "chamfer" pt)
)

zhaozwf

又修改改一下，把l l 和ang改成全局变量要不不能记忆上次输入了，呵呵
;倒角
(defun c:ddj ( / pt )
(setvar "cmdecho" 0)
(if (= (getvar "userr1") 0)
  (progn
  (setvar "userr1" 1.0)
  (setvar "userr2" 45.0)
  )
)
(setq l (if l l (getvar "userr1"))
      ltp (getdist (strcat "\n输入第一条直线的长度:<" (rtos l 2 2) ">:"))
      l (if ltp ltp l)
      ang (if ang ang (getvar "userr2"))
      angtp (getreal (strcat "\n第一条直线的倒角角度:<" (rtos ang 2 2) ">:"))
      ang (if angtp angtp ang)
      )
(setq pt (entsel "\n选择第一条直线:"))
(setq L1 (* (sin (/ (* (- 90 ang) pi) 180)) L)) ;
(command "chamfer" "a" L1 ang) ;
(command "chamfer" pt)

(prin1)
)