xyxm 发表于 2025-11-22 14:16:08

计算圆弧凸度


[*]第一次发帖请多多包涵!
[*]根据圆心角和半径计算圆弧凸度(42 . 0.605308)

xyp1964 发表于 2025-11-24 23:25:06

(defun ArcBulge (s1 / d50 d51 rad td)
;; (ArcBulge (setq s1(car(entsel"\n选择圆弧: "))))
"ArcBulge 圆弧凸度 (ArcBulge s1圆弧)"
(defun dxf (code e) (cdr (assoc code (entget e))))
(defun tan (ang) (/ (sin ang) (cos ang)))
(if (equal (dxf 0 s1) "ARC")
    (setq d50 (dxf 50 s1)
          d51 (dxf 51 s1)
          rad (if (> d51 d50)
                (- d51 d50)
                (+ (- (* pi 2) d50) d51)
            )
          td(tan (* rad 0.25))
    )
)
)

kfh 发表于 2025-11-23 08:48:26

是指弧长吗？

xyxm 发表于 2025-11-24 10:35:52

kfh 发表于 2025-11-23 08:48
是指弧长吗？

组码42的值

xyxm 发表于 2025-12-1 10:51:33

xyp1964 发表于 2025-11-24 23:25


院长好！:lol
页: [1]
查看完整版本: 计算圆弧凸度