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

血司

好东西，支持了

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

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