清华山维EPS二次开发-距离平行线

来源：互联网发布：js 读取数字证书编辑：程序博客网时间：2024/04/27 13:57

SubOnClick()
'添加代码
      SSProcess.PushUndoMark 
      SSProcess.ClearSelection 
      SSProcess.ClearSelectCondition 
      SSProcess.ClearSelectConditionGroups 
      SSProcess.UpdateSysSelection0
        cnt=SSProcess.GetSelGeoCount
        fori=0tocnt-1
                id=SSProcess.GetSelGeoValue(i,"SSObj_ID")
                code=SSProcess.GetSelGeoValue(i,"SSObj_CODE")
                'SSProcess.LineParallelDist geoID,dist,direction,wholeLine,moveOrCopy
                'direction:1外0内，wholeLine：0全部 ,moveorCopy：1copy 0move
                SSProcess.LineParallelDistid,0.2,0,0,1
                ids =SSProcess.SearchInnerObjIDs(id,2,code,0)
                SSProcess.SetObjectAttrids,"SSObj_code","4"
                SSProcess.SetObjectAttrids,"SSObj_COLOR","RGB(0，255，0)"
        next
      SSProcess.RefreshView  '刷新图形窗口
      SSProject.RefreshWorkspace '刷新工作空间窗口
EndSub

阅读全文

0 0