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

←￠塰涯の誌

好东西顶起啊

zhz007007

好东西顶起啊

jjxxqq*

PM宏牛魔王出世

tianlanshuiqing

真厉害！

xutai_2012

太好了，早就想要这个了，感谢楼主，辛苦了

y107620560

楼主好厉害啊~~

Lauren*

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

xingyue*

没有人喜欢这个吗？

順⑦洎嘫

谢谢分享，十分感谢，3Q