cad抛物线曲线lisp_CAD画缓和曲线lisp程序精编版

……………………………………………………………最新资料推荐…………………………………………………

CAD

中画缓和曲线，首先复制本文☆后面的源程序保存至

cad

安装目录的

SUPPORT

文件

夹，

保存类型为

.lsp

可以随便复制一个

SUPPORT

文件夹内的

lsp

文件，

然后替换本文的程

序。

打开

CAD

后，输入

appload

回车，找到你保存的缓和曲线

lsp

程序，点击加载，然后

就可以画缓和曲线了。

首先，要画出缓和曲线的两条直线，然后输入

回车，按提示完

成缓和曲线。

注：

本程序，

缓和曲线段拟合长度为

0.4m

，

如需更改拟合长度，

将程序的第

行

(repeat (FIX(/

Ls 0.4))

及

行

(setq l (+ l (/ Ls (FIX(/ Ls 0.4))))

中的

0.4

修改即可。

☆

;;

多义线摹拟缓和曲线。

;;

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

;;

命令：

(defun com_p()

(setq l

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

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

(repeat (FIX(/ Ls 0.4))

(setq l (+ l (/ Ls (FIX(/ Ls 0.4))))

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)

(max Ls1 Ls2 (/ R 9))

(* (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)

(- (+ (- (/ Ls 2) (/ (* Ls Ls Ls) 240 R R)) (/ (* Ls Ls Ls Ls Ls) 34560 R R R R)) (/

cad抛物线曲线lisp_CAD画缓和曲线lisp程序精编版相关推荐

lisp 非对称缓和曲线_CAD画缓和曲线lisp程序
CAD中画缓和曲线,首先复制本文☆后面的源程序保存至cad安装目录的SUPPORT文件夹,保存类型为.lsp 可以随便复制一个SUPPORT 文件夹内的lsp文件,然后替换本文的程序.打开CAD后,输 ...
lisp 非对称缓和曲线_非对称缓和曲线放样计算程序清单（for Casio-fx4850）
编制:苏畅根据他人程序结合本人实际运用修改,十分好用.上传与大家分享非对称缓和曲线放样计算程序清单 (for Casio-fx4850) 扩展变量操作(15个):Defm 15←┚( O为字母 ...
程序适用范围：直线、圆曲线、相等缓和曲线、不等缓和曲线、卵型曲线等公路工程上常见的平面线型号,均能在同一个程序内计算。
该程序只需一次建立数库, 即可进行任意线路位置中边桩坐标计算. 程序适用范围:直线.圆曲线.相等缓和曲线.不等缓和曲线.卵型曲线等公路工程上常见的平面线型号,均能在同一个程序内计算. 二: 适 ...
cad lisp 微盘程序_CAD LISP 程序[精校版本]
<CAD LISP 程序[精校版本]>由会员分享,可在线阅读,更多相关<CAD LISP 程序[精校版本](8页珍藏版)>请在人人文库网上搜索. 1.1.计算所有线段总长度(加 ...
cad的lisp画线_CAD画缓和曲线lisp程序
注: 本程序, 缓和曲线段拟合长度为 0.4m , 如需更改拟合长度, 将程序的第 8 行 (repeat(FIX(/Ls0.4)) 及 9 行 (setql(+l(/Ls(FIX(/Ls0.4))) ...
python绘制缓和曲线_在cad中画缓和曲线的绘制方法
缓和曲线具有以下作用:曲率连续变化,便于车辆遵循:离心加速度逐渐变化,旅客感觉舒适:超高横坡度及加宽逐渐变化,行车更加稳定:与圆曲线配合,增加线形美观.故,缓和曲线在公路.桥梁.铁路及高速铁路中广泛采 ...
python绘制缓和曲线_CAD中缓和曲线的画法 - AutoCAD基础应用 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
在AutoCAD中缓和曲线的几种画法,其实在AutoCAD中,想要画出缓和的曲线是一项比较困难的工作,目前常见的画法可以分为以下的这几种: 1.AutoLISP程序法,使用这个方法要求用户掌握已知的曲 ...
matlab roc曲线,MATLAB画ROC曲线，及计算AUC值
标签: 根据决策值和真实标签画ROC曲线,同时计算AUC的值 function auc = roc_curve(deci,label_y) %%deci=wx+b, label_y, true lab ...
python绘制缓和曲线_autocad绘制缓和曲线
自动绘制缓和曲线圆曲线方法摘要: 根据 AutoCAD 提供的宏, 通过 Microsoft Visual Basic 编写辅助程序绘制曲线. 关键词: 缓和曲线圆曲线绘制说明: 基本线形曲线 ...

cad抛物线曲线lisp_CAD画缓和曲线lisp程序精编版

cad抛物线曲线lisp_CAD画缓和曲线lisp程序精编版相关推荐

最新文章

热门文章