求一个等高线上高程值取整的程序

xiaoxuesheng · 发表于 2011-1-1 22:41

cad地形图中等高线有时在处理的时候高程值会出现不是严格的整数位，而是带了一些小数，且不是一个固定的值，有没有办法达到批量取整的目的。请高手帮忙解决，这里先谢谢了！

xiaoxuesheng · 发表于 2011-2-17 22:22

在别的论坛有朋友帮助已经解决了这个问题，我把源码贴到这里让大家分享，供需要的朋友使用。
(defun c:tt ()
  (princ "功能：等高线高程值取整")
  (setq ss (ssget "X" (list (cons 8 "dgx") (cons 0 "LWPOLYLINE"))))
  ;(setq ss (ssget))
  (if ss
(progn
   (setq ss4 (sslength ss))
   (setq n 0)
   (while (/= ss4 n)
         (setq en (ssname ss n))
         (setq end (entget en))
         (setq a (cdr (assoc 38 end)) adata end)
         (setq b (rtos a 2 0))
         (setq adata (subst (cons 38 (atoi b)) (assoc 38 adata) adata))
         (entmod adata)
         (setq n (+ n 1))
   )
)
  )
  (princ)
)