Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
objExcelWorkBook = objExcelApplication.Workbooks.Add();
objExcelWorkBook.Save( true );
strExcelWorkBookFullName = objExcelWorkBook.FullName;
objExcelWorkBook.Close();
objExcelFile = fileSystemObject.GetFile( strExcelWorkBookFullName );
objExcelFile.Move( strExcelFileName );
let objExcelWorkBook = null;
let objExcelApplication = null;
// Start the Excel Application as COMObject
objExcelApplication = new COMObject( "Excel.Application", true );
// Get the strExcelFileName to get the information from
projectInterface = Repository.GetProjectInterface();
strExcelFileName = projectInterface.GetFileNameDialog( strExcelFileName, FilterString, Filterindex, Flags, InitialDirectory, OpenorSave );
// Get objExcelWorkBook from the strExcelFileName provided
objExcelWorkBook = objExcelApplication.Workbooks.Open( strExcelFileName );
if ( objExcelWorkBook != null ) {
// objExcelWorkBook FOUND
Session.Output("EXCELWOpenWorkbook found Workbook with strExcelFileName = " + strExcelFileName + " !" );
} else {
// If the objExcelWorkBook file does not exist, then create one
objExcelWorkBook = objExcelApplication.Workbooks.Add();
if ( objExcelWorkBook != null ) {
// If the file added ok, then save it with new name
objExcelWorkBook.SaveAs( strExcelFileName );
} else {
LOGError( "EXCELWOpenWorkbook could NOT open nor add strExcelFileName " + strExcelFileName + "!" );
}
}
// Close and save the previously opened or created objExcelWorkBook
objExcelApplication.Workbooks.Close();
!INC Local Scripts.EAConstants-JavaScript
/*
* This code has been included from the default Diagram Script template.
*
* For all LegendElements on the selected diagram:
* If TaggedValue filter
* Find all TaggedValues for this Value
* Update t_xref list of properties for this legend
* Refresh Diagram
*
*
* Script Name: CheckTaggedValues
* Author: J de Baat
* Purpose: Show the TaggedValues of all elements occuring on the selected diagram
* Date: 10-08-2023
*/
/*
* Check the TaggedValues of theElement provided as parameter
*/
function CheckTaggedValuesElement( theElement )
{
// Cast theElement to EA.Element so we get intellisense
var curElement as EA.Element;
var curElementTags as EA.Collection;
curElement = theElement;
curElementTags = curElement.TaggedValues;
// List all element tags
for ( var i = 0 ; i < curElementTags.Count ; i++ )
{
var curTaggedValue as EA.TaggedValue;
curTaggedValue = curElementTags.GetAt( i );
Session.Output("curElement(" + curElement.Name + ")(" + curElementTags.Count + ") found curTaggedValue.Name= " + curTaggedValue.Name + ", Value= " + curTaggedValue.Value + ", PropertyGUID= " + curTaggedValue.PropertyGUID + "!!!" );
}
}
/*
* Diagram Script main function
*/
function CheckTaggedValues()
{
// Get a reference to the current diagram
var currentDiagram as EA.Diagram;
currentDiagram = Repository.GetCurrentDiagram();
Session.Output("+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++" );
if ( currentDiagram != null )
{
Session.Output("Selected Diagram(DiagramID: " + currentDiagram.DiagramID + ") Name= " + currentDiagram.Name );
// Get a reference to any selected connector/objects
var diagramObjects as EA.Collection;
var currentElement as EA.Element;
diagramObjects = currentDiagram.DiagramObjects;
// Check whether this diagram has any objects in it
if ( diagramObjects.Count > 0 )
{
Session.Output("Selected diagramObjects.Count: " + diagramObjects.Count );
// One or more diagram objects are selected
for ( var i = 0 ; i < diagramObjects.Count ; i++ )
{
Session.Output("..........................................................................................." );
// Process the currentDiagramElement
var currentDiagramElement as EA.Element;
var currentElement as EA.Element;
currentDiagramElement = diagramObjects.GetAt( i );
currentElement = Repository.GetElementByID( currentDiagramElement.ElementID );
// Check the TaggedValues of the currentElement
CheckTaggedValuesElement( currentElement );
}
// Reload diagram when all processing is done
Repository.ReloadDiagram( currentDiagram.DiagramID );
}
else
{
// No objects on this diagram
Session.Output("No objects on this diagram" );
}
}
else
{
Session.Prompt( "This script requires a diagram to be visible.", promptOK)
}
Session.Output("===========================================================================================" );
}
CheckTaggedValues();
