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

for-mar

如题，已知圆弧的弧长和弦长，在CAD里应该怎样把这段圆弧画出来，想了好久没想到解决办法，请高手指点一下。图形如下：
% ~7 i" W  R" z% T

未济

利用数学两公式求半径R
sinθ=a/R
* X- i4 w/ }& i3 i0 EL=2θ*π*R/180

for-mar

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

pss0902

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

小城居士

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

coolboy123

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

woaishuijia

8 V3 Y, J: }$ ^  i4 J

1. 
   
2. (defun c:aaa(/ p1 p2 l al a a1 a2 alt)
   
3.   (setq p1(getpoint "\n 指定圆弧的起点:" )
   
4. p2(getpoint p1 "\n 指定圆弧的端点:" )
   ' {3 Z* T. R1 n% T4 M8 B
5. l(distance p1 p2)
   " F/ y: U: L* k4 l
6. al(getdist p2 "\n 指定弧长:" )
   
7. )
   $ n2 p3 G9 m; C$ t3 @2 [
8.   (if (> al l)
   & z& {" s3 E# q- ^
9.     (progn
   ; Q0 d( F: x' R  A3 M
10.       (setq a1 0
    
11.      a2 (* pi 2)
    
12.      )
    $ S4 E' Q8 ?; ]0 B3 S' i& m5 z3 l+ ~
13.       (while  (/= alt al)
    
14. (setq a(/(+ a1 a2) 2)
    
15.        alt(/(* a l) 2 (sin (/ a 2)))
      _' q' T  {, G
16.        )
    ( E% B2 u5 {) {; a& N
17. (if (or (= a a1) (= a a2))
    
18.    (setq alt al)
    + D, Z: T1 I; k5 B: H6 O6 z
19.    (if (> alt al)
    
20.      (setq a2 a)
    ) K: [) }1 U: @* X3 K3 y0 _
21.      (setq a1 a)
    + V( b! U  I% m
22.      )
    # G- ?5 X; g% E$ L
23.    )
    
24. )
    8 K6 v6 Y6 K* Q- t4 H
25.       (setq a(/(* a 180)pi))
    . b* L+ ^9 q0 w. X  v5 \  R* J
26.       (setvar "CMDECHO" 0)
    / \7 J3 {8 q3 C0 W: d
27.       (command "arc" p1 "e" p2 "a" a)
    
28.       (setvar "CMDECHO" 1)
    
29.       )
    6 |' _( t8 L- o5 X! R3 f. v' g
30.     )
    
31.   (princ)
    
32.   )
    

复制代码

wheasy027

7# woaishuijia
. [  ?8 U3 b1 Y: }9 ~. G+ C8 v+ n8 B
  Q  m0 V. w, ~# }  b( B采用lsp进行实用编程，实在！谢谢你的分享！值得大家学习！

for-mar

1 b' O" |# d9 [5楼回帖里的方法应该是属于数学上的迭代数值求解，经若干次迭代达到很小的误差，令人眼前一亮，没想到可以将数学如此应用到CAD中来。
& P: o# c6 N' p( c+ C" M  K* n7楼的斑斑好NB，拜倒
感谢各位高手的指点，真是受益良多啊。

hh0

& V; K0 ]* S7 M/ r请教，7楼的程序如何应用？

wang2003

请教，7楼的程序如何应用？
" Y0 |% r' b; Y0 Fhh0 发表于 2010-10-19 09:45 http://www.3dportal.cn/discuz/images/common/back.gif

8 y( E2 s1 J# {! D8 t* ]* w1 V
1.将代码复制下来，粘贴到记事本内，保存为LSP格式文件。
2.回到CAD，工具——加载应用程序，选中刚保存的LSP格式文件，点保存——关闭。
3.命令行内输入aaa，回车。。。。。。。按提示操作。

输入错误

大哥 能在具体点吗
/ `2 `7 F8 H  I; R2 g  W
/ Y6 D+ b: @/ K我想知道怎么画