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.