tll1923 发表于 2008-6-14 10:33:00

求大侠帮忙编一个lsp

<p>功能是把两条相交的直线按照一定的切线长磨圆</p><p>autocad里自带的_fillet命令只能按照一定的半径磨圆吧！我想按照一定的切线长磨！</p><p>请高手帮忙！谢谢了！</p>

ljttjl 发表于 2008-6-18 22:04:00

<p>可以实现啊，联系ljttjl@ tom.com</p>

byghbcx 发表于 2008-6-19 08:37:00

(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 发表于 2008-6-20 14:24:00

<p>多谢多谢！太感谢<strong><font face="Verdana" color="#61b713">byghbcx了！</font></strong></p><p></p>
页: [1]
查看完整版本: 求大侠帮忙编一个lsp