|
Autor
|
Thema: in View Selection Linienstärke ändern (CatDrawing) (1421 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 |
| | Ingenieur Elektrotechnik im Marineschiffbau (m/w/d) | | Akkodis ist ein Vorreiter in der Smart Industry und ein weltweit führendes Unternehmen in den Bereichen Engineering, IT, Forschung und Entwicklung. Als globaler Partner in einer sich ständig verändernden Technologie- & Wettbewerbsumgebung unterstützen wir unsere Kunden mit unserem 360°-Angebot dabei, eine nachhaltigere & smartere Zukunft zu gestalten. Wir sind davon überzeugt, dass wir die Grenzen des Möglichen überschreiten müssen, um das Unglaubliche zu schaffen.... | | Anzeige ansehen | Elektrotechnik, Elektronik |
|
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 >>)
 |
Foren auf CAD.de (alle Foren)
| 
