cad画缓和曲线方法

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

在AutoCAD中缓和曲线的几种画法

2011-06-25 20:32

在AutoCAD中画缓和曲线比较困难,目前常用的画法有AutoLISP 程序法(需要已知曲线要素)、坐标脚本法(需事先计算好各特征点及其他点为的坐标)、曲线命令法(需事先准备各特征点坐标),现分别介绍如下:

画法一:缓和曲线AutoLISP 应用程序

一、制作缓和曲线AutoLISP 应用程序

复制AutoLISP程序源代码,打开“记事本”,粘贴进去后,另存为文件名“缓和曲线.LSP”,保存类型为“所有文件”(AutoLISP程序源代码见附件)

二、加载缓和曲线AutoLISP应用程序

在命令行输入“appload”打开自动加载对话框。在对话框的“查找范围”里找到“缓和曲线.LSP”的那个程序,选中后,点击【加载】,显示“已成功加载缓和曲线.LSP”后,关闭对话框,ok你那个程序自动启动加载了。

三、在CAD中画出切线长

四、运行程序在命令行中输入hh回车

五、选择两条切线,然后输入曲线半径如:2204.5回车

六、输入缓和曲线长,如270,绘图完成!

画法二:坐标脚本法

1.现做一个CAD脚本,会的人跳过(用Windows 文本另存为“.scr”文件)

2.脚本编辑输入“SPLINE+空格键+Y坐标+,+X坐标+空格键+Y坐标+,+X坐标……” 以此类推!点输的越密,线条越平滑。也可以用EXCEL算出各个点的坐标后粘贴进去,然后按照“SPLINE+空格键+Y坐标+,+X坐标+空格键+Y坐标+,+X坐标……”格式编辑。

3.进入CAD,运行脚本,就行了!

注意:你可能输入了100个点,而出现的确只有几个点,这个很正常,你把图像删除了,多运行几次就行,一般不超过4次。

画法三:使用真样条曲线命令

举例如下:

输入导线:pline命令绘制1、2、3各点,其对应坐标如下

x1=213.7748 y1=92.1117

x2=313.7748 y2=92.1117

x3=399.6787 y3=143.3026

绘制通过ZH、HZ、QZ、HY和YH各点的与路线导线相切的含缓和曲线的平曲线。

通过计算,五个点的直角坐标为:

ZH:X=232.9548 Y=92.1117

HY:X=285.3608 Y=94.4667

QZ:X=311.8101 Y=99.2371

YH:X=336.9780 Y=108.6801

HZ:X=383.6319 Y=133.7401

使用真样条曲线命令绘制含缓和曲线的平曲线的基本操作步骤如下:

Command(命令): Spline(启动真样条曲线命令)

object/(指定起点):232.9548,92.1117(通过ZH)

Enter point :285.3608,94.4667

Close/Fit Tolerance/(指定下一个点):311.8101,99.2371<通过QZ>

Close/Fit Tolerance/ (指定下一个点):336.9708,108.6801<通过YH>

Close/Fit Tolerance/(指定下一个点):383.6319,133.7401<通过HZ>

Close/Fit Tolerance/(指定下一个点):<加如回车>(选择输入切点的模式)

Enter star tangent(指定起点切向):232.9548,92.1117 (输入起点切点)

Enter star tangent(指定端点切向):383.6319,133.7401 (输入终点的切点)

附件:缓和曲线AutoLISP 程序源代码

;;多义线摹拟缓和曲线。

;;输入起止直线、半径、缓和曲线长或设计车速。

;;命令:HH

(defun com_p()

(setq l 0)

(command "ucs" "o" (list (- 0 x1) 0 0))

(command "pline" (list 0 0 0) "w" "0" ""

(repeat 1000

(setq l (+ l (/ Ls 1000))

x (+ (- l (/ (* l l l l l) 40 C C)) (/ (* l l l l l l l l l) 3456 C C C C))

y (* id__ (+ (- (/ (* l l l) 6 C) (/ (* l l l l l l l) 336 C C C)) (/ (* l l l l l l l l l l l) 42240 C C C C C)))

);setq

(command (list x y 0))

);repaet

);command

(setq pt5 (trans (list x y 0) 1 0))

);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.0)

);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 Ls) 240 R R)) (/ (* Ls Ls Ls Ls Ls) 34560 R R R R)) (/ (* Ls Ls Ls Ls Ls Ls Ls) 8386560 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 Ls) 2688 R R R)) (/ (* Ls Ls Ls Ls Ls Ls) 506880 R R R R R))

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 id__ -1)

(if (> alf pi) (setq alf (- (+ pi pi) alf)) (setq alf (abs alf)))

);progn

(progn

(setq id__ 1)

(if (<= alf (- 0 pi)) (setq alf (+ pi pi alf)))

);progn

);if

(setq x0 (/ (* (+ p R) (sin(/ alf 2.0))) (cos(/ alf 2.0)))

x1 (+ x0 q)

Cl (+ (* alf R) Ls)

E (- (/ (+ R p) (cos(/ alf 2))) R)

);setq

(command "ucs" "o" jd)

(command "ucs" "z" (/ (* 180 alf1) pi))

(com_p) (setq pt6 pt5)

(setq ppt1 (list x1 0 0))

(command "ucs" "")

相关文档
最新文档