Create-Class-PlantUML.vbs

'
' Script Name: Create Class PlantUML
' Author: David Anderson
' Purpose: Callable routine for dealing with the creation of a class PlantUML script
' Date: 21-Feb-2021
'
' Change Log:
' 18-Sept-2022:		Support C4 Diagram
'

sub CreateClassPlantUML ()
	call LOGInfo("Create Class PlantUML Script activated " & currentDiagram.Stereotype)
	
	if Left(currentDiagram.Stereotype,2) = "C4" then
		CreateC4PlantUML ()
	else
		LOGWarning("This script does not yet support " & currentDiagram.Type & " diagrams")
	end if

	call LOGInfo ( "Create Class PlantUML Script Complete" )
	call LOGInfo ( "=========================================" )

end sub