[LISP程序]：求助：哪位大哥知道怎么用LISP把CAD图中所有点的Z坐标改成零啊？？？？

cnhate · 发表于 2004-4-26 00:03:09

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

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

×

哪位大哥知道怎么用LISP把CAD图中所有点的Z坐标改成零啊？？？？

XDSoft · 发表于 2004-4-26 00:42:24

最初由 cnhate 发布
[B]哪位大哥知道怎么用LISP把CAD图中所有点的Z坐标改成零啊？？？？ [/B]

你用 Z座标做关键字，搜索下论坛，会搜索出一筐的解决方法：），去试试。

htm · 发表于 2004-5-8 20:12:33

我这个小程序是把z坐标改0的，你试试看。

玻璃球 · 发表于 2004-5-25 23:20:21

还是不会用

xyz · 发表于 2004-5-26 18:05:02

(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)
)

cj_zj · 发表于 2008-12-13 21:21:57

谢谢

carrot1983 · 发表于 2008-12-13 21:50:42

安装Express tools，运行命令：Flatten
或者直接搜索Flatten

lingyikang · 发表于 2008-12-16 21:19:17

好东西，哈哈

dfpptoo · 发表于 2008-12-17 01:41:41

有人开发了Z轴归零的LISP的，不过我有时全选后在属性编辑哭里，可以看到Z坐轴，本来为星号什么的，改成零就可以了

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

[求助] [LISP程序]：求助：哪位大哥知道怎么用LISP把CAD图中所有点的Z坐标改成零啊？？？？

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

相关帖子

Re: [LISP程序]：求助：哪位大哥知道怎么用LISP把CAD图中所有点的Z坐标改成零啊？？？？