All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown | +---IDispatch | +---CATBaseUnknown | +---CATBaseDispatch | +---AnyObject | +---DrawingText
o Property AnchorPosition( | ) As CatTextAnchorPosition |
MyText.AnchorPosition = TopLeft
o Property Angle( | ) As double |
Angle90Clockwise = -90 MyText.Angle = Angle90Clockwise
o Property AssociativeElement( | ) As CATBaseDispatch |
MyText.AssociativeElement = line
o Property FrameType( | ) As CatTextFrameType |
MyText.FrameType = catEllipse
o Property Leaders( | ) As CATIADrawingLeaders (Read Only) |
Dim LeaderCollection As DrawingLeaders Set LeaderCollection = MyText.Leaders
o Property Text( | ) As CATBSTR |
CharString = MyText.Text
o Property TextProperties( | ) As CATIADrawingTextProperties (Read Only) |
Dim TextProperties As DrawingTextProperties Set TextProperties = MyText.TextProperties
o Property WrappingWidth( | ) As double |
MyText.WrappingWidth = 50.
o Property x( | ) As double |
X = MyText.x
o Property y( | ) As double |
NewYCoordinate = 5*25.4/1000 MyText.y = NewYCoordinate
o Sub ActivateFrame( | CatTextFrameType | 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( | long | iFirst, |
long | inbCharacter) As CATBSTR |
oFontName = MyText.GetFontName(0, 0)
o Func GetFontSize( | long | iFirst, |
long | inbCharacter) As double |
oFontSize = MyText.GetFontSize(0, 0)
o Func GetModifiableIn2DComponentInstances( | ) As boolean |
IsModifiable = MyText.GetModifiableIn2DComponentInstances
o Func GetParameterOnSubString( | CatTextProperty | iParam, |
long | iFirst, | |
long | inbCharacter) As long |
CatTextProperty iParam = catItalic iFirst = 0 inbCharacter = 0 oval = MyText.GetParameterOnsubString(iParam, iFirst, inbCharacter)
o Sub InsertVariable( | long | iFirst, |
long | inbCharacter, | |
CATBaseDispatch | 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( | long | iFirst, |
long | inbCharacter, | |
CATBSTR | iFontName) |
MyText.SetFontName 0, 0, "Courrier 10 BT"
o Sub SetFontSize( | long | iFirst, |
long | inbCharacter, | |
double | iFontSize) |
iFontSize = 3.5 MyText.SetFontSize 0, 0, iFontSize
o Sub SetModifiableIn2DComponentInstances( | ) |
MyText.SetModifiableIn2DComponentInstances
o Sub SetParameterOnSubString( | CatTextProperty | iParam, |
long | iFirst, | |
long | inbCharacter, | |
long | iVal) |
CatTextProperty iParam = catBold iFirst = 0 inbCharacter = 0 ival = 1 MyText.SetParameterOnsubString iParam, iFirst, inbCharacter, ival
Copyright © 2003, Dassault Systèmes. All rights reserved.