已知圆弧长和弦长的圆弧应该怎么画

for-mar

如题，已知圆弧的弧长和弦长，在CAD里应该怎样把这段圆弧画出来，想了好久没想到解决办法，请高手指点一下。图形如下：
/ g" h: ?3 R  h% K( L' t9 ^

未济

利用数学两公式求半径R
* K3 {! _) w2 B' ]sinθ=a/R
L=2θ*π*R/180

for-mar

数学方法是可以解，我想试一下作图看看能不能作出来

pss0902

用纯粹的几何作图或CAD作图是做出的，至少要在CAD的命令行里输入计算公式。

小城居士

看看这个是不是有用?http://www.3dportal.cn/discuz/vi ... &extra=page%3D1

coolboy123

楼上提及的方法在工程实践中非常实用。

woaishuijia

- K. `1 H7 b( a2 M: i

1. 
   
2. (defun c:aaa(/ p1 p2 l al a a1 a2 alt)
   + A3 ]& x; Y4 n, d, W7 Q
3.   (setq p1(getpoint "\n 指定圆弧的起点:" )
   
4. p2(getpoint p1 "\n 指定圆弧的端点:" )
   ( U4 C1 W1 x; H) u
5. l(distance p1 p2)
   
6. al(getdist p2 "\n 指定弧长:" )
   5 X% W; J. l# I+ ]* N9 ~
7. )
   
8.   (if (> al l)
   / H+ C! d  \$ e) @$ D
9.     (progn
   
10.       (setq a1 0
    
11.      a2 (* pi 2)
    
12.      )
    % l3 \- B9 s, g% `
13.       (while  (/= alt al)
    ( \+ B4 E. v; B9 y* g4 D8 {
14. (setq a(/(+ a1 a2) 2)
    
15.        alt(/(* a l) 2 (sin (/ a 2)))
    
16.        )
    ( Q/ {7 A  ?" o8 B3 v9 g
17. (if (or (= a a1) (= a a2))
    ! T6 d2 t! H  j; U
18.    (setq alt al)
    
19.    (if (> alt al)
    
20.      (setq a2 a)
    5 A7 T0 `% c* G) i
21.      (setq a1 a)
    ! g  f6 z3 d  j( h2 T2 L
22.      )
    - e' \) S; f$ v  V# X
23.    )
    
24. )
    0 F( h0 _9 P6 S2 ]' E: r/ Q+ O
25.       (setq a(/(* a 180)pi))
    2 i% ]- n0 Y4 l$ W- T( G
26.       (setvar "CMDECHO" 0)
    / l( [, K8 e& ~4 k+ v
27.       (command "arc" p1 "e" p2 "a" a)
    6 w2 l8 U0 \5 U+ ?3 h3 h. E
28.       (setvar "CMDECHO" 1)
    3 P7 D7 e+ Y* U) e
29.       )
    
30.     )
    4 B1 E1 {5 N) y2 M- o! C) F6 L
31.   (princ)
    
32.   )
    ( B- a0 A" w. a) |- M5 o" |: q/ f

复制代码

wheasy027

7# woaishuijia
. F/ _- j! X3 U6 e- C1 r
采用lsp进行实用编程，实在！谢谢你的分享！值得大家学习！

for-mar

$ \4 a- B+ Z: p( N" h0 o) r
" o% c, v; a9 U) v; t7 j; [5楼回帖里的方法应该是属于数学上的迭代数值求解，经若干次迭代达到很小的误差，令人眼前一亮，没想到可以将数学如此应用到CAD中来。
8 [- p# u5 i1 n6 m6 S. u7楼的斑斑好NB，拜倒
感谢各位高手的指点，真是受益良多啊。

hh0

请教，7楼的程序如何应用？

wang2003

请教，7楼的程序如何应用？
hh0 发表于 2010-10-19 09:45 http://www.3dportal.cn/discuz/images/common/back.gif

1 M. F5 }+ u+ g5 l1.将代码复制下来，粘贴到记事本内，保存为LSP格式文件。
% P" ?# [* G0 m8 `" }; e2 C6 j2.回到CAD，工具——加载应用程序，选中刚保存的LSP格式文件，点保存——关闭。
$ C" E+ p& a( L  {" r3.命令行内输入aaa，回车。。。。。。。按提示操作。

输入错误

大哥 能在具体点吗

) ~6 A. D5 q/ ]) G我想知道怎么画