[原创]：我也来一个z值归零的程序,只有4K,有详细注释

真龙天子

这么多人看了没一个人顶,显然是这个贴子是不受欢迎的,只好把它删了,免得占用晓东的宝贵资源.

sgsldz

晕,好东西就留着 拉 ,删掉多不好,搜索了半天还没看到!

sfjlx

我来晚了！可否贴源码？

wujimmy

我这个只有1K不到(267 字节 (267 字节))
原理是利用益出的原理.
当然,这么完美的程序,原来不是我弄的.是谁弄的,已经不记得了....

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. (defun c:z0()
   
6.   (princ "\n\n欢迎使用归零程序,本程序作者:吴所不及\n最新程序请访问[url]www.jgcad.com[/url]")
   
7.    (princ "\n选择要归零的物体:")
   
8.    (setq ss (ssget))
   
9.    (command "move" ss ""(list 0 0 0) (list 0 0 1e99))
   
10.    (command "move" ss ""(list 0 0 1e99) (list 0 0 0))
    
11. )
    
12.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> (defun c:z0()<br />   (princ "\n\n欢迎使用归零程序,本程序作者:吴所不及\n最新程序请访问[url]www.jgcad.com[/url]")<br />    (princ "\n选择要归零的物体:")<br />    (setq ss (ssget))<br />    (command "move" ss ""(list 0 0 0) (list 0 0 1e99))<br />    (command "move" ss ""(list 0 0 1e99) (list 0 0 0))<br /> )<br />   [/FONT]<br />

LADESIGNER

偶最早是在陈伯雄的书上看到的，当时没搞明白怎么移动一下Z坐标就没有了。现在偶认为是这样的：普通的Z坐标绝对不会很大，与1e99相比近似为0，CAD也是有精确度的，在执行两次MOVE的过程中，就把Z坐标给忽略了……如果Z坐标是一个很大的数值，比如1e88，移动两次是不可能去掉Z坐标的。

mr cool

四楼的很不错，很好用！多谢！

zhang8755

四楼的程序大部分情况可用，也有个别时候失效，也不知道为什么
还是完整的flaten程序有效

tjuzkj

没法弄懂