图块内实体Z坐标到0

newer

1. (defun c:allflat (/ d)
   
2.   (vlax-for b (vla-get-blocks (setq d (vla-get-activedocument
   
3.                                                               (vlax-get-acad-object)
   
4.                                       )
   
5.                               )
   
6.               ) (if (= :vlax-false (vla-get-isxref b))
   
7.                   (vlax-for o b (if (vlax-write-enabled-p o)
   
8.                                   (foreach e '(1e99 -1e99)
   
9.                                     (vlax-invoke o 'move '(0.0 0.0 0.0)
   
10.                                                  (list 0.0 0.0 e)
    
11.                                     )
    
12.                                   )
    
13.                                 )
    
14.                   )
    
15.                 )
    
16.   )
    
17.   (vla-regen d acallviewports)
    
18.   (princ)
    
19. )
    

(defun c:allflat (/ d)<br />   (vlax-for b (vla-get-blocks (setq d (vla-get-activedocument<br />                                                               (vlax-get-acad-object)<br />                                       )<br />                               )<br />               ) (if (= :vlax-false (vla-get-isxref b))<br />                   (vlax-for o b (if (vlax-write-enabled-p o)<br />                                   (foreach e '(1e99 -1e99)<br />                                     (vlax-invoke o 'move '(0.0 0.0 0.0)<br />                                                  (list 0.0 0.0 e)<br />                                     )<br />                                   )<br />                                 )<br />                   )<br />                 )<br />   )<br />   (vla-regen d acallviewports)<br />   (princ)<br /> )<br />

[it618postdisplay>0]

1. (vl-load-com) (princ)
   
2. 
   

(vl-load-com) (princ)<br /> <br />

[/it618postdisplay]

yoyoho

感谢 N版 分享程序!!!

q3_2006

能用于任意实体吗...这样的功能很需要..处理烂图用...

q3_2006

归零不等于拍平呀...如果有空间曲线呢??

ssddssdd

拍平好呀，

Lispboy

q3_2006 发表于 2016-9-6 11:48
能用于任意实体吗...这样的功能很需要..处理烂图用...

不想拍的你就别选他们啊，还想要0，还想要空间，能兼得吗

HLCAD

回复，向版主学习程序

q3_2006

Lispboy 发表于 2016-9-6 12:07
不想拍的你就别选他们啊，还想要0，还想要空间，能兼得吗

空间什么意思..我不懂呀..块内归零跟不是块的方法不同吗...现在很多图明明是平面都画成了三维..后期处理问题很我..拍平程序处理得并不好呀..

lucas3

Z轴归0的贴子蛮多的

gdslqs

很烦建筑图有时候明明是平面图居然还有z轴标高

shuaier

感谢分享！！

a88611462

确实是难得好帖啊，顶先

ray7891

这个代码屌。。。。图块搞定。
学习学习

wangshang323

我要仔细研究下

yi13570

支持面域吗？我试试