求大侠帮忙编一个lsp

tll1923

功能是把两条相交的直线按照一定的切线长磨圆

AutoCAD里自带的_fillet命令只能按照一定的半径磨圆吧！我想按照一定的切线长磨！

请高手帮忙！谢谢了！

ljttjl

可以实现啊，联系ljttjl@ tom.com

byghbcx

2. (DEFUN TEST( / ename1 ename2 rad basrad enlast PT1 PT2 ang ang1 ang2 ptc)
3.    (setq ename1 (entsel "\n请选择对象1")
4.   ename2 (entsel "\n请选择对象2")
5.   rad    (getreal "\n请输入切线长:")
6.    )
7.   (if (and rad ename1 ename2 (not (eq ename1 ename2)))
8.      (progn
9.        (setq basrad (getvar"filletrad"))
10.        (setvar "filletrad" 1)
11.        (command ".fillet" ename1 ename2)
12.        (setq enlast (entlast) DXF (ENTGET ENLAST))
13.        (if (= "ARC" (CDR (ASSOC 0 DXF)))
14.   (PROGN
15.     (SETQ PT1 (POLAR (CDR (ASSOC 10 DXF)) (CDR (ASSOC 50 DXF)) (CDR (ASSOC 40 DXF))))
16.     (SETQ PT2 (POLAR (CDR (ASSOC 10 DXF)) (CDR (ASSOC 51 DXF)) (CDR (ASSOC 40 DXF))))
17.     (command "_.erase" enlast "")
18.     (setq ang1 (CDR (ASSOC 50 DXF)) ang2 (CDR (ASSOC 51 DXF)))
19.     (if (> ang1 ang2)
20.       (setq ang1 (- ang1 (* pi 2.0)))
21.     )
22.     (setq ang (/ (- ang2 ang1) 2))
23.     (setvar "filletrad" (/ rad (/ (sin ang) (cos ang))))
24.     (command ".fillet" ename1 ename2)
25.   )
26.        (setvar "filletrad" basrad)
27.        )
28.      )
29.     )
30.   (princ)
31.    )

(DEFUN TEST( / ename1 ename2 rad basrad enlast PT1 PT2 ang ang1 ang2 ptc)    (setq ename1 (entsel "\n请选择对象1")   ename2 (entsel "\n请选择对象2")   rad    (getreal "\n请输入切线长:")    )   (if (and rad ename1 ename2 (not (eq ename1 ename2)))      (progn        (setq basrad (getvar"filletrad"))        (setvar "filletrad" 1)        (command ".fillet" ename1 ename2)        (setq enlast (entlast) DXF (ENTGET ENLAST))        (if (= "ARC" (CDR (ASSOC 0 DXF)))   (PROGN     (SETQ PT1 (POLAR (CDR (ASSOC 10 DXF)) (CDR (ASSOC 50 DXF)) (CDR (ASSOC 40 DXF))))     (SETQ PT2 (POLAR (CDR (ASSOC 10 DXF)) (CDR (ASSOC 51 DXF)) (CDR (ASSOC 40 DXF))))     (command "_.erase" enlast "")     (setq ang1 (CDR (ASSOC 50 DXF)) ang2 (CDR (ASSOC 51 DXF)))     (if (> ang1 ang2)       (setq ang1 (- ang1 (* pi 2.0)))     )     (setq ang (/ (- ang2 ang1) 2))     (setvar "filletrad" (/ rad (/ (sin ang) (cos ang))))     (command ".fillet" ename1 ename2)   )        (setvar "filletrad" basrad)        )      )     )   (princ)    )

tll1923

多谢多谢！太感谢byghbcx了！