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

for-mar

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

未济

利用数学两公式求半径R
sinθ=a/R
1 I3 T; t, p9 y- B$ q& e& _6 ~3 ZL=2θ*π*R/180

for-mar

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

pss0902

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

小城居士

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

coolboy123

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

woaishuijia

2 b% l2 ~( t6 r, T8 x4 a

1. 
   
2. (defun c:aaa(/ p1 p2 l al a a1 a2 alt)
   
3.   (setq p1(getpoint "\n 指定圆弧的起点:" )
   % j- F& ^! Q! K0 G+ i+ O  K
4. p2(getpoint p1 "\n 指定圆弧的端点:" )
   8 |, l; c. g- d
5. l(distance p1 p2)
   
6. al(getdist p2 "\n 指定弧长:" )
   ) p/ Q% D! a: _" z( M% ]: s
7. )
   
8.   (if (> al l)
   + ?' ~- b# n1 [
9.     (progn
   
10.       (setq a1 0
    $ C  {- w$ t+ Q- T
11.      a2 (* pi 2)
    6 Q" x/ Z' Z  C/ ?( P
12.      )
    
13.       (while  (/= alt al)
    
14. (setq a(/(+ a1 a2) 2)
    1 _2 z# `; f" I, \( f+ z
15.        alt(/(* a l) 2 (sin (/ a 2)))
    , `. Z1 C2 G7 M* Z  I7 Z+ C
16.        )
    
17. (if (or (= a a1) (= a a2))
    
18.    (setq alt al)
    
19.    (if (> alt al)
    
20.      (setq a2 a)
    5 x: B5 o6 v4 U3 |4 v
21.      (setq a1 a)
    4 J$ V) E1 j' r2 Z4 B
22.      )
    $ |% Y+ q- k) Y7 t  ?
23.    )
    
24. )
    
25.       (setq a(/(* a 180)pi))
    ! u9 s# m; f! z8 r) ]" x
26.       (setvar "CMDECHO" 0)
    & R! @) x7 G' h. G; ?
27.       (command "arc" p1 "e" p2 "a" a)
    5 V, B2 I1 `" [' `- a5 M
28.       (setvar "CMDECHO" 1)
    
29.       )
    , e* M: g# s5 p# Z+ t1 R3 z
30.     )
    " O6 N8 S8 f  ?, R5 [
31.   (princ)
    
32.   )
    ) [) ]" P$ f. S# ?! q

复制代码

wheasy027

7# woaishuijia
+ U3 |, n7 [+ N
9 o' R9 n1 d7 X# {  `采用lsp进行实用编程，实在！谢谢你的分享！值得大家学习！

for-mar

& A" I$ S' w/ ]& `5楼回帖里的方法应该是属于数学上的迭代数值求解，经若干次迭代达到很小的误差，令人眼前一亮，没想到可以将数学如此应用到CAD中来。
- f0 Q, W' ]6 j$ d  ^3 G1 c7楼的斑斑好NB，拜倒
% C' _- D" ~' O2 R7 U% q& ~" A感谢各位高手的指点，真是受益良多啊。

hh0

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

wang2003

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

1.将代码复制下来，粘贴到记事本内，保存为LSP格式文件。
2.回到CAD，工具——加载应用程序，选中刚保存的LSP格式文件，点保存——关闭。
5 H5 a0 h& j* ~! H5 j* D' z5 x3.命令行内输入aaa，回车。。。。。。。按提示操作。

输入错误

大哥 能在具体点吗
$ \' G9 z1 U8 G
/ H. ]* t' e6 H- _我想知道怎么画