QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 5578|回复: 11
收起左侧

[已解决] 已知圆弧长和弦长的圆弧应该怎么画

[复制链接]
发表于 2010-5-22 17:47:55 | 显示全部楼层 |阅读模式 来自: 中国广东东莞

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
如题,已知圆弧的弧长和弦长,在CAD里应该怎样把这段圆弧画出来,想了好久没想到解决办法,请高手指点一下。图形如下:+ J, U' `  h' B8 C$ {$ z
cad.JPG
发表于 2010-5-22 18:23:27 | 显示全部楼层 来自: 中国广东肇庆
利用数学两公式求半径R1 m' M# c, @* B3 L0 V3 d9 S
sinθ=a/R
% F: `$ e  R" K* R$ NL=2θ*π*R/180
 楼主| 发表于 2010-5-22 18:54:26 | 显示全部楼层 来自: 中国广东东莞
数学方法是可以解,我想试一下作图看看能不能作出来
发表于 2010-5-22 21:46:11 | 显示全部楼层 来自: 中国上海
用纯粹的几何作图或CAD作图是做出的,至少要在CAD的命令行里输入计算公式。
发表于 2010-5-22 22:52:07 | 显示全部楼层 来自: 中国湖北荆州

评分

参与人数 1三维币 +3 收起 理由
★新手★ + 3 应助

查看全部评分

发表于 2010-5-23 14:00:17 | 显示全部楼层 来自: 中国安徽芜湖
楼上提及的方法在工程实践中非常实用。
发表于 2010-5-23 21:44:59 | 显示全部楼层 来自: 中国北京
本帖最后由 woaishuijia 于 2010-5-24 12:18 编辑 * y& g, Q3 A& n4 ?
  1. 5 E+ ]0 i; Y9 y3 f2 t$ N$ c0 j) g
  2. (defun c:aaa(/ p1 p2 l al a a1 a2 alt)/ r( t- l$ B; I) b, L1 R4 V( y
  3.   (setq p1(getpoint "\n 指定圆弧的起点:" )
    1 G  q. @( e# K( J1 r3 _
  4. p2(getpoint p1 "\n 指定圆弧的端点:" )
    ) f2 P; c( P. a! `% L
  5. l(distance p1 p2)0 H  G, x% F! `: _  X9 @8 c
  6. al(getdist p2 "\n 指定弧长:" )
    6 g0 b# m2 V3 d" H$ R4 A
  7. ): `: H0 ?# c( ^! F8 _$ t. g) R) U
  8.   (if (> al l)- x# c9 g! n, k' c9 `" b: L, U
  9.     (progn% ^4 Z, R0 S/ Z3 J: Q# f
  10.       (setq a1 0
    % s. U$ W/ O$ U1 n" N9 |( I5 X* R
  11.      a2 (* pi 2)5 S5 H% m1 a8 a9 @) W
  12.      )
    3 _) R" H& W  g" B, s% U
  13.       (while  (/= alt al)
    $ g# l" T) n) @" ~: f' A
  14. (setq a(/(+ a1 a2) 2)
    + d6 A5 j; V7 u: b( ?. R3 M! F1 W
  15.        alt(/(* a l) 2 (sin (/ a 2)))
    ) R' Z# [8 {" r
  16.        )
    ' g3 X- {; s1 E
  17. (if (or (= a a1) (= a a2))" b0 b  ^& m# i' ?' M1 f/ W0 |
  18.    (setq alt al)7 w3 M" E, {: X% b4 i
  19.    (if (> alt al)1 j# l% O6 ^1 A8 c! ?
  20.      (setq a2 a): G% {3 X: _$ x, d$ G
  21.      (setq a1 a)0 T) u- O! e% ~
  22.      )
    2 E& ]# h; [+ [! n8 e
  23.    )
    7 y+ w: }' ?/ K
  24. )- v+ x, A/ E  j: Y8 C
  25.       (setq a(/(* a 180)pi))
    . _( ?! k. W6 A( g( z6 r/ n
  26.       (setvar "CMDECHO" 0)/ |" q! e: }6 ]0 t
  27.       (command "arc" p1 "e" p2 "a" a)' F  ]/ ]( a  \  r7 Q( H- Y
  28.       (setvar "CMDECHO" 1)7 y4 B$ [. q/ g0 t# ^1 n- z; e
  29.       )
    * d! ]$ v) M! k3 r/ m
  30.     )$ o) `! E) R3 q" `0 m
  31.   (princ)
    4 G" E0 `( {1 Q+ \
  32.   )" J% n" l2 v" \- A9 i$ j4 V
复制代码

评分

参与人数 1三维币 +8 收起 理由
★新手★ + 8 应助

查看全部评分

发表于 2010-5-24 15:03:37 | 显示全部楼层 来自: 中国江苏扬州
7# woaishuijia
/ R) y# J9 e0 L8 q* \5 G0 U! L+ c; ^3 C" m* D- O
采用lsp进行实用编程,实在!谢谢你的分享!值得大家学习!
 楼主| 发表于 2010-5-24 19:16:55 | 显示全部楼层 来自: 中国广东东莞
本帖最后由 for-mar 于 2010-5-24 19:18 编辑 & C4 n/ z7 V4 Q7 b

8 t+ z- i% U- `* n3 [5 R: b* H5楼回帖里的方法应该是属于数学上的迭代数值求解,经若干次迭代达到很小的误差,令人眼前一亮,没想到可以将数学如此应用到CAD中来。) g- v6 a7 K, [3 |$ F4 {* e# ?( `
7楼的斑斑好NB,拜倒, B9 E- b* b2 g( M
感谢各位高手的指点,真是受益良多啊。
发表于 2010-10-19 09:45:38 | 显示全部楼层 来自: 中国山东东营
本帖最后由 hh0 于 2010-10-19 09:51 编辑 6 S# E/ |0 m% g& S, s9 ^( y. {
/ j. L' s) {! H
请教,7楼的程序如何应用?
发表于 2010-10-19 10:17:53 | 显示全部楼层 来自: 中国河南郑州
请教,7楼的程序如何应用?( U; a' z+ {4 E1 u8 y
hh0 发表于 2010-10-19 09:45 http://www.3dportal.cn/discuz/images/common/back.gif

" p2 Q; X, O  {, e3 X( f
) B0 D  i% Y9 ]5 x0 A* P1.将代码复制下来,粘贴到记事本内,保存为LSP格式文件。
1 c! m: k0 q6 T* M9 R* F% G2.回到CAD,工具——加载应用程序,选中刚保存的LSP格式文件,点保存——关闭。) c4 `; H: F9 t+ D
3.命令行内输入aaa,回车。。。。。。。按提示操作。
发表于 2011-3-25 15:34:40 | 显示全部楼层 来自: 中国浙江温州
大哥 能在具体点吗
$ `% C* b. n* n; \
& J1 b! z6 a9 w# h我想知道怎么画
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表