' Get all information for all members of the Curve family
'***********************************
' Declarations
'
Option Explicit
Dim sList ' container for list of curves
Dim aCurves ' arrays of curves in list
Dim i ' for looping through list
Dim sName ' name of indiv. curves
Dim sInfo ' container for info
'***********************************
' Get Curve information
'
' Store list of curves in string container
sList = Dictionary.Info( ,siCurveFamily )
' Convert the list to an array of curves
aCurves = Split( sList, ", ", -1, vbTextCompare )
' Write header to History log
LogMessage "======================================="
LogMessage " CURVE INFORMATION "
LogMessage "---------------------------------------"
' Run through the collection to get the info for each item
For i = 0 to UBound(aCurves)
LogMessage "---------------------------------------"
' Set up name of current operator
sName = aCurves(i)
' Based on curve name, get all dictionary info
sInfo = dictionary.info( sName )
' Write info to History log
LogMessage sInfo
Next
'***********************************
' Output
'
'INFO : "======================================="
'INFO : " CURVE INFORMATION "
'INFO : "---------------------------------------"
'INFO : "---------------------------------------"
'INFO : "Circle
'Families = Geometry, Curves, Geometries
'"
'INFO : "---------------------------------------"
'INFO : "Arc
'Families = Geometry, Curves, Geometries
'"
'INFO : "---------------------------------------"
'INFO : "Spiral
'Families = Geometry, Curves, Geometries
'"
'INFO : "---------------------------------------"
'INFO : "Square
'Families = Geometry, Curves, Geometries
'" |