[编程申请]：如何将图形中点的Z坐标一次性改为0?

xingbaoquan99 · 发表于 2004-5-11 15:52:47

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

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

×

哪里有lisp程序可以将图形中点的Z坐标一次性改为0?

playboy · 发表于 2004-5-11 16:26:40

用filter过滤出来点
然后用change改一下就可以了

xcajcj · 发表于 2004-5-11 18:52:42

最初由 xingbaoquan99 发布
[B]哪里有lisp程序可以将图形中点的Z坐标一次性改为0? [/B]

;;标高(Z坐标)归零实用程序
(defun C:Z=0 ()
(setvar "cmdecho" 0);关闭命令回显
(princ "\n正在处理图形数据,请稍候...")
(command "_.UCS" "");恢复为默认坐标系
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为0
(princ "\nOK,已将所有图元的标高值即Z坐标归零.")
(setvar "cmdecho" 1)
(princ)
);end (defun C:Z=0 ()

wjs_01 · 发表于 2004-5-12 11:53:44

xcajcj ,可否修改一下lisp，能将块中的z坐标也能改为0

hmilye · 发表于 2004-5-12 12:32:35

以前试过，可惜没弄成，期待更厉害的解决方法

huabinger · 发表于 2004-5-12 14:21:44

非常谢谢？我知道了。

boboc98 · 发表于 2004-5-12 15:45:48

我觉得用change->all->p->elev->0 可能更简洁适用一些。大家讨论一下。

64303958 · 发表于 2004-5-15 15:23:47

我用了一下，没用啊，改不过来啊！！

海豚 · 发表于 2004-5-15 17:10:35

看看这个。我用过可以。

whulcx · 发表于 2004-5-26 09:49:37

lisp：z＝0 那个比较好用

海豚 · 发表于 2004-5-26 12:51:10

最初由 whulcx 发布
[B]lisp：z＝0 那个比较好用 [/B]

我当然决定我推荐的好用，你可以试一试其他的，把结果告诉我们。

wjphd · 发表于 2004-5-26 15:58:05

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

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

×

1.能在不炸开块的前提下归0吗？
2.处理速度能提高吗？et太慢

yfy2003 · 发表于 2004-5-26 17:18:50

最初由 wjphd 发布
[B]1.能在不炸开块的前提下归0吗？
2.处理速度能提高吗？et太慢 [/B]

应该可以!
块名都是一样的吗?

wjphd · 发表于 2004-5-26 18:02:34

块名不一样！就是速度太慢！一个晚上都没有处理好！

yfy2003 · 发表于 2004-5-26 20:48:39

最初由 wjphd 发布
[B]块名不一样！就是速度太慢！一个晚上都没有处理好！ [/B]

给你一个小程序!
2000、2002、2004、2005下都可以用！

命令为：yfy2003

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

[编程申请]：如何将图形中点的Z坐标一次性改为0?

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

相关帖子

Re: [编程申请]：如何将图形中点的Z坐标一次性改为0?

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

相关帖子

浏览过的版块