cad抛物线曲线lisp_cad画缓和曲线lisp程序(1)

CAD

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

cad

安装目录的

SUPPORT

文件

夹，

保存类型为

.lsp

可以随便复制一个

SUPPORT

文件夹内的

lsp

文件，

然后替换本文的程

序。

打开

CAD

后，输入

appload

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

lsp

程序，点击加载，然后

就可以画缓和曲线了。

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

回车，按提示完

成缓和曲线。

注：

本程序，

缓和曲线段拟合长度为，

如需更改拟合长度，

将程序的第

行

(repeat

(FIX(/

Ls )

及

行

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

中的修改即可。

☆

;;

多义线摹拟缓和曲线。

;;

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

;;

命令：

(defun com_p()

(setq l 0)

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

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

(repeat (FIX(/ Ls )

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

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

Ls2 (/ (* V V V) R)

Ls (max Ls1 Ls2 (/ R 9))

Ls (* (fix (/ Ls 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)

cad抛物线曲线lisp_cad画缓和曲线lisp程序(1)相关推荐

cad抛物线曲线lisp_CAD画缓和曲线lisp程序精编版
-----------------------最新资料推荐------------------- 1 CAD 中画缓和曲线,首先复制本文☆后面的源程序保存至 cad 安装目录的 SUPPORT 文件 ...
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程序
注: 本程序, 缓和曲线段拟合长度为 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 编写辅助程序绘制曲线. 关键词: 缓和曲线圆曲线绘制说明: 基本线形曲线 ...
python画pr曲线_python 画函数曲线示例
python 画函数曲线示例如下所示: import numpy as np import matplotlib.pyplot as plt x = np.linspace(0, 2 * np.pi ...

cad抛物线曲线lisp_cad画缓和曲线lisp程序(1)

cad抛物线曲线lisp_cad画缓和曲线lisp程序(1)相关推荐

最新文章

热门文章