AutoLISP绘制三维螺旋楼梯.docVIP

AutoLISP 绘制三维螺旋楼梯 　　一、〖说明〗 　　本例程能够绘制建筑中的三维螺旋楼梯。根据指定的参数：圆心点、梯级高、最窄梯级宽、楼梯宽度、扶手高、底板厚度和层高，程序将自动计算并绘制出以3dface和tabsurf组成的三维螺旋楼梯模型。程序能在R12至R14版的AutoCAD中运行。 二、〖安装〗 　　将程序代码一节的文本裁剪下来，保存成名为3DSP.LSP的文本文件；将这个文件拷贝到AutoCAD的系统目录中。 三、〖使用〗 　　在AutoCAD命令行键入：(load 3dsp)然后执行：3dsp，按程序中的提示操作即可。(程序中的提示已改为中文，若需要英文提示可自行修改提示字符串或跟我联系） 四、〖程序代码〗 ;;;begain 3dsp.lsp (defun dtr (r) (* r (/ pi 180.0))) (defun rtd (r) (* r (/ 180.0 pi))) (defun 3dsp_err (s) (if (not (member s (list console break Function cancelled quit/exit abort))) (princ (strcat \n3DSP Error: s)) ) (if cmd (setvar cmdecho cmd)) (if bli (setvar blipmode bli))