All Frameworks Object Hierarchy This Framework Indexes
o Property AnchorPosition( | ) As |
MyText.AnchorPosition = TopLeft
o Property Angle( | ) As |
Angle90Clockwise = -90 MyText.Angle = Angle90Clockwise
o Property AssociativeElement( | ) As |
MyText.AssociativeElement = line
o Property FrameType( | ) As |
MyText.FrameType = catEllipse
o Property Leaders( | ) As (Read Only) |
Dim LeaderCollection As DrawingLeaders Set LeaderCollection = MyText.Leaders
o Property TextProperties( | ) As (Read Only) |
Dim TextProperties As DrawingTextProperties Set TextProperties = MyText.TextProperties
o Property Text( | ) As |
CharString = MyText.Text
o Property WrappingWidth( | ) As |
MyText.WrappingWidth = 50.
o Property x( | ) As |
X = MyText.x
o Property y( | ) As |
NewYCoordinate = 5*25.4/1000 MyText.y = NewYCoordinate
o Sub ActivateFrame( | itype) |
CatTextFrameType ityp = catRectangle MyText.ActivateFrame(itype)This example removes the frame to MyText drawing text.
CatTextFrameType ityp = catNone MyText.ActivateFrame(itype)
o Func GetFontName( | iFirst, | |
inbCharacter) As |
oFontName = MyText.GetFontName(0, 0)
o Func GetFontSize( | iFirst, | |
inbCharacter) As |
oFontSize = MyText.GetFontSize(0, 0)
o Func GetModifiableIn2DComponentInstances( | ) As |
IsModifiable = MyText.GetModifiableIn2DComponentInstances
o Func GetParameterOnSubString( | iParam, | |
iFirst, | ||
inbCharacter) As |
CatTextProperty iParam = catItalic iFirst = 0 inbCharacter = 0 oval = MyText.GetParameterOnsubString(iParam, iFirst, inbCharacter)
o Sub InsertVariable( | iFirst, | |
inbCharacter, | ||
ibase) |
Dim DrwDocument As DrawingDocument Set DrwDocument = CATIA.ActiveDocument Dim iParameter As Parameter Set iParameter = DrwDocument.Parameters.Item("Drawing\Sheet.1\ViewMakeUp.1\Scale") MyText.InsertVariable 0, 0, iParameter
o Sub SetFontName( | iFirst, | |
inbCharacter, | ||
iFontName) |
MyText.SetFontName 0, 0, "Courrier 10 BT"
o Sub SetFontSize( | iFirst, | |
inbCharacter, | ||
iFontSize) |
iFontSize = 3.5 MyText.SetFontSize 0, 0, iFontSize
o Sub SetModifiableIn2DComponentInstances( | ) |
MyText.SetModifiableIn2DComponentInstances
o Sub SetParameterOnSubString( | iParam, | |
iFirst, | ||
inbCharacter, | ||
iVal) |
CatTextProperty iParam = catBold iFirst = 0 inbCharacter = 0 ival = 1 MyText.SetParameterOnsubString iParam, iFirst, inbCharacter, ival
Copyright © 2003, Dassault Systèmes. All rights reserved.