[求助]：如何将不同线条、图块等Z坐标归0

xie0106 · 发表于 2005-5-26 14:08:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何将不同线条、图块等Z坐标归0。谢谢
以前用FLATTEN命令，发现被操作过的图块名称会变化。
见我的另一帖子：http://www.xdcad.net/forum/showthread.php?s=&threadid=399178

yuanyuan1975 · 发表于 2005-5-26 14:12:38

在天正建筑6中的屏幕菜单中的“工具”项中的“统一标高”命令能解决你说的问题

xie0106 · 发表于 2005-5-26 14:20:01

谢谢楼上的。
我不是画建筑的，所以没装天正，有没有什么LISP小程序等等。

jzgyh · 发表于 2005-5-27 01:49:55

我也需要解答,尤其是数字化地形图里那个围墙,简直要人命

xuyu · 发表于 2005-5-27 02:09:08

用晓东工具箱可以实现。下载
http://www.xdcad.net/down/show.php?s=&id=227

xie0106 · 发表于 2005-5-27 22:27:46

工具箱很好用

sdwy19691229 · 发表于 2005-5-28 00:00:55

晓东工具箱有此命令程序!
命令：modify_z
  功能：修改实体的Z坐标为0

  配合xdrx_api使用
|;
(defun c:modify_z (/ #m_z ss i)
  (defun #m_z (/ n p)
(foreach n '(10 11 12 13 14 15 16 17 18 19)
   (if (setq p (xdrx_getentdxf n))
(xdrx_modent n (trans (list (car p) (cadr p) 0.0) 0 1))
   )
)
  )
  (prompt "\n请选取要修正Z坐标的实体<全选>:")
  (if (not (setq ss (ssget '((0 . "~*polyline")))))
(setq ss (ssget "x" '((0 . "~*polyline"))))
  )
  (xdrx_setsstodb ss 0)
  (xdrx_pbarbegin "\n处理中..." (sslength ss))
  (setq i 0)
  (while (xdrx_getentdata 0)
(xdrx_pbarsetpos (setq i (1+ i)))
(#m_z)
  )
  (xdrx_pbarend)
  (princ)
)

账号		自动登录	找回密码
密码			立即注册

[求助]：如何将不同线条、图块等Z坐标归0

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子