等高线缩放高程不变

kkknige

再求大神们赐教。如何能让等高线缩放之后Z值或标高不变！不要用CAD自带分轴缩放的那种我实验了不行。谢谢你们

st788796

先记录标高，缩放，重新赋标高

Free-Lancer

1. (defun c:tt (/ ss el p elevl scl)
   
2.   (if (and (setq ss (ssget '((0 . "*Polyline"))))
   
3.            (setq p (getpoint "\nbase point: "))
   
4.            (setq scl (getreal "\nScaleFactor: "))
   
5.       )
   
6.     (progn
   
7.       (setq el          (fy:cset->objs)
   
8.             elevL (mapcar '(lambda (x)
   
9.                              (vla-get-elevation x)
   
10.                            )
    
11.                           el
    
12.                   )
    
13.       )
    
14.       (vl-cmdf ".scale" ss "" p scl)
    
15.       (mapcar '(lambda (x y)
    
16.                  (vla-put-elevation x y)
    
17.                )
    
18.               el
    
19.               elevL
    
20.       )
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )

(defun c:tt (/ ss el p elevl scl)<br />   (if (and (setq ss (ssget '((0 . "*Polyline"))))<br />            (setq p (getpoint "\nbase point: "))<br />            (setq scl (getreal "\nScaleFactor: "))<br />       )<br />     (progn<br />       (setq el          (fy:cset->objs)<br />             elevL (mapcar '(lambda (x)<br />                              (vla-get-elevation x)<br />                            )<br />                           el<br />                   )<br />       )<br />       (vl-cmdf ".scale" ss "" p scl)<br />       (mapcar '(lambda (x y)<br />                  (vla-put-elevation x y)<br />                )<br />               el<br />               elevL<br />       )<br />     )<br />   )<br />   (princ)<br /> )