如何在cad中画缓和曲线（How to draw a transition curve in CAD）.doc

下载文档 降价啦

16
0
约4.33千字
约 10页
2017-07-24 发布于河南
举报
版权申诉
保障服务

如何在cad中画缓和曲线（How to draw a transition curve in CAD）.doc

1、本文档共10页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

如何在cad中画缓和曲线（How to draw a transition curve in CAD）

如何在cad中画缓和曲线（How to draw a transition curve in CAD） How to draw a transition curve in CAD First, draw the tangent length in CAD Two, running procedures: in the command line, enter HH enter Three, select the two tangent, and then enter the curve radius, such as: 2204.5, enter Four, enter the transition curve length, such as 270, drawing completed! Figure Notepad format content, the new LISP language, in CAD, you must first load Polyline simulation curve;. Enter a stop line, radius, curve length, or design speed. ; command: HH (defun, com_p () (setq, l, 0) (command, UCS, O (list (- 0, x1) 00)) (command, pline (list 000), W, 0 (repeat 1000 (setq L (+ L (/ Ls 1000)) X (+ (- L) (/ (*, l, l, l, l, 40, C, C)) / (/ * l, l, l, l, l, l, l, l, l, C, l,, C, C, C, and) Y (* id__ (+) (- - (/ * l, l, l, l, C, l, l, l, l, l, l,, C,,, C,, C, C, C, C, C, l, l, l, l, l, l, l, C, l, l, l, l)) Setq); (command (list, x, y, 0)) ) repaet ) command (setq, pt5 (trans (list, x, y, 0) 10) ) com_p (defun, ll_v () (setq, V (getreal, \nGive, Velocity:) Ls1 (* V 0.85) Ls2 (/ * 0.0357, V, V, V, R) Ls (max, Ls1, Ls2 (/ R, 9)) Ls (* (fix (/ Ls, 10)) 10) Setq); (if (, Ls, R) (setq, Ls, R)) (ll_d) Ll_v); (defun, ll_d () (setq OS (getvar osmode)) (setvar, osmode, 0) (setq, C (*, Ls, R) Q (- (+) (/ Ls 2) (/ (*, Ls, Ls, 240, R, R)) (/ (*, Ls, Ls, Ls, Ls, Ls, R, R, R, R)) / (/ *, Ls, Ls, Ls, Ls, Ls, Ls, Ls, Ls,,, R, R,, R,, R, R, R)) PT1 (CDR (Assoc 10 (entget (car, P1))) PT2 (CDR (Assoc 11 (entget (car, P1))) Pt10 (polar, pT1 (angle, pT1, pT2) (/ / (distance, pT1, pT2) 2) PT3 (CDR (Assoc 10 (entget (car, P2))) PT4 (CDR (Assoc 11 (entget (car, P2))) PT20 (polar, pT3 (angle, pT3, pT4) (/ / (distance, pT3, pT4) 2) P (+ (- *, Ls, Ls, 24, R) (/ (*, Ls, Ls, Ls, 2688, R, R)) / (/ * Ls, Ls, Ls, Ls, Ls, Ls), R, R, R,, R, R, R, Ls) JD (inters, pT1, pT2, pT3, pT4, Nil) Alf1 (angle, pt10, JD) Alf2 (angle, PT20, JD) ALF (- (angle, JD, PT20) alf1) Setq); (if (or (, ALF, PI) (and ( ALF 0)) ( ALF (- 0, PI))) (progn (setq