免费视频|新人指南|投诉删帖|广告合作|地信网APP下载

查看: 7086|回复: 4
收起左侧

[资料] eps批量改变地物的方向(地物反向)代码

[复制链接]

30

主题

2660

铜板

13

好友

工程师

Rank: 7Rank: 7Rank: 7

积分
480
发表于 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


10

主题

2万

铜板

34

好友

黄金会员

Rank: 23Rank: 23Rank: 23Rank: 23Rank: 23Rank: 23Rank: 23

积分
4395

精华勋章灌水勋章活跃勋章贡献勋章

发表于 2020-9-22 08:06 | 显示全部楼层
谢谢分享
回复

使用道具 举报

853

主题

11万

铜板

251

好友

传奇会员

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

积分
22119

精华勋章宣传勋章爱心勋章组织勋章地信元老灌水勋章荣誉会员勋章活跃勋章地信专家组VIP勋章贡献勋章成就学员勋章

发表于 2020-10-2 10:28 | 显示全部楼层
谢谢提供分享!
该会员没有填写今日想说内容.
回复 支持 反对

使用道具 举报

0

主题

460

铜板

1

好友

技术员

Rank: 3Rank: 3

积分
62
发表于 2021-3-27 11:39 手机频道 | 显示全部楼层
能不能加点筛选 或者识别的代码  因为大部分是部分方向反的 不是全部相反
回复 支持 反对

使用道具 举报

15

主题

1万

铜板

14

好友

地信院士

Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15

积分
2008

宣传勋章爱心勋章地信元老灌水勋章荣誉会员勋章活跃勋章地信专家组VIP勋章贡献勋章成就学员勋章

发表于 2023-2-17 17:23 | 显示全部楼层
学习学习,谢谢分享
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

在线客服
快速回复 返回顶部 返回列表