不修剪的圆角

荒野孤行

具体效果请看图片演示：
功能已集成在WDY工具箱里：http://bbs.mjtd.com/thread-108389-1-1.html

(defun c:t1 (/ rr backup_rr ent1 ent2 ent3)
  (setvar "OSMODE" 15359)
  (setvar "CMDECHO" 0)
  (princ
    "\n★功能：将两线进行圆角但不修剪。\n提示：若要完成结束请按空格键或Enter键，这样撤销操作可一步到位！\n"
  )
  (vl-load-com)
  (setq backup_rr (getvar "FILLETRAD"))
(initget 4)
  (if (not (setq rr (getreal (strcat "\n输入圆角半径：<"
                                     (rtos backup_rr)
                                     ">"
                             )
                    )
           )
      )
    (setq rr backup_rr)
  )
  (setvar "FILLETRAD" rr)
  (command "undo" "be")
  (setvar "OSMODE" 0)
  (while (and (setq ent1 (entsel "\n选择要打断（延伸）的线："))
              (setq ent2 (entsel "\n选择另一条线："))
         )
    (command "copy" (car ent2) "" '(0 0) '(0 0))
    (setq ent3          (entlast)
          obj3          (vlax-ename->vla-object ent3)
          len3          (vlax-curve-getdistatparam
                    obj3
                    (vlax-curve-getendparam obj3)
                  )
    )
    (command "fillet" "T" "T" ent1 ent2)
    (setq obj2 (vlax-ename->vla-object (car ent2))
          len2 (vlax-curve-getdistatparam
                 obj2
                 (vlax-curve-getendparam obj2)
               )
    )
    (if        (<= len2 len3)
      (vla-delete obj2)
      (vla-delete obj3)
    )
    (princ)
  )
  (command "undo" "e")
  (setvar "OSMODE" 15359)
  (princ)
)

xzd716

很好，解决实际问题，要是能对两条多段线进行单边修剪圆角就完美了。

下文没句号。

相当不错的，L 线能行，能加一个PL线的就好了。

水仙的错

如果适用于PL线就好了，多段线就圆不了角

白色微風1991

學習學習，非常感謝樓主

xzd716

不错，好用

999999

刚刚好，有些时候可以用上，，谢谢大神

水仙的错

这个用了感觉还不错

lcy03185405532

不错，谢谢楼主分享

dabingrain

？？？？？？？？？？？？？？看看内容