如何画出已知两个端点和弧长的圆弧
如何画出已知两个端点和弧长的圆弧 两个端点和弧长, 不能确定一个弧段吧, 还需要一个条件, 比如包含角度, 或者是弦高之类的 <p>(defun c:aaa (/ p1 p2 s a l x xx fx flx r c c1 c2 mspace myobj) <br/>(defun N () <br/>(setq c (- (+ a (* 0.5 pi)) (* x 0.5))) <br/>(setq cen (polar p1 c r)) <br/>(setq c1 (+ c pi)) <br/>(setq c2 (+ c1 x)) <br/>(setq myobj (vla-addarc mspace (vlax-3d-point cen) r c1 c2)) <br/>(princ) <br/>) <br/>(setq p1 (getpoint "\n请输入圆弧第一点:")) <br/>(setq p2 (getpoint p1 "\n请输入圆弧第二点:")) <br/>(setq s (getdist p1 "\n请输入弧长：")) <br/>(setq a (angle p1 p2)) <br/>(setq l (distance p1 p2)) <br/>(vl-load-com) <br/>(setq mspace (vla-get-modelspace <br/>(vla-get-activedocument (vlax-get-acad-object)) <br/>) <br/>) <br/>(if (<= s l) <br/>(progn <br/>(prompt "您所要画的圆弧并不存在！") <br/>(princ) <br/>) <br/>(progn <br/>(setq x 2) <br/>(setq fx (- (/ (sin (/ x 2)) x) (/ (* 0.5 l) s))) <br/>(setq <br/>flx (/ (- (* 0.5 x (cos (* 0.5 x))) (sin (* 0.5 x))) (* x x)) <br/>) <br/>(setq xx (- x (/ fx flx))) <br/>(while (> (abs (- x xx)) 0.0000000001) <br/>(setq x xx) <br/>(setq fx (- (/ (sin (/ x 2)) x) (/ (* 0.5 l) s))) <br/>(setq flx <br/>(/ (- (* 0.5 x (cos (* 0.5 x))) (sin (* 0.5 x))) (* x x)) <br/>) <br/>(setq xx (- x (/ fx flx))) <br/>) <br/>(setq r (/ s xx)) </p><p>(initget "N S") <br/>(setq aa (getkword "\n 请输入圆弧方向[逆时针(N)/顺时针(S)]:")) <br/>(if (= aa nil) <br/>(setq aa "N") <br/>) <br/>(if (= aa "N") <br/>(N) <br/>(if (= aa "S") <br/>(progn <br/>(setq c (- (+ a (/ x 2)) (* 0.5 pi))) <br/>(setq cen (polar p1 c r)) <br/>(setq c1 (- (+ c pi) x)) <br/>(setq c2 (+ c pi)) <br/>(setq myobj (vla-addarc mspace (vlax-3d-point cen) r c1 c2)) <br/>(princ) <br/>) <br/>) <br/>) <br/>) <br/>) <br/>)</p> <p>条件不够,画不出来</p>这个lsp在2007绝对没问题，但能不能移植到R14下运用呢
这个lsp在2007绝对没问题，但能不能移植到R14下运用呢
页:
[1]