[求助]怎么得到多段线中ARC的走向及半径？

无痕

我写过么？．．．．


我怎么想不起了了：（　


哎～　年纪大了．．．．

tukuitk

无痕兄，你怎么未老心先衰呀？呵呵…………

LONGXIN

给你帖个公式，你自己试着也写一个吧


我想这个公式才是你想要的吧


       

tukuitk

谢谢各位兄弟帮忙！我去试试先。

tukuitk

SPRING兄弟的程序好像不对，我试了半径不对，麻烦你再看看……

spring

用这个看看,我不记得是谁写的了 :) ;;;根据起点,终点,凸度画圆
(defun cal-cir-r-cen (p1 p2 rb)
(setq center
(polar p1
(+ (- (/ pi 2) (* 2.000000 (atan rb))) (angle p1 p2))
(/ (distance p1 p2)
(* 2.000000 (sin (* 2.000000 (atan rb))))
)
)
)
(setq r (distance p1 center))
(if (> rb 0)
(setq cir-mid (polar center
(+ (angle center p1)
(* (atan (abs rb)) 2)
)
r
)
)
(setq cir-mid (polar center
(- (angle center p1)
(* (atan (abs rb)) 2)
)
r
)
)
)
(command "_.ARC" p1 cir-mid p2)
)
(defun c:aa (/ p1 p2 rb center r cir-mid)
(setq p1 (getpoint "\n第一点"))
(setq p2 (getpoint "\n第二点"))
(setq rb (getreal "\n凸度"))
(cal-cir-r-cen p1 p2 rb)
)

spring

我试过可以

LONGXIN

我把公式都帖出来了，为什么不自己写一个呢？我把前面的改了一下 (setq obj (entget (car (entsel))))
(setq obj (member (assoc 10 obj) obj))
(setq pt1 (cdr (assoc 10 obj)))
(setq obj (member (assoc 42 obj) obj))
(setq b (cdr (assoc 42 obj)))
(setq obj (member (assoc 10 obj) obj))
(setq pt2 (cdr (assoc 10 obj))) (defun GetRadnCtr (PT1 PT2 b / d a a_)
(setq d (distance PT1 PT2)
a (angle PT1 PT2)
)
(setq a_ (* (atan b) 2))
(setq r (abs (/ (/ d 2) (sin a_))))
(if (< b 0)
(setq ctr (polar PT1 (- a (- (/ pi 2) (abs a_))) r))
(setq ctr (polar PT1 (+ a (- (/ pi 2) (abs a_))) r))
)
(command "_.CIRCLE" ctr r)
(princ r)
(princ ctr)

) (getradnctr pt1 pt2 b)

tukuitk

谢谢！spring兄弟，你的程序有问题，请看我的动画。 LONGXIN兄弟，我还没有试你的程序，我先试试，谢谢！

spring

你的动画太快了,我看不清你指定的第一点和第二点,这里面还有个顺时针和逆时针的问题.


另外你的程序是干吗用的?