[求助]：如何将不同Z值的线条同时改为0值

redapple · 发表于 2004-1-28 21:05:05

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

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

×

给大家拜年了:各位新年好
请教一个问题：如何将不同Z值的线条同时改为0值

myfreemind · 发表于 2004-1-28 21:23:27

change-all-p-e-0

wqfcf · 发表于 2004-1-29 08:43:07

用晓东工具箱中的＂Z＝0＂工具就可以了！
是我目前所知道最好的方法，强烈推荐！
另外提供一个lisp程序
(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)
)

心梦相随 · 发表于 2004-1-31 22:10:08

楼上的还应考虑38组吗，谢谢2楼长老

xcajcj · 发表于 2004-2-1 18:07:04

错。

sxlxf · 发表于 2004-2-2 13:53:24

找此东东好久了,希望说得更祥细些

cooduchamp · 发表于 2004-2-2 14:18:00

晓东工具箱在哪个栏目可以下载啊？有没有使用说明教程？

zx.97 · 发表于 2004-2-3 15:31:03

我也在找这个东西，谁能提供一下

xcajcj · 发表于 2004-2-3 17:54:43

Z=0.lsp

wlzhzj · 发表于 2004-2-28 14:42:07

用晓东工具箱中的＂Z＝0＂并不能把全部z坐标归零

自由的鱼 · 发表于 2004-2-28 18:34:34

越简单越好，没有必要用程序！

chengong · 发表于 2004-2-28 21:02:15

直按用change命令即可，change--p--e。

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

[求助]：如何将不同Z值的线条同时改为0值

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

相关帖子

浏览过的版块