修改等高线高程值的小程序，谢谢提建议

cqnj023

czb203

无痕 发表于 2004-1-22 19:41

;;改多义线高程---------------------无痕 .2004.1
;(chel)
(vl-load-com)
(defun c:chel ()
(setq elv (getdist "\n新高程:"))
(while (and  (princ "\n选则高程多义线(回车退出):")
              (setq ss (ssget '((0 . "*polyline")))))
   (setq ssv (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-

object))))
   (vlax-for obj ssv
      (vlax-put obj 'Elevation elv)
   )
)
)

lifuq1979

回帖是一种美德！感谢楼主的无私分享

王咣生

写的挺好的!
只是代码的结构不够清晰,再加些注释,别人会一目了然.

super613

哇~~好方便啊~~
謝謝囉^_^

chb801

谢谢！

zzg4028061

不懂lisp，晕哦

无痕

2. 
   
3. ;;改多义线高程---------------------无痕 .2004.1
   
4. ;(chel)
   
5. (defun chel ()
   
6. (setq elv (getdist "\n新高程:"))
   
7. (while (and  (princ "\n选则高程多义线(回车退出):")
   
8.               (setq ss (ssget '((0 . "*polyline")))))
   
9.    (setq ssv (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
   
10.    (vlax-for obj ssv
    
11.       (vlax-put obj 'Elevation elv)
    
12.    )
    
13. )
    
14. )
    
15.      
    

<br /> ;;改多义线高程---------------------无痕 .2004.1<br /> ;(chel)<br /> (defun chel ()<br /> (setq elv (getdist "\n新高程:"))<br /> (while (and  (princ "\n选则高程多义线(回车退出):")<br />               (setq ss (ssget '((0 . "*polyline")))))<br />    (setq ssv (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))<br />    (vlax-for obj ssv<br />       (vlax-put obj 'Elevation elv)<br />    )<br /> )<br /> )<br />      <br />

chb81

好东西啊

dry

很不错的东西，谢谢了

vken7az2p

不错的程序很实用喔

yft5184

是不错！支持！！