电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

AutoLISP绘制三维螺旋楼梯

AutoLISP绘制三维螺旋楼梯_第1页
1/6
AutoLISP绘制三维螺旋楼梯_第2页
2/6
AutoLISP绘制三维螺旋楼梯_第3页
3/6
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)...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

AutoLISP绘制三维螺旋楼梯

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部