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

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

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

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

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

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

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

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

<P>&nbsp;;;; seg ==&gt; '(bulge p1 p2)&nbsp; ---&gt; (0.41421356 '(0 0) '(1 1))</P>
<P>(defun seg2cir (seg / Vx1 Vx2 Bulge ArcRad HlfAng)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cond<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((zerop (setq Bulge (car seg))) nil)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((setq Vx1 (cadr seg)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Vx2 (caddr seg)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; HlfAng (* 2 (atan Bulge))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ArcRad (abs (/ (/ (distance Vx1 Vx2) 2.0) (sin HlfAng)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (list<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (polar<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Vx1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((if (&lt; Bulge 0) - +) (- (angle Vx1 Vx2) HlfAng) (/ Pi 2))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ArcRad<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ArcRad<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )))<BR>&nbsp;&nbsp;&nbsp; )&nbsp; ;; return '(centerPnt AraRadius)</P>

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

看不懂，可以解释一下吗

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

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

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

<P>真是感激不尽</P>

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

<P>怎么不能保存叶面呀</P>

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

Andyhon 发表于 2005-8-18 22:17 static/image/common/back.gif
&nbsp;;;; seg ==&gt; '(bulge p1 p2)&nbsp; ---&gt; (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?mod=viewthread&tid=56215&replyID=&skin=1
05、06年都是高手了

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

若能做成一个表格标注与cad中更好
页: [1]
查看完整版本: 如何求多义线中圆弧圆心坐标？