社区 › 源码共享 › 修改等高线高程值的小程序，谢谢提建议

cqnj023 发表于 2003-12-5 19:49:00

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

czb203 发表于 2017-9-29 21:37:13

无痕 发表于 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 发表于 2017-10-17 17:28:55

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

王咣生 发表于 2003-12-6 12:40:00

回复

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

super613 发表于 2003-12-30 17:02:00

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

chb801 发表于 2004-1-3 19:30:00

谢谢！

zzg4028061 发表于 2004-1-11 15:18:00

不懂lisp，晕哦

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

;;改多义线高程---------------------无痕 .2004.1
;(chel)
(defun 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)
   )
)
)
   

chb81 发表于 2004-10-30 08:20:00

好东西啊

dry 发表于 2005-5-24 11:32:00

很不错的东西，谢谢了

vken7az2p 发表于 2005-11-6 13:26:00

不错的程序很实用喔

yft5184 发表于 2005-12-13 20:43:00

是不错！支持！！

查看完整版本: 修改等高线高程值的小程序，谢谢提建议