eps批量改变地物的方向（地物反向）代码

滴水之恩 · 发表于 2020-9-21 17:00

打开eps，进入工具，下拉打开脚本管理器，新建有膜脚本，命名脚本的名称，复制以下代码。（注意需要有一定的编程基础或者对eps熟悉使用，否则会出现各种错误，代码不易调试，具体参考eps脚本语言帮助文档）
Sub OnClick()
dwfx "2203052"'沟壑
dwfx "4602002"'斜坡式防波堤
dwfx "2708017"'斜坡式有栅栏的加固岸
dwfx "2611002"'瀑布、跌水
dwfx "3801014"'完好砖石城墙
dwfx "3801024"'破坏砖石城墙
dwfx "3801034"'完好的土城墙
dwfx "3802012"' 围墙(不依比例)
dwfx "3802022"' 栅栏
dwfx "6701022"' 自然、文化保护区界
dwfx "4502012"' 已加固路堑
dwfx "4502022"' 未加固路堑
dwfx "4502032"' 已加固路堤
dwfx "4502042"' 未加固路堤
dwfx "3215052"' 滑槽线
dwfx "3501013"' 烽火台
dwfx "2709002"' 栅栏坎
'备注：////////////调整闭合点参数设置：编码(编码可以为多个，用西文逗号分隔)，可以自己添加

End sub

'反向
Function dwfx(code)
SSProcess.PushUndoMark
SSProcess.ClearSelection
SSProcess.ClearSelectCondition
SSProcess.SetSelectCondition "SSObj_Code", "==", code
SSProcess.SelectFilter
SSProcess.ChangeSelectionObjAttr "SSObj_Reverse","1"
SSProcess.ClearSelection
SSProcess.ClearSelectCondition
End Function