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)) (if cla (setvar "clayer" cla)) (if os1 (setvar "osmode" os1)) (princ) ) (defun spinfo (/ ht) ; staircase parameter (setq cp (getpoint "\n 螺旋梯圆心点: ") lp (getpoint cp "\n 首级内圆起始点: ") riser (getdist "\n 梯级高: ") step (getdist "\n 内圆最窄梯级宽: ") wide (getdist "\n 楼梯宽度: ") hrl (getdist "\n 扶手高: ") thi (getdist "\n 底板厚度: ") ht (getdist "\n 层高: ") case (fix (/ ht riser)) riser (/ ht case) ls (sqrt (+ (expt riser 2) (expt step 2))) a (/ riser ls) ; sin A b (/ step ls) ; cos A c lp ) ); end SPINFO (defun spcalc (/ os1) (setq os1 (getvar "osmode")) (initget "L R B N") (setq ans (getkword "\n 选择扶手(L)左 /(R)右 /(B)双边/(N)无 : ")) (if (not ans)(setq ans "N")) (setq blksp (open "blksp.lst" "r")) (if (not (equal blksp nil)) (setq blk (read-line blksp)) ) (if (equal blk nil) (setq blk "sp1") (setq blk (strcat "sp" (itoa (1+ (atoi (substr blk 3))))) ) ) (setq r (distance cp lp)...
