血司 发表于 2015-6-3 09:18:03

好东西，支持了

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

回帖是一种美德！感谢楼主的无私分享
页: 1 2 3 [4]
查看完整版本: 修改等高线高程值的小程序，谢谢提建议