[求助]：求助一个倒内圆角程序，要求见演示！

li_seagull

求助一个倒内圆角程序，要求见演示！

xyp1964

不是有了码，还求助什么？
思路：先f，再镜象之。
[php]
(defun c:test026 (/ s1 s2 s3 pt1 pt2)
  (vl-load-com)
  (vl-cmdf ".undo" "BE")
  (setq        no1 (ureal 1 "" "\n半径" no1)
        s1  (entsel "\n选择第一条线 : ")
        s2  (entsel "\n选择第二条线 : ")
  )
  (setvar "FILLETRAD" no1)
  (command "FILLET" s1 s2)
  (setq s3 (entlast))
  (setq        pt1 (vlax-curve-getstartPoint s3)
        pt2 (vlax-curve-getEndPoint s3)
  )
  (command "MIRROR" s3 "" pt1 pt2 "y")
  (vl-cmdf ".undo" "E")
  (princ)
)[/php]