第一次做即显程序，希望大家多多指导

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url];; 垂直无缝复制
   
3. (defun c:tt (/ s1 p0 dv mode mo co ss nn i s0 pt s2)
   
4.   (xyp-CMDLA0)
   
5.   (if (setq s1 (car (entsel "\n选择: ")))
   
6.     (progn
   
7.       (setq p0 (xyp-9pt s1 1)
   
8.             dv (distance (xyp-9pt s1 7) p0) ;垂直高度
   
9.             mode t
   
10.       )
    
11.       (while mode
    
12.         (setq mo (grread t 15 0)
    
13.               co (car mo)
    
14.         )
    
15.         (cond ((member co '(2 3 25 32)) (setq mode nil))
    
16.               (t
    
17.                (if ss
    
18.                  (xyp-erase ss)
    
19.                )
    
20.                (setq nn (fix (/ (- (cadr (cadr mo)) (cadr p0)) dv))
    
21.                      i 0
    
22.                      s0 (entlast)
    
23.                      dv (if (> nn 0) dv (- dv))
    
24.                )
    
25.                (repeat (abs nn)
    
26.                  (setq pt (xyp-Pt2Y p0 (* dv (setq i (1+ i))))
    
27.                        s2 (xyp-copymove s1 p0 pt)
    
28.                  )
    
29.                )
    
30.                (setq ss (xyp-SSelEntnext s0))
    
31.               )
    
32.         )
    
33.       )
    
34.     )
    
35.   )
    
36.   (xyp-CMDLA1)
    
37. )

;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url];; 垂直无缝复制<br /> (defun c:tt (/ s1 p0 dv mode mo co ss nn i s0 pt s2)<br />   (xyp-CMDLA0)<br />   (if (setq s1 (car (entsel "\n选择: ")))<br />     (progn<br />       (setq p0 (xyp-9pt s1 1)<br />             dv (distance (xyp-9pt s1 7) p0) ;垂直高度<br />             mode t<br />       )<br />       (while mode<br />         (setq mo (grread t 15 0)<br />               co (car mo)<br />         )<br />         (cond ((member co '(2 3 25 32)) (setq mode nil))<br />               (t<br />                (if ss<br />                  (xyp-erase ss)<br />                )<br />                (setq nn (fix (/ (- (cadr (cadr mo)) (cadr p0)) dv))<br />                      i 0<br />                      s0 (entlast)<br />                      dv (if (> nn 0) dv (- dv))<br />                )<br />                (repeat (abs nn)<br />                  (setq pt (xyp-Pt2Y p0 (* dv (setq i (1+ i))))<br />                        s2 (xyp-copymove s1 p0 pt)<br />                  )<br />                )<br />                (setq ss (xyp-SSelEntnext s0))<br />               )<br />         )<br />       )<br />     )<br />   )<br />   (xyp-CMDLA1)<br /> )