- 第一次发帖请多多包涵!
- 根据圆心角和半径计算圆弧凸度(42 . 0.605308)
网友答: 是指弧长吗？网友答:
kfh 发表于 2025-11-23 08:48
是指弧长吗？
组码42的值网友答:
- (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))
- )
- )
- )