[编程申请]：步高，步长 步数自动生成楼梯剖面的PLINE

doongs

突然觉得画楼梯剖面也是一件比较麻烦的事
虽然其它的建筑软件可以实现自动楼梯剖面，但大都机械，不能满足复杂状况

其实楼梯也就是踏步的剖面比较复杂

所以请球编一个可以实现楼梯剖面的程序

1：输入三个参数：步数 步宽 步高 就自动生成了剖面的PLINE线，注意，这个PLINE线的开始和结尾都应该是步高。
2：输入三个参数：步数 步高，总高
因为步高常常不是整数，多少等分了

xyp1964

2. [FONT=courier new];;; 网络u盘下载并加载通用函数xyplib.vlx
   
3. ;;; 步高，步长 步数自动生成楼梯剖面的PLINE
   
4. (defun c:test ()
   
5.   (CMDLA0)
   
6.   (SETQ        NO1 (UREAL 1 "" "步高" NO1)
   
7.         NO2 (UREAL 1 "" "步长" NO2)
   
8.         INT (UINT 7 "" "步数" INT)
   
9.   )
   
10.   (while (setq pt0 (getpoint "\n起点: "))
    
11.     (setq ptn '())
    
12.     (repeat int
    
13.       (setq pt1        (xyp-get-Pt2XYZ pt0 0 no1 0)
    
14.             ptn        (cons pt0 ptn)
    
15.             ptn        (cons pt1 ptn)
    
16.             pt0        (xyp-get-Pt2XYZ pt0 no2 no1 0)
    
17.       )
    
18.     )
    
19.     (setq ptn (cons pt0 ptn))
    
20.     (xyp-Entmake-lwPolyline (reverse ptn) 0)
    
21.   )
    
22.   (CMDLA1)
    
23. )[/FONT]

[FONT=courier new];;; 网络u盘下载并加载通用函数xyplib.vlx<br /> ;;; 步高，步长 步数自动生成楼梯剖面的PLINE<br /> (defun c:test ()<br />   (CMDLA0)<br />   (SETQ        NO1 (UREAL 1 "" "步高" NO1)<br />         NO2 (UREAL 1 "" "步长" NO2)<br />         INT (UINT 7 "" "步数" INT)<br />   )<br />   (while (setq pt0 (getpoint "\n起点: "))<br />     (setq ptn '())<br />     (repeat int<br />       (setq pt1        (xyp-get-Pt2XYZ pt0 0 no1 0)<br />             ptn        (cons pt0 ptn)<br />             ptn        (cons pt1 ptn)<br />             pt0        (xyp-get-Pt2XYZ pt0 no2 no1 0)<br />       )<br />     )<br />     (setq ptn (cons pt0 ptn))<br />     (xyp-Entmake-lwPolyline (reverse ptn) 0)<br />   )<br />   (CMDLA1)<br /> )[/FONT]