请各位大侠同行帮忙看下，为什么运行有问题，怎么改

zhangxin0298

(defun c:ggcd ()
  (princ "\n 选取要修改的高程点:")
  (setq ss (ssget))
  (setq zz (getreal "\n 输入增(+)减(-)高程值:"))
  (setq n 0)
  (repeat (sslength ss)
    (setq ssn (ssname ss n))
    (setq ssdata (entget ssn))
    (setq mms (assoc 2 ssdata))
    (setq mmm (cdr mms))
    (if (= mmm "GC200")
       (progn
         (setq en1 (assoc 10 ssdata))
         (setq old_zz (cdr en1))
         (setq X (car old_zz))
         (setq Y (cadr old_zz))
         (setq Z (caddr old_zz))
         (setq m (+ Z zz))
         (setq new_zz (cons 10 endata))
         (setq ssdata (subst new_zz en1 ssdata))
         (entmod ssdata)
         )
      )
    (setq n (1+ n))         
  )
  (prin1)
)

xyp1964

2. ;; tt(修改高程图块的Z值)
   
3. (defun c:tt ()
   
4.   (setq dz (getreal "\n输入增(+)减(-)高程值: "))
   
5.   (princ "\n选取要修改的高程点: ")
   
6.   (if (setq ss (ssget '((0 . "insert") (2 . "GC200"))))
   
7.     (progn
   
8.       (setq n 0)
   
9.       (repeat (sslength ss)
   
10.         (setq date (entget (ssname ss n))
    
11.               en   (assoc 10 date)
    
12.               p0   (cdr en)
    
13.               X   (car p0)
    
14.               Y   (cadr p0)
    
15.               z   (+ (caddr p0) dz)
    
16.               date (subst (cons 10 (list x y z)) en date)
    
17.         )
    
18.         (entmod date)
    
19.         (setq n (1+ n))
    
20.       )
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )
    

;; tt(修改高程图块的Z值)<br /> (defun c:tt ()<br />   (setq dz (getreal "\n输入增(+)减(-)高程值: "))<br />   (princ "\n选取要修改的高程点: ")<br />   (if (setq ss (ssget '((0 . "insert") (2 . "GC200"))))<br />     (progn<br />       (setq n 0)<br />       (repeat (sslength ss)<br />         (setq date (entget (ssname ss n))<br />               en   (assoc 10 date)<br />               p0   (cdr en)<br />               X   (car p0)<br />               Y   (cadr p0)<br />               z   (+ (caddr p0) dz)<br />               date (subst (cons 10 (list x y z)) en date)<br />         )<br />         (entmod date)<br />         (setq n (1+ n))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

zhangxin0298

非常感谢您

llsheng_73

难道高程点只需要改它的Z坐标，它的注记不需要修改？

1. (defun c:tt(/ dz n ss e1 en)
   
2.   (if(and(setq dz(getreal "\n输入增(+)减(-)高程值: ")
   
3.         dz(list 0 0 dz))
   
4.   (princ "\n选取要修改的高程点: ")
   
5.   (setq n 0
   
6.         ss(ssget '((0 . "insert")(2 . "GC200")))))
   
7.     (progn
   
8.       (command"move"ss""'(0 0 0)dz)
   
9.       (repeat(sslength ss)
   
10. (if(/="SEQEND"(cdr(assoc 0(setq e1(entnext(ssname ss n))
    
11.      n(1+ n)
    
12.      en(entget e1)))));;高程点未被打散
    
13.    (entmod(mapcar'cons'(-1 1)(list e1(rtos(last(assoc 10 en))2 2))))))
    
14.       (command"regen")
    
15.      ))
    
16.   (princ)
    
17. )

(defun c:tt(/ dz n ss e1 en)<br />   (if(and(setq dz(getreal "\n输入增(+)减(-)高程值: ")<br />         dz(list 0 0 dz))<br />   (princ "\n选取要修改的高程点: ")<br />   (setq n 0<br />         ss(ssget '((0 . "insert")(2 . "GC200")))))<br />     (progn<br />       (command"move"ss""'(0 0 0)dz)<br />       (repeat(sslength ss)<br /> (if(/="SEQEND"(cdr(assoc 0(setq e1(entnext(ssname ss n))<br />      n(1+ n)<br />      en(entget e1)))));;高程点未被打散<br />    (entmod(mapcar'cons'(-1 1)(list e1(rtos(last(assoc 10 en))2 2))))))<br />       (command"regen")<br />      ))<br />   (princ)<br /> )