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.