[求助]：各位高手能否修改一下这个圆角编辑工具，让他支持编辑弧，SPL之间的圆角？

武陵山人

这个LSP现在只支持修改两直线的圆角半径，不知各位高手能否修改一下让它支持编辑弧和弧，SPL和SPL，SPL和弧之间的圆角半径？

andyhua5240

支持一下，我想山人的程序一定不错！
顶起来！
谢谢！

梦断江南

理论上可以支持弧,多义线，但是ｓｐｌｉｎｅ就麻烦了：）
ｓｐｌｉｎｅ可以增大弧角半径，但是不能缩小．因为ｓｐｌｉｎｅ不能伸展（可以剪切）．
对ｓｐ伸展是个难题，不知道谁有研究？

aeo

最初由 梦断江南 发布
[B]理论上可以支持弧,多义线，但是ｓｐｌｉｎｅ就麻烦了：）
ｓｐｌｉｎｅ可以增大弧角半径，但是不能缩小．因为ｓｐｌｉｎｅ不能伸展（可以剪切）．
对ｓｐ伸展是个难题，不知道谁有研究？ [/B]

spline是不可能有伸展的,因为它可以到任意地方.

可以切线方向画一辅助线.

aeo

[php]
(defun c:df( / getss arc e e1 e1n e2 en lay p1 p2 pt rad ss)
(defun getss(pt / ss)
   (if(and(setq ss(ssget"c"(polar pt 1.7 0.1)(polar pt 4.7 0.1) (list(cons 8 lay))))
          (setq ss(ssdel e ss))
          (>(sslength ss)0)
      )(ssname ss 0)
   ))
   
  (if(and(setq e(car(entsel)))
         (setq en(entget e))
         (setq lay(cdr(assoc 8 en))
               arc(cdr(assoc 0 en))
         )
         (wcmatch arc "ARC,LINE,*POLYLINE")
         (setq p1(vlax-curve-getstartpoint e)
               p2(vlax-curve-getendpoint e)
          )
          (setq e1(getss p1))
          (setq e1n(entget e1))
          (setq e2(getss p2))
          (if(= arc "ARC")(princ (strcat"\n<"(rtos(cdr(assoc 40 en))2 3)"> NEW: "))(princ"RAD: "))
          (setq rad(getdist))
       )
       (progn
      (command ".undo""begin")
      (setvar "filletrad" rad)
      (command "fillet" (list e1 p1)(list e2 p2))
      (if(/=(getvar "cmdnames")"")(command ^C))
      (if(not(equal(entget e1)e1n))(entdel e))
      (command".undo""end")
       ))
       (princ)
)
[/php]
cad本身不能圆角的，就不执行.

选择的东西不一定是弧.

武陵山人

谢谢 aeo ，你提供的程序比我的那个好用多了。

andyhua5240

程序非常的好用，最好能改为支持多选，窗选！
谢谢！

aeo

最初由 andyhua5240 发布
[B]程序非常的好用，最好能改为支持多选，窗选！
谢谢！ [/B]

有了上面，自己都可以改

[php]
(defun c:df1( / ss rad j len $_df)
(defun $_df(e rad / getss arc e1 e1n e2 en lay p1 p2 pt ss)
(defun getss(pt / ss)
   (if(and(setq ss(ssget"c"(polar pt 1.7 0.1)(polar pt -1.7 0.1) (list(cons 8 lay))))
          (setq ss(ssdel e ss))
          (>(sslength ss)0)
      )(ssname ss 0)
   ))
   
  (if(and(setq en(entget e))
         (setq lay(cdr(assoc 8 en))
               arc(cdr(assoc 0 en))
         )
         (setq p1(vlax-curve-getstartpoint e)
               p2(vlax-curve-getendpoint e)
          )
          (setq e1(getss p1))
          (setq e1n(entget e1))
          (setq e2(getss p2))
       )
       (progn
      (command "fillet" (list e1 p1)(list e2 p2))
      (if(/=(getvar "cmdnames")"")(command ^C))
      (if(not(equal(entget e1)e1n))(entdel e))
       ))
   );;;---
     (if(and(setq ss (ssget '((0 . "ARC,LINE,*POLYLINE"))))
            (progn(initget 4)(setq rad(getdist"\n半径: ")))
            (setq j -1 len(sslength ss))   
         )
      (progn
       (command ".undo""begin")
       (setvar "filletrad" rad)
       (while(< (setq j(1+ j)) len)
        (setq e(ssname ss j))
        ($_df e rad)
       )
       (command".undo""end")
      )
     )(princ)
)
[/php]

andyhua5240

谢谢斑竹！

xumaling

为什么我运行不行啊？

zh_6531394

我也运行不行啊