[EA VBscript] 日常工作 3. 对项目树中的Top/Sub Component分类归类到不同的Package内

就是个整理用杂活，很简单。

!INC Local Scripts.EAConstants-VBScript

'
' Script Name: TopSub_ComponentPutIntoDiffPack
' Author: Sora Fu
' Purpose: Daily work for deal with UML Project
' Date: 2018/11/27
'
sub main

	Dim package as EA.Package
	Dim TopElement as EA.Element
	Dim SubElement as EA.Element
	Dim TopCollection as EA.Collection
	Dim SubCollection as EA.Collection

	set TopCollection = Repository.GetTreeSelectedElements
	for each TopElement in TopCollection
		if TopElement.Elements.Count > 0 then
			set SubCollection =TopElement.Elements
			for each SubElement in SubCollection
				if SubElement.Type="Component" then
					'session.output(SubElement.Name)
					'session.output(Repository.GetElementByID(SubElement.ParentID).Name)
					SubElement.PackageID=112    '112 is the packageID of "SubComponent"
					SubElement.Update()	'It is nessecary to update elements
					'session.output(Repository.GetElementByID(SubElement.ParentID).Name)
				end if
			next
		end if
	next
end sub

main