Autor
|
Thema: Text Frame Rectangle (1425 mal gelesen)
|
cevk Mitglied Entwicklung / Admin
Beiträge: 45 Registriert: 03.02.2005 CATIA V5R19 SP9 Windows XP Prof SP3 MegaCad 2013 Windows 7 64 bit
|
erstellt am: 12. Mrz. 2008 17:49 <-- editieren / zitieren --> Unities abgeben:
Hallo CATIAner, habe ein Spezial-Drawing-Script-Problem und versuche es in Worte zu fassen. Also wenn ich, per Script, code: text.ActivateFrame (catRectangle) einen Rahmen um einen Text mache, wird um das Gesamte Textfeld ein Rahmen gezogen. Gleiche Vorgehensweise wie Text selektieren (einmal links klicken) dann rechte Maustaste -> Properties -> (Reiter) Text -> Frame -> Rectangle Ergebnis siehe Bild Pos.1 Wenn ich aber ein anderes Ergebnis erzielen möchte muss ich folgendes tun: Text editieren (zweimal links klicken) -> Text Editor geht auf. Dann rechte Maustaste auf Text (in der Zeichnung nicht im Texteditor) -> Properties -> (Reiter) Text -> Frame -> Rectangle
Ergebnis siehe Bild Pos.2 Ich denke für viele ist das neu aber vielleicht kennt jemand den code der die zweite Vorgehensweise abarbeitet.
Vielleicht irgendwas mit Selection aber ich komme einfach nicht weiter. Danke im voraus.
------------------ Grüße aus dem Schwarzwald Viktor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cevk Mitglied Entwicklung / Admin
Beiträge: 45 Registriert: 03.02.2005
|
erstellt am: 20. Mrz. 2008 11:27 <-- editieren / zitieren --> Unities abgeben:
Hallo, 'wollte mich einfach noch einmal in Erinnerung rufen. Weiss jemand irgendwas und wenn's nur ein Tip ist in welche Richtung ich weitersuchen soll? Bin für alles dankbar. ------------------ Grüße aus dem Schwarzwald Viktor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Engin33r Mitglied Ingenieur
Beiträge: 3 Registriert: 26.03.2019 Catia V5 R22 Win 10 64Bit
|
erstellt am: 27. Mrz. 2019 08:02 <-- editieren / zitieren --> Unities abgeben: Nur für cevk
|
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 27. Mrz. 2019 08:38 <-- editieren / zitieren --> Unities abgeben: Nur für cevk
Servus Engin33r Willkommen im Forum. Bitte Systeminfo ausfüllen. Ich vermute dass dies über die Methode SetParameterOnSubString geht. Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Engin33r Mitglied Ingenieur
Beiträge: 3 Registriert: 26.03.2019 Catia V5 R22 Win 10 64Bit
|
erstellt am: 16. Mai. 2019 15:40 <-- editieren / zitieren --> Unities abgeben: Nur für cevk
Hallo Bernd, danke für die Antwort. Mit GetParameterOnSubtring habe ich bereits einiges versucht, aber es haut nicht hin. Um das Problem genauer zu erläutern: Ich suche auf der Zeichnung nach Änderungsbuchstaben, also Textfeldern, die nur einen einzigen und bestimmten Buchstaben enthalten, z.B. "E". Da es aber auch Details oder Schnitte gibt, die eine Textbox mit dem selben Buchstaben "E" haben, werden diese mit ausgewählt. Ich möchte nun Unterscheiden zwischen diesen beiden. Die Änderungsbuchstaben haben einen kreisförmigen Rahmen, der das möglich machen sollte. Dieser Rahmen wird aber nicht um die Textbox gelegt, sondern um den einzelnen Buchstaben selbst. Wenn ich Debugge, wird allerdings unter TextProperties der FrameType als "None" angezeigt. Aber irgendwo muss doch der Rahmen definiert sein? Wenn ich beispielsweise den Text kursiv setze, gibt bekomme ich mit folgendem Code auch 1 zurück, dort funktioniert es: Set oDrawingText = oSel.Item(1).Value typ = oDrawingText.GetParameterOnSubString(catItalic, 0, 0) Vielleicht hat noch jemand eine Idee?
Viele Grüße Engin33r 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: 16. Mai. 2019 18:26 <-- editieren / zitieren --> Unities abgeben: Nur für cevk
Servus Und wenn du über eine Schleife jedes Zeichen des Textes einzeln prüfst? zB Code: Dim iParam as CatTextProperty iParam = catBorderfor i = 0 to (Len(MyDrawingText.Text) - 1 ) If MyDrawingText.GetParameterOnsubString(iParam, i, 1) <> catNone then MsgBox "Rahmen gefunden bei Zeichen " & CStr(i) end if next
Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Engin33r Mitglied Ingenieur
Beiträge: 3 Registriert: 26.03.2019 Catia V5 R22 Win 10 64Bit
|
erstellt am: 17. Mai. 2019 07:38 <-- editieren / zitieren --> Unities abgeben: Nur für cevk
|