[LISP程序]：Z轴归零-----程序

luyunjian · 发表于 2005-6-4 10:13:00

顶一下，以前以为没用就没下
还好有印象，今天要用了
谢谢楼主

xf200 · 发表于 2005-6-19 16:14:00

程序倒是可以，但我要的是可以把块和多段线全部归0的程序。

jsrlb · 发表于 2005-6-19 21:30:19

来点选择对象Z坐标归0

(defun C:BGZ0 (/  s1 a1)
  (command "undo" "be")
(setq s1 (ssget));;;选择对象
  (if (/= s1 nil)
(progn
   (command "_.move" s1 "" '(0 0 1e99) ""
            "_.move" "_p" "" '(0 0 -1e99) ""
   )
   (setq a1 (sslength s1))
   (setq a1 (strcat "共" (rtos a1) "个对象的Z坐标值改为零"))
   (princ "\n")
   (princ a1)
)
(progn
   (princ"\n无选择对象")
)
  )

(command "undo" "e")
  (princ)
)

hust_laohu · 发表于 2005-6-21 18:00:21

不知道对地形图那样的大量的实体是否起作用
我先试试看

zlm-099 · 发表于 2005-7-4 11:34:20

为什么有时Z0命令对一些物体不起作用。

roywb · 发表于 2005-7-5 17:22:15

把程序拷到那个文件夹阿，是express 还是support
快捷键是z0吗，我怎么用不了。谁能解释一下。

mchong1201 · 发表于 2005-12-26 19:51:17

这个用在地形图Z坐标归零不知可以否?

pore0 · 发表于 2005-12-26 19:58:50

??
天正六里不是有统一标高吗？
这是干吗？

xyzduan · 发表于 2014-3-16 11:59:23

这个经常用得到

qindong668 · 发表于 2017-9-28 15:46:13

在哪，怎么看不到？

974778504 · 发表于 2020-5-23 19:57:24

非常的非常的感谢！

QRWY · 发表于 2020-11-21 00:08:08

对比一下看看

QRWY · 发表于 2022-4-16 14:08:10

真的是找了好久

杨89 · 发表于 2022-7-2 16:42:11

找了很久了，真是感谢！

杨89 · 发表于 2022-7-2 16:43:15

找了很久了，真是感谢！

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