Autor
|
Thema: in View Selection Linienstärke ändern (CatDrawing) (1429 mal gelesen)
|
cmb Mitglied Systembetreuer
Beiträge: 500 Registriert: 12.07.2002 CATIA V5-6R2016 64bit Smarteam R22.6 Moldflow Adviser 2014 Lenovo Think Pad P90
|
erstellt am: 26. Feb. 2013 11:40 <-- editieren / zitieren --> Unities abgeben:
Hallo Forum, ich möchte in einer View Selection gerne alle Linienarten auf gepunktet setzen. Ein Auszug aus meinem Code: Code: ElseIf oAktivView Like Viewname_Dekor & "*" Then myView.GetViewName MyPrefix, MyIdent, MySuffix oSel.Add myView oSel.VisProperties.SetShow 0 'hier stelle ich die View auf show' mod 26.Febr. Linien formatieren Set visProp1 = oSel.VisProperties visProp1.SetRealLineType 15, 1 '''' alternativ getestet ''' oSel.VisProperties.SetRealLineType 6, 0 ''' '***Liniendicke definieren ''' oSel.VisProperties.SetRealWidth 1, 0 End If oSel.Clear Next
Leider ändert der Code die Linien nicht. Muss ich vielleicht diese explizit heraussuchen? Gruß Norbert ------------------ V5R20 Catia + Smarteam [Diese Nachricht wurde von cmb am 26. Feb. 2013 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cmb Mitglied Systembetreuer
Beiträge: 500 Registriert: 12.07.2002 CATIA V5-6R2016 64bit Smarteam R22.6 Moldflow Adviser 2014 Lenovo Think Pad P90
|
erstellt am: 26. Feb. 2013 12:03 <-- editieren / zitieren --> Unities abgeben:
Kaum macht man es richtig... Code: If oAktivView Like Viewname_measure & "*" Then myView.GetViewName MyPrefix, MyIdent, MySuffix oSel.Add myView oSel.VisProperties.SetShow 0 ElseIf oAktivView Like Viewname_Dekor & "*" Then myView.GetViewName MyPrefix, MyIdent, MySuffix oSel.Add myView oSel.VisProperties.SetShow 0 ' mod 26.Febr. Linien formatieren Dim oSelgenElements As Selection Set oSelgenElements = oSel.Selection oSelgenElements.Search "CATDrwSearch.CATEarlyGenItem,sel" oSelgenElements.VisProperties.SetRealLineType 6, 0 oSelgenElements.VisProperties.SetRealWidth 1, 0 End If oSel.Clear Next
Sichwort Suche in der Selection ------------------ V5R20 Catia + Smarteam Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|