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

for-mar

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

未济

利用数学两公式求半径R
sinθ=a/R
L=2θ*π*R/180

for-mar

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

pss0902

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

小城居士

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

coolboy123

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

woaishuijia

* G6 w8 [! y7 n3 E3 u; G; l

1. 
   / l- B, ]! T% L& x( d* z
2. (defun c:aaa(/ p1 p2 l al a a1 a2 alt)
   7 ]4 ]- t; |: u5 c0 O1 R2 ~7 C0 c
3.   (setq p1(getpoint "\n 指定圆弧的起点:" )
   ' ~4 \" o- u) m0 Z" w; ^
4. p2(getpoint p1 "\n 指定圆弧的端点:" )
   
5. l(distance p1 p2)
   + ^6 {9 i' [0 K; \  p
6. al(getdist p2 "\n 指定弧长:" )
   
7. )
   " n8 `* i. E# R& ?! y
8.   (if (> al l)
   
9.     (progn
   
10.       (setq a1 0
    4 P/ f7 K8 a- c' J2 r' r  p
11.      a2 (* pi 2)
    & g* g: k! P: u" H  R+ N- I* x
12.      )
    % {/ s# z  L3 v3 N& ]4 g
13.       (while  (/= alt al)
    . o4 j% ~' w" l& X; y
14. (setq a(/(+ a1 a2) 2)
    * O1 y; O' C' m4 f: i/ |. ~5 i
15.        alt(/(* a l) 2 (sin (/ a 2)))
    
16.        )
    
17. (if (or (= a a1) (= a a2))
    * ~4 z% }, D- N$ m2 g
18.    (setq alt al)
    7 W( a5 }6 X. X
19.    (if (> alt al)
    $ m# R. ~, M0 N5 O3 m( [/ ]
20.      (setq a2 a)
    6 Y- {2 [) a# Q$ V% ?; Y
21.      (setq a1 a)
    
22.      )
    7 C1 f- _9 V! o
23.    )
    
24. )
    / e+ o/ A6 W/ E& t, I
25.       (setq a(/(* a 180)pi))
    
26.       (setvar "CMDECHO" 0)
    
27.       (command "arc" p1 "e" p2 "a" a)
    
28.       (setvar "CMDECHO" 1)
    
29.       )
    
30.     )
    
31.   (princ)
    / ~& H% ~* @, Z6 {1 x) b2 ]! a
32.   )
      `7 m/ l) p: B' V9 W2 }3 H

复制代码

wheasy027

7# woaishuijia

采用lsp进行实用编程，实在！谢谢你的分享！值得大家学习！

for-mar

/ W( t' y% Y+ v6 q  R& Y* k0 }5楼回帖里的方法应该是属于数学上的迭代数值求解，经若干次迭代达到很小的误差，令人眼前一亮，没想到可以将数学如此应用到CAD中来。
7楼的斑斑好NB，拜倒
感谢各位高手的指点，真是受益良多啊。

hh0

$ |' p( T* Z6 y( H- H. c6 J$ f6 v
请教，7楼的程序如何应用？

wang2003

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

" Y& q$ z% ~5 k! i) G* Z
9 u5 I; h$ ]( C* V  a0 l, ?) q1 u' u- O1.将代码复制下来，粘贴到记事本内，保存为LSP格式文件。
% a. G' J6 l: }9 N2 C2.回到CAD，工具——加载应用程序，选中刚保存的LSP格式文件，点保存——关闭。
$ x3 L. D8 t" l* U( O4 z3.命令行内输入aaa，回车。。。。。。。按提示操作。

输入错误

大哥 能在具体点吗
2 K; d8 t" T5 l9 l# S1 r
我想知道怎么画