tssd这个功能如何用LISP实现？

江南十笑

tssd这个功能如何用LISP实现？我只会写两点的

1. (defun C:tt (/ angle1 cl dd djdj  n1 old_cmdecho xx yy osm)
   
2.   (setq OLD_CMDECHO (getvar "CMDECHO"))
   
3.   (setvar "CMDECHO" 0)
   
4.   (setq CL (getvar "clayer"))
   
5.   (setq osm (getvar "osmode"))    ;;抓点
   
6.   (setvar "osmode" 0)
   
7.   (if (not(tblsearch "layer" "rein")) (vl-cmdf "-layer" "N" "rein" "c" "6" "rein"  ""))
   
8.   (command "clayer" "rein")
   
9.   
   
10.   (setq L1 (getpoint "\n请选择点筋起点:"))
    
11.   (setq L2 (getpoint L1 "\n选择点筋终点:"))
    
12.   (setq angle1 (angle L1 L2))
    
13.   (setq dd (distance L1 L2))
    
14.   (setq n1 (read (rtos (- ( / dd 800) 0.5) 2 0)))
    
15.   (setq xx (sin angle1))
    
16.     (setq yy (cos angle1))
    
17.   (setq djdj ( makeDJ  L1))
    
18.       (repeat n1
    
19.         (command "copy" djdj "" "m" (list 0 0) (list ( * 800 yy ) ( * 800 xx )) "" )
    
20.         (setq djdj (entlast))
    
21.       )  
    
22.   
    
23.   (setvar "clayer" CL)
    
24.   (setvar "CMDECHO" OLD_CMDECHO)
    
25.   (setvar "osmode" osm)
    
26.   
    
27.   (princ)
    
28. )

(defun C:tt (/ angle1 cl dd djdj  n1 old_cmdecho xx yy osm)<br />   (setq OLD_CMDECHO (getvar "CMDECHO"))<br />   (setvar "CMDECHO" 0)<br />   (setq CL (getvar "clayer"))<br />   (setq osm (getvar "osmode"))    ;;抓点<br />   (setvar "osmode" 0)<br />   (if (not(tblsearch "layer" "rein")) (vl-cmdf "-layer" "N" "rein" "c" "6" "rein"  ""))<br />   (command "clayer" "rein")<br />   <br />   (setq L1 (getpoint "\n请选择点筋起点:"))<br />   (setq L2 (getpoint L1 "\n选择点筋终点:"))<br />   (setq angle1 (angle L1 L2))<br />   (setq dd (distance L1 L2))<br />   (setq n1 (read (rtos (- ( / dd 800) 0.5) 2 0)))<br />   (setq xx (sin angle1))<br />     (setq yy (cos angle1))<br />   (setq djdj ( makeDJ  L1))<br />       (repeat n1<br />         (command "copy" djdj "" "m" (list 0 0) (list ( * 800 yy ) ( * 800 xx )) "" )<br />         (setq djdj (entlast))<br />       )  <br />   <br />   (setvar "clayer" CL)<br />   (setvar "CMDECHO" OLD_CMDECHO)<br />   (setvar "osmode" osm)<br />   <br />   (princ)<br /> )

e2002

因为间距是指定值，所以这个用 grread还是很合适的。
鼠标选择LWPL对象后，获取子段的起止坐标点，宽度，计算出各钢筋点位，创建这些钢筋点，鼠标位置移动，切换与LWPL对象的上下方位，a/s 加减钢筋间距或数量，d切换间距的模式（指定间距值 or 按钢筋数量平均），f直接输入间距值或钢筋数量。

这玩意也就看起来不错，其实也没多少实际用处。