数字文本值替换Z坐标

树櫴希德

1. ;;;;;;;;;;;;;;;;;;
   
2. (defun 10zu ( e / e)
   
3.   (cdr(assoc 10(entget e)))
   
4.   )
   
5. ;;;;;;;;;;;;;;;;;;
   
6. (defun 1zu ( e / e)
   
7.   (read(cdr(assoc 1(entget e))))
   
8.   )
   
9. 
   
10. (defun c:tt11 ( / lst ent pts pt demj zmj i) ;求平均数
    
11. (setq lst (ssget '((0 . "text") (1 . "~*[~'--9]*")   )   )  )
    
12.   
    
13. (setq i 0)
    
14. ;(setq zmj 0.000)
    
15.   
    
16. (while  (< i (sslength lst))
    
17. 
    
18. (setq ent (ssname lst i))
    
19.   (entmod (subst (list 10 (car (10zu ent)) (cadr (10zu ent)) (1zu ent)) (assoc 10(entget ent)) (entget ent)   ))
    
20. 
    
21. (setq i (+ i 1))
    
22.   )
    
23.   )
    
24. 
    
25.   

;;;;;;;;;;;;;;;;;;<br /> (defun 10zu ( e / e)<br />   (cdr(assoc 10(entget e)))<br />   )<br /> ;;;;;;;;;;;;;;;;;;<br /> (defun 1zu ( e / e)<br />   (read(cdr(assoc 1(entget e))))<br />   )<br /> <br /> (defun c:tt11 ( / lst ent pts pt demj zmj i) ;求平均数<br /> (setq lst (ssget '((0 . "text") (1 . "~*[~'--9]*")   )   )  )<br />   <br /> (setq i 0)<br /> ;(setq zmj 0.000)<br />   <br /> (while  (< i (sslength lst))<br /> <br /> (setq ent (ssname lst i))<br />   (entmod (subst (list 10 (car (10zu ent)) (cadr (10zu ent)) (1zu ent)) (assoc 10(entget ent)) (entget ent)   ))<br /> <br /> (setq i (+ i 1))<br />   )<br />   )<br /> <br />   

小明同学

谢谢了

happy336

谢谢分享，支持