EPS删除外业展点

scxffy

每日一码，删除外业展点

1. Sub OnClick()
   
2.                 res =msgbox("是否删除外业展点！",49)
   
3.                 if res =2 then
   
4.                         exit sub
   
5.                 end if
   
6.                 SSProcess.PushUndoMark
   
7.                 SSProcess.ClearSelection
   
8.                 SSProcess.ClearSelectCondition
   
9.                 SSProcess.SetSelectCondition "SSObj_Code", "==", "1105011,1105021,1105031"
   
10.                 SSProcess.SelectFilter
    
11.                 SSProcess.DeleteSelectionObj
    
12.                 SSProcess.ClearSelection
    
13.                 SSProcess.ClearSelectCondition
    
14. 
    
15.                 SSProcess.SetSelectCondition "SSObj_Type", "==", "NOTE"
    
16.                 SSProcess.SetSelectCondition "SSObj_FontClass", "==", "#"
    
17.                 SSProcess.SelectFilter
    
18.                 SSProcess.DeleteSelectionObj
    
19.                 SSProcess.ClearSelection
    
20.                 SSProcess.ClearSelectCondition
    
21. End Sub

复制代码

zqc0705

:mg:mg:mg:mg:mg:mg

bluesky2118

谢谢分享

13945788940

学习中，谢谢楼主。

高山流水123456

学习了，谢谢。

路鹏123

:mg:mg:mg

HUAGNXIN

学习了，感谢分享

photomesh

谢谢分享！！

li534255455

学习学习学习,谢谢楼主分享！！！

新禧

谢谢大佬分享