寻求一个Z坐标归零的小程序，请高手帮助

taboy · 发表于 2006-3-26 21:40

如题，请高手给一个能将对象（比如圆或直线）的Z坐标置为零的小程序，能在CAD02及04里使用就可以了，请发至邮箱yl.lyj@hotmail.com,先谢谢了。

liu_kunlun · 发表于 2006-3-27 08:24

例如，对于实体e

(setq elist (entget e))

(foreach xm '(10 11 12 13 14 15 16)

(if (setq pt (assoc xm elist))

(setq elist (subst (reverse (cons 0 (cdr (reverse p1

) ) ) ) ) ) )

)

(entmod elist)

liu_kunlun · 发表于 2006-3-27 08:28

忙中出错，不好意思

(setq elist (entget e))

(foreach xm '(10 11 12 13 14 15 16)

(if (setq pt (assoc xm elist))

(setq elist (subst (reverse (cons 0 (cdr (reverse p1

) ) )

p1 elist

) )

)

(entmod elist)

taboy · 发表于 2006-3-27 08:36

谢谢大侠，

可是实在不好意思，我对编程一点也不懂的，虽然有了源程序了，可是我也不会用，最好是能做成那种直接加载的程序，另外，主要针对的就是线段和圆，把线段的起点和端点或者是圆心的Z坐标值置为零就可以了，

再次感谢！！

liu_kunlun · 发表于 2006-3-27 09:48

给个邮箱过来

taboy · 发表于 2006-3-27 17:05

非常感谢楼上大哥。

无痕 · 发表于 2006-3-27 22:42

ljpnb · 发表于 2006-3-28 07:51

无痕发表于2006-3-27 22:42:00 (if (setq ss (ssget))(command \".move\" ss \"\" \"0,0,1e99\" \"\" \".move\" \"p\" \"\" \"0,0,-1e99\" \"\"))

无痕兄厉害，粗看还以为不对，试了一下，确实可以实现。

taboy · 发表于 2006-3-28 08:27

在我看来，各位都是高手，只有佩服的份了~~~~

麻烦再问一下，这是用哪种语言编的程呀？

怎么编译呢？

看来以后也要学点编程方面的知识了，不然只学CAD太枯燥了~~~

别晨 · 发表于 2006-3-28 11:06

无痕发表于2006-3-27 22:42:00(if (setq ss (ssget))(command \".move\" ss \"\" \"0,0,1e99\" \"\" \".move\" \"p\" \"\" \"0,0,-1e99\" \"\"))

看着有点糊涂，解释一下啊^_^

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