Autor
|
Thema: DrawingText WrappingWidth (954 mal gelesen)
|
C.Samer Mitglied CAD Administrator
Beiträge: 72 Registriert: 03.05.2017
|
erstellt am: 10. Okt. 2017 10:09 <-- editieren / zitieren --> Unities abgeben:
Hallo! Ich hab mal wieder ein Problemchen. Das Textfeld in meinem Code wird erfolgreich hinzugefügt. Wieso funktioniert dann mein WrappingWidth Befehl nicht? CStr() führt leider auch nicht zum Ziel. Danke für eure Antworten Code: Dim oLala As DrawingText Set oLala = oDrwTexts.Add("Werkstoff:", iDrwWidth - iFrameBorderOutsideOffsetElse - iBorderWidth - 100 + 1, _ (iFrameBorderOutsideOffsetElse + iBorderWidth + iFrameTitleBlockRowHeight * 6) + iFrameTitleBlockRowHeight/2) oLala.Name = "Frame_TitleBlock_Text_Material_Label" oLala.anchorPosition = catMiddleLeft oLala.SetFontName 0,0,"Monospace821 BT" oLala.SetFontSize 0,0,1.5 MsgBox oLala.WrappingWidth
Liebe Grüße aus Wien, Christoph [Diese Nachricht wurde von C.Samer am 10. Okt. 2017 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 10. Okt. 2017 10:32 <-- editieren / zitieren --> Unities abgeben: Nur für C.Samer
|
Randle Mitglied CAD/PLM Consultant
Beiträge: 695 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18, R19, R21, R27-29
|
erstellt am: 10. Okt. 2017 10:34 <-- editieren / zitieren --> Unities abgeben: Nur für C.Samer
|
C.Samer Mitglied CAD Administrator
Beiträge: 72 Registriert: 03.05.2017
|
erstellt am: 10. Okt. 2017 11:24 <-- editieren / zitieren --> Unities abgeben:
Ah, ich Dummerchen. Altes Problem, altbewährte Lösung.. Code: Set oDrwText = oDrwTexts.Add("Werkstoff: ", iDrwWidth - iFrameBorderOutsideOffsetElse - iBorderWidth - 100 + 1, _ (iFrameBorderOutsideOffsetElse + iBorderWidth + iFrameTitleBlockRowHeight * 6) + iFrameTitleBlockRowHeight/2) oDrwText.Name = "Frame_TitleBlock_Text_Material" oDrwText.anchorPosition = catMiddleLeft oDrwText.SetFontName 0,0,"Monospace821 BT" oDrwText.SetFontSize 0,0,1.5 oDrwText.WrappingWidth = 0 Set oDrwText = oDrwTexts.Add("" & sMaterial, iDrwWidth - iFrameBorderOutsideOffsetElse - iBorderWidth - 100 + oDrwText.WrappingWidth + 1, _ (iFrameBorderOutsideOffsetElse + iBorderWidth + iFrameTitleBlockRowHeight * 6) + iFrameTitleBlockRowHeight/2) oDrwText.Name = "Frame_TitleBlock_Text_Material_Value" oDrwText.anchorPosition = catMiddleLeft oDrwText.SetFontName 0,0,"Monospace821 BT" oDrwText.SetFontSize 0,0,2.0
Danke euch! Jetzt geht es Liebe Grüße aus Wien, Christoph Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|