[LISP程序]：可以把Z坐标归零的程序

hounengwei · 发表于 2008-5-9 02:30:45

不错的东西，谢谢了

空壳 · 发表于 2008-5-9 06:54:42

(defun C:Z0 ()
(setvar "cmdecho" 0);关闭命令回显
(princ "\n正在搞定所有图元z轴,好好等着别动！")
(command "_.UCS" "");恢复为默认坐标系
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为0
(princ "\nOK！已把所有图元的Z坐标都搞为0了！")
(setvar "cmdecho" 1)
(princ)
)

这么小的程序......写了不就得了，还下什么附件呢？
我不知道楼主放的附件和我这个是不是差不多。

把这个另存成z0.lsp 完事再CAD中调用，
或者弄进CAD启动时加载的文件中，例如我就是直接放在了R14的 acadr14.lsp里了

sampan · 发表于 2008-5-13 09:23:49

我不会编lisp语言不过z轴高度不一是常遇问题。。。。谢谢楼主

ydf · 发表于 2008-5-13 09:45:43

是啊，到底怎么用

god1478 · 发表于 2008-5-19 19:39:25

看看那效果呵呵

xmchy · 发表于 2008-5-19 23:26:36

这个好象还有好几种,有要选择的,有不要选择的,有的会比较快,

and2008 · 发表于 2008-11-18 09:29:02

总体看来17楼的程序好用，比较简单些，支持下

cyt1 · 发表于 2008-11-21 10:00:09

支持一下,我也下个学习

qingbird · 发表于 2008-12-8 12:06:06

要两个都下载？干嘛不合在一起？

XDnpu349 · 发表于 2008-12-10 00:51:56

最初由空壳发布
[B](defun C:Z0 ()
(setvar "cmdecho" 0);关闭命令回显
(princ "\n正在搞定所有图元z轴,好好等着别动！")
(command "_.UCS" "");恢复为默认坐标系
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '... [/B]

这个支持多义线不？

sz-xs · 发表于 2008-12-14 16:30:46

下不了？？

leeyuan · 发表于 2008-12-15 08:53:31

检查过，CAD自带flatten命令，CAD2004

五云阁 · 发表于 2008-12-16 16:42:13

flatten命令CAD中是有的
“命令: FLATTEN
Initializing...
Select objects to convert to 2d...
选择对象: 找到 1 个
选择对象:
Remove hidden lines? <No>: y
Error loading file: acet-wmf.lsp.
File not found.”
选择了一个物体，结果物体消失了！

还想问一下，*.lsp文件如何加入CAD中，如何使用？

kytw · 发表于 2008-12-26 15:36:59

找了好久了

z394326635 · 发表于 2008-12-26 18:33:19

提示: 作者被禁止或删除内容自动屏蔽

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

z394326635 z394326635 当前离线 UID 619956 积分 25 精华贡献威望活跃度 D豆在线时间小时注册时间 2008-5-2 最后登录 1970-1-1 窥视卡雷达卡	发表于 2008-12-26 18:33:19 \| 显示全部楼层【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报