Autor
|
Thema: Drawing Dimension Symbol (918 mal gelesen)
|
shoutz000 Mitglied Techn. Produktdesigner
Beiträge: 168 Registriert: 19.08.2013 CatiaV5 R19 CatiaV5 R24 Windows 7 Professional
|
erstellt am: 23. Jul. 2015 21:13 <-- editieren / zitieren --> Unities abgeben:
Hi miteinander, habe zu dem Problem leider nichts passendes bisher gefunden. Problem ist es ein Symbol vor eine Dimension zu setzen. Ich kann ein Symbol so vor eine Dimension setzen:
Code:
Set oSel = oDoc.Selection Dim sFilter(0) sFilter(0) = "AnyObject" sStatus = oSel.SelectElement2(sFilter, "", True) On Error Resume Next If sStatus = "Normal" Then For i = 1 To oSel.Count Set oDim = oSel.Item(i).Value Set oDimValue = oDim.GetValue oDimValue.SetPSText 1, "<DIAMETER>", "" Next Else Exit Sub End If
Hier als Beispiel füge ich das Durchmesserzeichen ein. Es funktioniert nahezu jedes Symbol (einfach den Namen eingeben, welcher angezeigt wird wenn man mit der Maus über dem Symbol steht), aber das Symbol das ich einfügen muss ist das eingekreiste s (Regardless Of Feature Size). Egal wie ich das schreibe es wird nicht eingefügt... Kennt jamand dafür die richtige Schreibweise?! [Diese Nachricht wurde von shoutz000 am 23. Jul. 2015 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: 23. Jul. 2015 21:30 <-- editieren / zitieren --> Unities abgeben: Nur für shoutz000
|
joehz Moderator Freiberuflicher Konstrukteur
Beiträge: 1057 Registriert: 25.11.2006 Win7 Pro 64 + Ubuntu + Irix6.5.20 Dell Precision M6600 i7-2960XM 2.7GHz 16GB NVidia Quadro M5010 Catia V5R19 VB6Pro.SP6/VBA 6.5.1053
|
erstellt am: 23. Jul. 2015 22:52 <-- editieren / zitieren --> Unities abgeben: Nur für shoutz000
|
| Technischer Systemplaner (m/w/d) der Fachrichtung Versorgungs- & Ausrüstungstechnik | Als zentraler Dienstleister des Landes Schleswig-Holstein setzen wir als GMSH mit unseren 1.700 Beschäftigten nachhaltige Standards in den Bereichen öffentliches Bauen, Bewirtschaften und Beschaffen. Bei der Suche nach den besten Lösungen für unsere Kunden sind wir fachkundig und zuverlässig, innovativ und zukunftsorientiert. Sie suchen einen neuen Arbeitsplatz mit spannenden Aufgaben ... | Anzeige ansehen | Systemadministration, Netzwerkadministration |
|
shoutz000 Mitglied Techn. Produktdesigner
Beiträge: 168 Registriert: 19.08.2013 CatiaV5 R19 CatiaV5 R24 Windows 7 Professional
|
erstellt am: 24. Jul. 2015 06:15 <-- editieren / zitieren --> Unities abgeben:
|