[求助]：帮个忙，编一个绘制台阶的程序

lihongyu2467

请看附图，图中1，2，3所是为下笔顺序，横线间隔无要求，

lsjjm

给你思路， 自己动手试试看：
画直线1，2，3。拷贝12直线到3点，
1，2 点距离除以台阶数（如24）得到间隔，阵列直线23即可。

小狼

2. ;;;;------楼梯------
   
3. (defun c:lt(/ ename spoint epoint opoint plinepoint)
   
4.    (setvar "cmdecho" 0)
   
5.    (princ "\n请输入楼梯起点及终点:")
   
6.    (command "pline" pause pause "")
   
7.    (setq ename (entlast)
   
8.                  PlinePoint(get_pline_point ename)
   
9.                  sPoint (cadr plinepoint)
   
10.                  ePoint (car plinepoint)
    
11.                  oPoint (getpoint "\n请输入楼梯另一边位置:")
    
12.                  n (fix(/ (distance spoint epoint) 0.5))
    
13.                  )
    
14.    (command "offset" "t" ename opoint "")
    
15.    (setq ename (entlast)
    
16.                  plinePoint (get_pline_point ename)
    
17.                  nPoint (cadr plinepoint)
    
18.                  )
    
19.    (command "pline" spoint npoint "")
    
20.    (repeat n
    
21.           (setq ename (entlast))
    
22.           (command "offset" 0.5 ename epoint "")
    
23.           )(princ)
    
24. );; End Defun
    

;;;;------楼梯------<br /> (defun c:lt(/ ename spoint epoint opoint plinepoint)<br />    (setvar "cmdecho" 0)<br />    (princ "\n请输入楼梯起点及终点:")<br />    (command "pline" pause pause "")<br />    (setq ename (entlast)<br />                  PlinePoint(get_pline_point ename)<br />                  sPoint (cadr plinepoint)<br />                  ePoint (car plinepoint)<br />                  oPoint (getpoint "\n请输入楼梯另一边位置:")<br />                  n (fix(/ (distance spoint epoint) 0.5))<br />                  )<br />    (command "offset" "t" ename opoint "")<br />    (setq ename (entlast)<br />                  plinePoint (get_pline_point ename)<br />                  nPoint (cadr plinepoint)<br />                  )<br />    (command "pline" spoint npoint "")<br />    (repeat n<br />           (setq ename (entlast))<br />           (command "offset" 0.5 ename epoint "")<br />           )(princ)<br /> );; End Defun<br />

这是1:500地形图楼梯，楼梯台阶的距离可以直接修改 "0.5" 参数即可

eachy

还少这个 get_pline_point

lihongyu2467

多谢，我这就回去试试.

小狼

2. (defun get_Pline_point (entname / list1 entlist list2)
   
3.   (setvar "cmdecho" 0)
   
4.   (setvar "plinetype" 2)
   
5.   (xdrx_polyline_ConvertFrom entname)
   
6.   (setq        entlist        (entget entname)
   
7.         newlist        nil
   
8.   )
   
9.   (while (assoc 10 entlist)
   
10.     (setq list1          (assoc 10 entlist)
    
11.           list2          (cdr list1)
    
12.           newlist (cons list2 newlist)
    
13.           entlist (cdr (member list1 entlist))
    
14.     )
    
15.   )
    
16.   (setvar "plinetype" 2)
    
17.   (setq newlist newlist)
    
18. )

(defun get_Pline_point (entname / list1 entlist list2)<br />   (setvar "cmdecho" 0)<br />   (setvar "plinetype" 2)<br />   (xdrx_polyline_ConvertFrom entname)<br />   (setq        entlist        (entget entname)<br />         newlist        nil<br />   )<br />   (while (assoc 10 entlist)<br />     (setq list1          (assoc 10 entlist)<br />           list2          (cdr list1)<br />           newlist (cons list2 newlist)<br />           entlist (cdr (member list1 entlist))<br />     )<br />   )<br />   (setvar "plinetype" 2)<br />   (setq newlist newlist)<br /> )