【SF】超级展平/Z轴归零

kucha007

最近遇到了需要Z轴归零的图纸....用了CAD自带的Flatten、天正的Z轴归零和明经上的各种插件都不顶用

就在我准备摆烂的时候，看到Lee Mac提到了Joe Burke的SuperFlatten，于是抱着试试看的心情找了相关的帖子。
结果真香，虽然有遇到部分填充被分解的情况，但大部分都能完美压平，救了我的狗命，分享给大家学习研究。
建议复制文件出来处理，处理完再对比一下源文件(嗯，做好备份）

原帖：http://www.theswamp.org/index.php?topic=18153.120

VVA做的修改：https://forum.dwg.ru/showthread.php?t=25474&page=4

1028695446

迷你工具箱里面收集的Z轴归0应该用的就是在这个程序上修改而来的，一直想单独收集这个功能，终于等到了



      (if WMFflag
        (progn
          (command "-view" "s" "SFview")
          ;; Visual styles were added in 2007. Two reasons for the following
          ;; command calls. First, set the view style to 2d wireframe.
          ;; Second, in some cases beta testing showed if the view was set to
          ;; 2d wireframe and then the view was saved, the saved wiew was not
          ;; 2d wirefame as expected. Seems like a bug. Whatever, this fixes
          ;; that problem and eliminates the need for the user to set the view
          ;; to 2d wireframe before running the routine.
          ;; Exmaple file: 2008 Sample folder Visualization - Conference Room.dwg.
          (if (>= version 17)
            (progn
              (command "-view" "E" "V" "SFview" "二维线框"
                       "B" "SFview" "N" "" "")
              (command "-view" "R" "SFview")
            )
          )
        )
      )  






    ;; Added test for model space 2/9/2011. Aviods a non-fatal error message
    ;; at the command line regarding no active model space viewport when
    ;; flattening a block definition in paper space.
    (if (= 1 (vlax-get doc 'ActiveSpace))
      (command "-view" "o" "T")
    )

kucha007

顺便说一下，可能会出现视觉样式不存在的情况，这是因为作者只有英文版测试（虽然看简介应该已经做成国际版了）
我在2018改为改成中文版本的名称“二维线框”也不顶用，不知道为啥。
但看作者的解释，如果不需要压平三维实体，直接把这段注释掉就没事了。

2. (if WMFflag
   
3.   (progn
   
4.     (command "._view" "_save" "SFview")
   
5.     (if (>= version 17)
   
6.       (progn
   
7.         (command "._view" "_settings" "_visual" "SFview" "2d wireframe"
   
8.                   "_background" "SFview" "_none" "" "")
   
9.         (command "._view" "_restore" "SFview")
   
10.       )
    
11.     )
    
12.   )
    
13. )

(if WMFflag<br />   (progn<br />     (command "._view" "_save" "SFview")<br />     (if (>= version 17)<br />       (progn<br />         (command "._view" "_settings" "_visual" "SFview" "2d wireframe"<br />                   "_background" "SFview" "_none" "" "")<br />         (command "._view" "_restore" "SFview")<br />       )<br />     )<br />   )<br /> )

kucha007

1028695446 发表于 2022-11-16 23:16
迷你工具箱里面收集的Z轴归0应该用的就是在这个程序上修改而来的，一直想单独收集这个功能，终于等到了

...

我也是改成"二维线框"，为什么你改的就不报错啊，气死个人

行天下

感谢分享，学习了

w379106181

感谢分享，学习了

panliang9

楼主高产，不知道你是什么专业！

kucha007

panliang9 发表于 2022-11-17 08:26
楼主高产，不知道你是什么专业！

景观专业小透明一个

孙玉坤

很喔噻的功能   给大师点赞

哆啦A梦_oELxg

先收藏再说。