求程序：等高线高程值取整

461045462

楼上的学习了
等会试试
谢谢楼上

xuexicad1960

回复 gzxl 的帖子

这几天没上网，没有及时回帖，刚才试了一下这个程序，是我想要的结果，很好速度很快，向你学习了。借此给大家拜年了，兔年吉祥！

usercoolbo

对地形图进行变换的时候，选择公共点时，输入.XY，过滤Z值，或者直接输公共点的坐标，这样不会造成你所说的这种情况。
因为你变换的时候，选择到了Z值，就成三维空间变换了，所以才有出现小数。

xuexicad1960

回复 usercoolbo 的帖子

昨天看了你的回帖，我琢磨了半天也没明白如何过滤z值.   我是通过选择两个点作为定向点，对图形作缩放、旋转、平移 ，经过了scale后就出现了小数的，如果按你说的过滤z值能使高程值不变，那是最好的了。可我不知道如何操作。还请你尽量说的详细点，我对过滤z值比较陌生，麻烦你了。

usercoolbo

转换前后的坐标直接手工输入，这样就避免了Z值的三维变换。
如果直接在CAD上选择的话，可以输入.XY后点选该点，接着提示你输入Z值，都输入0就可以了

xuexicad1960

回复 usercoolbo 的帖子

我明白了，谢谢你的提点。

461045462

xuexicad1960 发表于 2011-2-3 22:02
回复 gzxl 的帖子

这几天没上网，没有及时回帖，刚才试了一下这个程序，是我想要的结果，很好速度很快，向 ...

兔年吉祥如意！
请教一个问题：我将你的样图下载了，将高程值修改为有小数位数，然后运行gzxl第二个程序，高程值没有改变，不知为什么？我是在cass9.0操作。
谢谢

461045462

我将样图的高程值改了后，放在同事的电脑上，cass8.0下运行也是不行，不知是为什么？
我现在将改了的样图上传，麻烦帮我看看，能否找出问题？
使用的程序也一同传上，是后面的一个。
谢谢

song宋_74729

461045462 发表于 2011-2-9 23:01
我将样图的高程值改了后，放在同事的电脑上，cass8.0下运行也是不行，不知是为什么？
我现在将改了的样图 ...

;;自己加个循环吧
(vl-load-com)
(defun c:tt ()
  (princ "功能：等高线高程值取整")
  (setq ss (ssget))
  (setq ent (ssname ss 0))
  (setq obj (vlax-ename->vla-object ent))
  (setq zgc (itoa (fix (vla-get-Elevation obj))))
  (setq ssv (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for obj ssv (vlax-put obj 'Elevation zgc))
  (princ)
)

;这个好像可以了。
(defun c:tt6 ()
  (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)
)


改成这样TT也可以,TT6也可以