PM宏实现数模分层

xingyue*

在我的处女帖中我说了：能够使用宏来实现批量导入数模！那么导入数模后需要对模型进行分析……如何自动寻找平坦面，垂直面，浅滩面以及倒扣面！
本来打算上图的结果 呵呵！应该没有权限吧！！
算了！把宏的源码贴出来吧！
我这里只是简单的分类！你可以自己修改角度以达到你自己想要的效果！
源码如下：
//声明：
//     1）QQ:393004147
//     2）PM版本：2016
//     3）该宏只进行了简单的分层，复杂的可以在此基础上修改
//     4）浅滩面是指0度以上90度以下的面
DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
//重置层和组合
DELETE LEVEL "平坦面"
DELETE LEVEL "垂直面"
DELETE LEVEL "浅滩面"
DELETE LEVEL "0度以下面"
CREATE LEVEL "平坦面" MODELCOMPSET
CREATE LEVEL "垂直面" MODELCOMPSET
CREATE LEVEL "浅滩面" MODELCOMPSET
CREATE LEVEL "0度以下面" MODELCOMPSET


EDIT MODEL ALL DESELECT ALL
EDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
VIEW MODEL ; UCANGLE "90"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
EDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
FORM APPLY SELECTUNDERCUT
FORM ACCEPT SELECTUNDERCUT
EDIT LEVEL "平坦面" ACQUIRE SELECTED




EDIT MODEL ALL DESELECT ALL
EDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
VIEW MODEL ; UCANGLE "0"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
EDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
FORM APPLY SELECTUNDERCUT
FORM ACCEPT SELECTUNDERCUT
EDIT LEVEL "垂直面" ACQUIRE SELECTED


EDIT MODEL ALL DESELECT ALL
EDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
VIEW MODEL ; UCANGLE "0"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE NO
EDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
FORM APPLY SELECTUNDERCUT
FORM ACCEPT SELECTUNDERCUT
EDIT LEVEL "0度以下面" ACQUIRE SELECTED


EDIT MODEL ALL SELECT ALL
EDIT LEVEL "0度以下面" DESELECT ALL
EDIT LEVEL "平坦面" DESELECT ALL
EDIT LEVEL "浅滩面" ACQUIRE SELECTED
EDIT MODEL ALL DESELECT ALL


DIALOGS MESSAGE ON
DIALOGS ERROR ON

1217736021

好东西顶起啊

2016gaog

有又一个PM宏牛魔王出世
大家顶起{:smile:}

wwrst

楼主无私，顶起，后面保持队形！！！

1200.21

好强大

512037694

又一个无私的大师出来共享了  好东西顶起  {}

九MEI

有又一个PM宏牛魔王出世
大家顶起

seegood

高手横空出来！！！

qq381541276*

{:smile:}

qq381541276*

{:smile:}