如何求多义线中圆弧圆心坐标？

m00ner · 发表于 2005-8-17 21:36

怎样用lisp语句求多义线中圆弧圆心坐标？

alin · 发表于 2005-8-18 05:07

取得该段弧的凸度（bulge）,再根据凸度的定义可计算出圆心的位置

m00ner · 发表于 2005-8-18 17:28

凸度取得后怎么求圆心呢？是不是用到坐标变换！请赐教谢谢~

Andyhon · 发表于 2005-8-18 22:17

;;; seg ==> '(bulge p1 p2) ---> (0.41421356 '(0 0) '(1 1))

(defun seg2cir (seg / Vx1 Vx2 Bulge ArcRad HlfAng)
       (cond
        ((zerop (setq Bulge (car seg))) nil)
        ((setq Vx1 (cadr seg)
               Vx2 (caddr seg)
            HlfAng (* 2 (atan Bulge))
            ArcRad (abs (/ (/ (distance Vx1 Vx2) 2.0) (sin HlfAng)))
         )
         (list
           (polar
             Vx1
             ((if (< Bulge 0) - +) (- (angle Vx1 Vx2) HlfAng) (/ Pi 2))
             ArcRad
           )
           ArcRad
       )))
    ) ;; return '(centerPnt AraRadius)

bestafirst · 发表于 2005-8-21 09:57

看不懂，可以解释一下吗

无痕 · 发表于 2005-8-22 02:00

对程序没必要解释，主意是平面几何。通了，程序就成了。

m00ner · 发表于 2005-8-22 17:07

真是感激不尽

ylx0105 · 发表于 2006-5-3 11:05

怎么不能保存叶面呀

革天明 · 发表于 2012-7-31 10:20

Andyhon 发表于 2005-8-18 22:17
 ;;; seg ==> '(bulge p1 p2)  ---> (0.41421356 '(0 0) '(1 1))
(defun seg2cir (seg / Vx1 ...

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=41088
http://bbs.mjtd.com/forum.php?mo ... replyID=&skin=1
05、06年都是高手了

zwf100 · 发表于 2013-7-24 23:41

若能做成一个表格标注与cad中更好

账号		自动登录	找回密码
密码			注册