|
CATIA V5 Programmierung : Original aus Muster auslesen
DMaier am 08.04.2008 um 09:03 Uhr (0)
Zitat:For i = 1 To allPatterns.count Set onePattern = allPatterns.Item(i).Value Set Hole = onePattern.ItemToCopy Set ssSel = CATIA.ActiveDocument.Selection If Hole.ThreadingMode = 0 Then ssSel.clear ssSel.Add onePattern Set visPropertySet1 = ssSel.VisProperties visPropertySet1.SetRealColor 102, 153, 255, 0 Else ssSel.clear ssSel.Add onePattern Set visPropertySet1 = ssSel.VisProperties visPropertySet1.SetRealColor 102, 204, 102, 0 End IfNextda hast du wohl recht.Aber dann färbt mir das Macro Musterung ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Original aus Muster auslesen
DMaier am 08.04.2008 um 16:43 Uhr (0)
Nee, das wars nich^^Er färbt trotzdem ein gemustertes Pad.VB hab ich, nur keine Adminrechte zum Installieren Ich probiers zuhause nochmal, andernfalls meld ich morgen meinen Misserfolg Danke jedenfalls für die viele Mühe deinerseits./edit, 2 Stunden später...klappt irgendwie nicht, selbst wenn ich Muster ohne "Featuretype catSimpleHole" aus der Schleife werfe, wird das gemusterte Pad mit eingefärbt.Bin langsam ratlos Zitat:Sub CATMain() CATIA.Caption=theCATTitle Variablen Dim Hole As Hole ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : exe starten
DMaier am 10.04.2008 um 07:31 Uhr (0)
Diese Grafikfehler habe ich auch mit V5R16.Sollte aber normalerweise weg sein, wenn du manuell Catia aktiv machst undim Fenster etwas bewegst.
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Original aus Muster auslesen
DMaier am 08.04.2008 um 13:40 Uhr (0)
Nein, ich habe gar nichts definiert, weil ich wie oben schon angedeutet, keinen externen VB-Editor habe, also VBScript schreibe.Wenn ich Set ssSel= onePattern setze,dann bringt die Zeile Set visPropertySet1 = ssSel.VisPropertiesden Fehler Object doesnt suppoert this Method: ssSel.VisPropertiesich poste mal das restliche Macro. Der part mit den einzelnen Features läuft problemlos durch. Zitat:Sub CATMain()VariablenDim HoleDim ActpartDim allPatternsDim onePatternDim iDim kDim visPropertySet1Dim ssSelDim s ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Original aus Muster auslesen
DMaier am 08.04.2008 um 06:53 Uhr (0)
Die Funktion klappt, nun hab ich aber noch einen Fehler und weiss nicht warum. Zitat:Dim HoleDim ActpartDim allPatternsDim onePatternDim iDim visPropertySet1Dim ssSelPart selektierenset ActPart = CATIA.ActiveDocumentset allPatterns = ActPart.selectionnach vorhanden Mustern suchenallPatterns.Search "CATPrtSearch.Pattern,all"die Items der Muster abfragen und evtl. Befehle ausführenfor i = 1 to allpatterns.count Set onePattern = allPatterns.Item(i).Value set Hole = onePattern.ItemToCopy If Hole.ThreadingMode ...
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
