[求助]：怎样在CAD下把图元的高程改成0????

BingY

我以前做的地形图,后来在地形图上做规划设计,可是现在里面全是非0图形,后期工作太麻烦,还请高手指点.........

shuaier

论坛里有很多相关程序,你可以搜索一下,我有专门的软件,想要的话与我联系,不过我还是贴一个LSP程序给你!


(defun c:z0()
   (setvar "cmdecho" 0)
   (setvar "blipmode" 0)
   (graphscr)
   (prompt "Z向归零:") (terpri)

   (princ "请选择要归零的实体")
   (setq s (ssget))
   (setq len (sslength s))
   (setq index 0)

   (repeat len
      (setq a (entget (ssname s index)))

      (setq b10 (assoc 10 a))
      (setq b11 (assoc 11 a))

      (setq x10 (cadr b10))
      (setq y10 (caddr b10))

      (setq x11 (cadr b11))
      (setq y11 (caddr b11))

      (setq b101 (cons 10 (list x10 y10 0)))
      (setq b111 (cons 11 (list x11 y11 0)))

      (setq a (subst b101 b10 a))
      (entmod a)
      (setq a (subst b111 b11 a))
      (entmod a)

      (setq index (+ index 1))
   )
   (princ "成功")
   (princ)
)

BingY

谢谢您给我提供的方法,这个程序很好用.不过有点还是不行就是(您的LSP程序可以解决一条线的整体高程相同的情况,好比一条线上的任意点高程都为100,这样就可以改成0高程,不过如果有条线的一端在20上,一端在25上,也就是线上至少有两点高程不同的时候,您的LSP就改不到啦,也就是您的LSP程序和CAD本身的change命令下的改标高是差不多相同的)所以呢,还请您帮下忙,想下怎样把一条不在同一高程上的线改成高程全为0的.不管是否能帮我解决到这个问题,我还是万分感谢!!!谢谢.......