不够边长倒圆角 有时出错倒反方向左右 请帮忙改一改

lzg8877

(defun c:FRR (/ *error* oldCmdEcho oldOsmode en1 en2 obj1 obj2 rad lastRad pickPt intPt pt1 pt2 pt3 pt4 len1 len2 side1 side2)

    (vl-load-com)

    (defun *error* (msg)
        (if oldCmdEcho (setvar "CMDECHO" oldCmdEcho))
        (if oldOsmode (setvar "OSMODE" oldOsmode))
        (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
            (princ (strcat "\n错误: " msg))
        )
    )

    ; 获取或设置上一次的半径值
    (if (setq lastRad (getenv "FRR_LastRadius"))
        (setq lastRad (atof lastRad))
        (setq lastRad 5.0) ; 默认半径5.0
    )

    (setq oldCmdEcho (getvar "CMDECHO"))
    (setq oldOsmode (getvar "OSMODE"))
    (setvar "CMDECHO" 0)
    (setvar "OSMODE" 0)

    ; 获取圆角半径，使用上一次的值作为默认
    (initget 6)
    (setq rad (getdist (strcat "\n请输入圆角半径 <" (rtos lastRad 2 2) ">: ")))
    (if (not rad) (setq rad lastRad))
    (setenv "FRR_LastRadius" (rtos rad 2 8))

    ; 选择第一条线
    (setq en1 (car (entsel "\n选择第一条线: ")))
    (while (not (wcmatch (cdr (assoc 0 (entget en1))) "LINE,*POLYLINE"))
        (princ "\n所选对象不是直线或多段线，请重新选择第一条线: ")
        (setq en1 (car (entsel)))
    )

    ; 获取鼠标点击位置（用于判断方向）
    (setq pickPt (getvar "LASTPOINT"))

    ; 选择第二条线
    (setq en2 (car (entsel "\n选择第二条线: ")))
    (while (not (wcmatch (cdr (assoc 0 (entget en2))) "LINE,*POLYLINE"))
        (princ "\n所选对象不是直线或多段线，请重新选择第二条线: ")
        (setq en2 (car (entsel)))
    )

    (setq obj1 (vlax-ename->vla-object en1))
    (setq obj2 (vlax-ename->vla-object en2))

    ; 获取线的端点
    (setq pt1 (vlax-curve-getStartPoint obj1))
    (setq pt2 (vlax-curve-getEndPoint obj1))
    (setq pt3 (vlax-curve-getStartPoint obj2))
    (setq pt4 (vlax-curve-getEndPoint obj2))

    ; 计算交点
    (setq intPt (inters pt1 pt2 pt3 pt4 nil))

    (if (not intPt)
        (progn
            (princ "\n错误: 所选两条线不相交!")
            (setvar "CMDECHO" oldCmdEcho)
            (setvar "OSMODE" oldOsmode)
            (exit)
        )
    )

    ; 根据鼠标位置判断圆弧方向
    (setq side1 (if (< (distance pt1 pickPt) (distance pt2 pickPt)) pt1 pt2))
    (setq side2 (if (< (distance pt3 pickPt) (distance pt4 pickPt)) pt3 pt4))

    ; 计算需要延长的长度
    (setq len1 (distance intPt side1))
    (setq len2 (distance intPt side2))

    ; 延长第一条线
    (if (< len1 rad)
        (progn
            (command "_.lengthen" "_de" (- rad len1) (list en1 side1) "")
            (princ (strcat "\n第一条线已延长 " (rtos (- rad len1) 2 2)))
        )
    )

    ; 延长第二条线
    (if (< len2 rad)
        (progn
            (command "_.lengthen" "_de" (- rad len2) (list en2 side2) "")
            (princ (strcat "\n第二条线已延长 " (rtos (- rad len2) 2 2)))
        )
    )

    ; 执行圆角命令（使用标准AutoCAD选线方式）
    (command "_.fillet" "_r" rad "_fillet" en1 en2)

    (setvar "CMDECHO" oldCmdEcho)
    (setvar "OSMODE" oldOsmode)
    (princ)
)

(princ "\n自动延长倒圆角程序已加载，输入 FRR 运行。")
(princ)

自贡黄明儒

这 么复杂，为什么不直接用命令_.fillet？两条平行线也可以倒角的。