' ' Script Name: EAConstants-VBScript.vbs ' Author: Sparx Systems ' Purpose: Provides constant values for the Enterprise Architect automation API. Please note that ' values have been declared THEN defined so that this script may be included in scripts where ' option explicit is declared ' Date: 2010-05-31 ' ' ================================================================================================= ' ObjectType ' See http://www.sparxsystems.com/enterprise_architect_user_guide/12.1/automation_and_scripting/objecttypeenum.html ' ================================================================================================= dim otNone, otProject, otRepository, otCollection, otElement, otPackage, otModel, otConnector, _ otDiagram, otRequirement, otScenario, otConstraint, otTaggedValue, otFile, otEffort, otMetric, _ otIssue, otRisk, otTest, otDiagramObject, otDiagramLink, otResource, otConnectorEnd, _ otAttribute, otMethod, otParameter, otClient, otAuthor, otDatatype, otStereotype, otTask, _ otTerm, otProjectIssues, otAttributeConstraint, otAttributeTag, otMethodConstraint, _ otMethodTag, otConnectorConstraint, otConnectorTag, otProjectResource, otReference, otRoleTag, _ otCustomProperty, otPartition, otTransition, otEventProperty, otEventProperties, _ otPropertyType, otProperties, otProperty, otSwimlaneDef, otSwimlanes, otSwimlane, _ otModelWatcher, otScenarioStep, otScenarioExtension, otParamTag, otProjectRole, _ otDocumentGenerator, otMailInterface otNone = 0 otProject = 1 otRepository = 2 otCollection = 3 otElement = 4 otPackage = 5 otModel = 6 otConnector = 7 otDiagram = 8 otRequirement = 9 otScenario = 10 otConstraint = 11 otTaggedValue = 12 otFile = 13 otEffort = 14 otMetric = 15 otIssue = 16 otRisk = 17 otTest = 18 otDiagramObject = 19 otDiagramLink = 20 otResource = 21 otConnectorEnd = 22 otAttribute = 23 otMethod = 24 otParameter = 25 otClient = 26 otAuthor = 27 otDatatype = 28 otStereotype = 29 otTask = 30 otTerm = 31 otProjectIssues = 32 otAttributeConstraint = 33 otAttributeTag = 34 otMethodConstraint = 35 otMethodTag = 36 otConnectorConstraint = 37 otConnectorTag = 38 otProjectResource = 39 otReference = 40 otRoleTag = 41 otCustomProperty = 42 otPartition = 43 otTransition = 44 otEventProperty = 45 otEventProperties = 46 otPropertyType = 47 otProperties = 48 otProperty = 49 otSwimlaneDef = 50 otSwimlanes = 51 otSwimlane = 52 otModelWatcher = 53 otScenarioStep = 54 otScenarioExtension = 55 otParamTag = 56 otProjectRole = 57 otDocumentGenerator = 58 otMailInterface = 59 ' ================================================================================================= ' MDGMenus ' See http://www.sparxsystems.com/enterprise_architect_user_guide/12.1/automation_and_scripting/mdgmenusenum.html ' ================================================================================================= dim mgMerge, mgBuildProject, mgRun mgMerge = 1 mgBuildProject = 2 mgRun = 4 ' ================================================================================================= ' EnumXMIType ' See http://www.sparxsystems.com/enterprise_architect_user_guide/12.1/automation_and_scripting/xmitypeenum.html ' ================================================================================================= dim xmiEADefault, xmiRoseDefault, xmiEA10, xmiEA11, xmiEA12, xmiRose10, xmiRose11, xmiRose12, _ xmiMOF13, xmiMOF14, xmiEA20, xmiEA21, xmiEA211, xmiEA212, xmiEA22, xmiEA23, xmiEA24 , xmiEA241, xmiEA242, xmiEcore, xmiBPMN20, xmiXPDL22 xmiEADefault = 0 xmiRoseDefault = 1 xmiEA10 = 2 xmiEA11 = 3 xmiEA12 = 4 xmiRose10 = 5 xmiRose11 = 6 xmiRose12 = 7 xmiMOF13 = 8 xmiMOF14 = 9 xmiEA20 = 10 xmiEA21 = 11 xmiEA211 = 12 xmiEA212 = 13 xmiEA22 = 14 xmiEA23 = 15 xmiEA24 = 16 xmiEA241 = 17 xmiEA242 = 18 xmiEcore = 19 xmiBPMN20 = 20 xmiXPDL22 = 21 ' ================================================================================================= ' EnumMVErrorType ' See http://www.sparxsystems.com/enterprise_architect_user_guide/12.1/automation_and_scripting/project_2.html ' ================================================================================================= dim mvError, mvWarning, mvInformation, mvErrorCritical mvError = 0 mvWarning = 1 mvInformation = 2 mvErrorCritical = 3 ' ================================================================================================= ' CreateModelType ' See http://www.sparxsystems.com/enterprise_architect_user_guide/12.1/automation_and_scripting/createmodelitype_enum.html ' ================================================================================================= dim cmEAPFromBase, cmEAPFromSQLRepository cmEAPFromBase = 0 cmEAPFromSQLRepository = 1 ' ================================================================================================= ' EAEditionTypes ' See http://www.sparxsystems.com/enterprise_architect_user_guide/12.1/automation_and_scripting/eaeditiontypes_enum.html ' ================================================================================================= dim piLite, piDesktop, piProfessional, piCorporate, piBusiness, piSystemEng, piUltimate piLite = -1 piDesktop = 0 piProfessional = 1 piCorporate = 2 piBusiness = 3 piSystemEng = 4 piUltimate = 5 ' ================================================================================================= ' ScenarioStepType ' See http://www.sparxsystems.com/enterprise_architect_user_guide/12.1/automation_and_scripting/scenariosteptype.html ' ================================================================================================= dim stSystem, stActor stSystem = 0 stActor = 1 ' ================================================================================================= ' ExportPackageXMIFlag ' See http://www.sparxsystems.com/enterprise_architect_user_guide/12.1/automation_and_scripting/exportpackagexmiflag.html ' ================================================================================================= dim epSaveToStub, epExcludeEAExtensions epSaveToStub = 1 epExcludeEAExtensions = 2 ' ================================================================================================= ' CreateBaselineFlag ' See http://www.sparxsystems.com/enterprise_architect_user_guide/12.1/automation_and_scripting/createbaselineflag.html ' ================================================================================================= dim cbSaveToStub cbSaveToStub = 1 ' ================================================================================================= ' EnumScenarioDiagramType ' See http://www.sparxsystems.com/enterprise_architect_user_guide/12.1/automation_and_scripting/project_2.html ' ================================================================================================= dim sdActivity, sdActivityWithActivityParameter, sdActivityWithAction, sdActivityhWithActionPin, _ sdRuleFlow, sdState, sdSequence, sdRobustness sdActivity = 0 sdActivityWithActivityParameter = 1 sdActivityWithAction = 2 sdActivityhWithActionPin = 3 sdRuleFlow = 4 sdState = 5 sdSequence = 6 sdRobustness = 7 ' ================================================================================================= ' EnumScenarioTestType ' See http://www.sparxsystems.com/enterprise_architect_user_guide/12.1/automation_and_scripting/project_2.html ' ================================================================================================= dim stInternal, stExternal, stHorizontalTestSuite, stVerticalTestSuite stInternal = 0 stExternal = 1 stHorizontalTestSuite = 2 stVerticalTestSuite = 3 ' ================================================================================================= ' EnumCodeSection ' ================================================================================================= dim cpWhole, cpNotes, cpText cpWhole = 0 cpNotes = 1 cpText = 2 ' ================================================================================================= ' EnumRelationSetType ' See http://www.sparxsystems.com/enterprise_architect_user_guide/12.1/automation_and_scripting/enumrelationsettypeenum.html ' ================================================================================================= dim rsGeneralizeStart, rsGeneralizeEnd, rsRealizeStart, rsRealizeEnd, rsDependStart, rsDependEnd, _ rsParents rsGeneralizeStart = 0 rsGeneralizeEnd = 1 rsRealizeStart = 2 rsRealizeEnd = 3 rsDependStart = 4 rsDependEnd = 5 rsParents = 6 ' ================================================================================================= ' EnumCodeElementType ' ================================================================================================= dim ctInvalid, ctNamespace, ctClass, ctAttribute, ctOperation, ctOperationParam ctInvalid = 0 ctNamespace = 1 ctClass = 2 ctAttribute = 3 ctOperation = 4 ctOperationParam = 5 ' ================================================================================================= ' PropType ' See http://www.sparxsystems.com/enterprise_architect_user_guide/12.1/automation_and_scripting/proptype_enum.html ' ================================================================================================= dim ptString, ptInteger, ptFloatingPoint, ptBoolean, ptEnum, ptArray ptString = 0 ptInteger = 1 ptFloatingPoint = 2 ptBoolean = 3 ptEnum = 4 ptArray = 5 ' ================================================================================================= ' SwimlaneOrientationType ' ================================================================================================= dim soVertical, soHorizontal soVertical = 0 soHorizontal = 1 ' ================================================================================================= ' ReloadType ' See http://www.sparxsystems.com/enterprise_architect_user_guide/12.1/automation_and_scripting/reloadtype_enum.html ' ================================================================================================= dim rtNone, rtEntireModel, rtPackage, rtElement rtNone = 0 rtEntireModel = 1 rtPackage = 2 rtElement = 3 ' ================================================================================================= ' ConstLayoutStyles ' See http://www.sparxsystems.com/enterprise_architect_user_guide/12.1/automation_and_scripting/constlayoutstylesenum.html ' ================================================================================================= dim lsDiagramDefault, lsProgramDefault, lsCycleRemoveGreedy, lsCycleRemoveDFS, _ lsLayeringLongestPathSink, lsLayeringLongestPathSource, lsLayeringOptimalLinkLength, _ lsInitializeNaive, lsInitializeDFSOut, lsInitializeDFSIn, lsCrossReduceAggressive, _ lsLayoutDirectionUp, lsLayoutDirectionDown, lsLayoutDirectionLeft, lsLayoutDirectionRight lsDiagramDefault = &H00000000 lsProgramDefault = &HFFFFFFFF lsCycleRemoveGreedy = &H80000000 lsCycleRemoveDFS = &H40000000 lsLayeringLongestPathSink = &H30000000 lsLayeringLongestPathSource = &H20000000 lsLayeringOptimalLinkLength = &H10000000 lsInitializeNaive = &H08000000 lsInitializeDFSOut = &H04000000 lsInitializeDFSIn = &H0C000000 lsCrossReduceAggressive = &H02000000 lsLayoutDirectionUp = &H00010000 lsLayoutDirectionDown = &H00020000 lsLayoutDirectionLeft = &H00040000 lsLayoutDirectionRight = &H00080000 ' ================================================================================================= ' WorkFlowConstants ' ================================================================================================= dim MaxWorkFlowUsers, MaxWorkFlowItems MaxWorkFlowUsers = 50 MaxWorkFlowItems = 100 ' ================================================================================================= ' PromptType ' ================================================================================================= dim promptOK, promptYESNO, promptYESNOCANCEL, promptOKCANCEL promptOK = 1 promptYESNO = 2 promptYESNOCANCEL = 3 promptOKCANCEL = 4 ' ================================================================================================= ' PromptResult ' ================================================================================================= dim resultOK, resultCancel, resultYes, resultNo resultOK = 1 resultCancel = 2 resultYes = 3 resultNo = 4 ' ================================================================================================= ' WorkFlowResult ' ================================================================================================= dim WorkFlowSucceeded, WorkFlowError, WorkFlowExists, WorkFlowNotFound, WorkFlowLimitReached, _ WorkFlowDenied, WorkFlowPermitted, WorkFlowIsMember, WorkFlowIsNotMember, WorkFlowBadParam WorkFlowSucceeded = 1 WorkFlowError = 2 WorkFlowExists = 3 WorkFlowNotFound = 4 WorkFlowLimitReached = 5 WorkFlowDenied = 6 WorkFlowPermitted = 7 WorkFlowIsMember = 8 WorkFlowIsNotMember = 9 WorkFlowBadParam = 10 ' ================================================================================================= ' DocumentType ' ================================================================================================= dim dtRTF, dtHTML, dtPDF, dtDOCX dtRTF = 0 dtHTML = 1 dtPDF = 2 dtDOCX = 3 ' ================================================================================================= ' DocumentBreak ' ================================================================================================= dim breakPage, breakSection breakPage = 0 breakSection = 1 ' ================================================================================================= ' TextAlignment ' ================================================================================================= dim alignLeft, alignCenter, alignRight, alignJustify alignLeft = 0 alignCenter = 1 alignRight = 2 alignJustify = 3 ' ================================================================================================= ' Message Flag ' ================================================================================================= dim mfNone, mfComplete, mfPurple, mfOrange, mfGreen, mfYellow, mfBlue, mfRed mfNone = 0 mfComplete = 1 mfPurple = 2 mfOrange = 3 mfGreen = 4 mfYellow = 5 mfBlue = 6 mfRed = 7