累加修改z坐标，确实烂，自己用的

风叶翔龙

1. (SETQ n 0)
   
2. (defun C:tt
   
3.   (/ #iCmdEcho #linedata #newlinedata #ptEndNew #ptEndOld #ptStaNew #ptStaOld hhh)
   
4.   (setq #iCmdEcho (getvar "CMDECHO"))
   
5.   (setvar "CMDECHO" 0)
   
6.   
   
7.   (setq #linedata (entget (car (entsel))))      ;; 取得图元信息并赋值给变量#linedata
   
8.   ;(setq #ptStaOld (assoc 10 #linedata))       ;; 获取直线的起点坐标
   
9.   (setq #ptEndOld (assoc 11 #linedata))       ;; 获取直线的终点坐标
   
10.   ;(setq #ptStaNew (cons 10 (list 0.0 0.0 0.0)))  ;; 使用列表创建一个新点坐标，并合成点对，用来替换原起点坐标
    
11. 
    
12.   (SETQ n (1+ n))
    
13.     (SETQ HHH (* 135.48 n))
    
14.   (setq #ptEndNew (cons 11 (LIST (cadr #ptEndOld) (cadDr #ptEndOld) HHH)))  ;; 使用列表创建一个新点坐标，并合成点对，用来替换原终点坐标
    
15. 
    
16.   ;; 替换原来的点坐标
    
17.   (setq #newlinedata (subst #ptStaNew #ptStaOld #linedata))
    
18.   (setq #newlinedata (subst #ptEndNew #ptEndOld #newlinedata))
    
19.   
    
20.   (entmod #newlinedata)              ;; 更新实体
    
21.   
    
22.   (setvar "CMDECHO" #iCmdEcho)
    
23.   (princ)
    
24. )
    

(SETQ n 0)<br /> (defun C:tt<br />   (/ #iCmdEcho #linedata #newlinedata #ptEndNew #ptEndOld #ptStaNew #ptStaOld hhh)<br />   (setq #iCmdEcho (getvar "CMDECHO"))<br />   (setvar "CMDECHO" 0)<br />   <br />   (setq #linedata (entget (car (entsel))))      ;; 取得图元信息并赋值给变量#linedata<br />   ;(setq #ptStaOld (assoc 10 #linedata))       ;; 获取直线的起点坐标<br />   (setq #ptEndOld (assoc 11 #linedata))       ;; 获取直线的终点坐标<br />   ;(setq #ptStaNew (cons 10 (list 0.0 0.0 0.0)))  ;; 使用列表创建一个新点坐标，并合成点对，用来替换原起点坐标<br /> <br />   (SETQ n (1+ n))<br />     (SETQ HHH (* 135.48 n))<br />   (setq #ptEndNew (cons 11 (LIST (cadr #ptEndOld) (cadDr #ptEndOld) HHH)))  ;; 使用列表创建一个新点坐标，并合成点对，用来替换原终点坐标<br /> <br />   ;; 替换原来的点坐标<br />   (setq #newlinedata (subst #ptStaNew #ptStaOld #linedata))<br />   (setq #newlinedata (subst #ptEndNew #ptEndOld #newlinedata))<br />   <br />   (entmod #newlinedata)              ;; 更新实体<br />   <br />   (setvar "CMDECHO" #iCmdEcho)<br />   (princ)<br /> )<br />