|
CATIA V5 Programmierung : Zugriff auf DLNAMES
Jens Hansen am 20.06.2006 um 00:57 Uhr (0)
Hallo Alex,das mit dem Auslesen klappt ja soweit ganz gut und DLnames kann ich auch erzeugen. Leider bekomme ich diese nicht aktiviert buw. als "Aktuell" gesetzt. Mein Ziel ist es, eine Datei über einen neu erzeugten DL-Namen zu speichern.Hat jemand eine Idee oder ne Lösung ??Jens Hansen------------------Inoffizielle CATIA-Hilfeseitehttp:catia.cad.de
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Absoluten Pfad von Part mit DLNames
logan am 23.01.2007 um 10:17 Uhr (0)
Hallo,ich lese Daten von einem geöffneten CATPart in eine Textdatei. Wenn CATIA in Tools/Options auf Folder = Current gesetzt ist, kann ich den Pfad eines geöffneten CATPart folgendermassen ermitteln:Dim sFilesFile = CATIA.ActiveDocument.Path & CATIA.FileSystem.FileSeparator & sFileNameBei der Verwendung von DLNames bekomme ich z.B. folgenden Wert für sFile:"CATIAV5MAP_01Geo Set_Part7_DeleteMe.txt"unter Windows. Dabei steht CATIAV5MAP_01 für den Namen des DLNames. Folgender Code schlägt dann fehl:Dim oFi ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Absoluten Pfad von Part mit DLNames
logan am 23.01.2007 um 22:37 Uhr (0)
Hallo CAMiCADse,ich hatte den Post überflogen und wohl falsch verstanden ("XML Datei generieren und auslesen..."). Werde noch mal in mein Kämmerlein gehen und das durcharbeiten.Dumm, dass die Dateioperationen in V5 Automation absolute Pfade erfordern, CATIA das DLName Konzept unterstützt, dem Programmierer jedoch nur so eine unelegante Lösung bereitstellt.CAMiCADse, ich bin mich für den Hinweis sehr dankbar! Viele Grüße,Logan
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Absoluten Pfad von Part mit DLNames
logan am 31.10.2008 um 13:55 Uhr (0)
Nun die Lösung:Set oSetCtrls = CATIA.SettingControllersDim oSetCtrl As SettingControllerSet oSetCtrl = oSetCtrls.Item("CATSysDLNameSettingCtrl")Dim sUnixPath As StringDim sWinPath As STringDim sParentDL As StringsParentDL = ""oSetCtrl.GetDLName("MyDLName", sUnixPath, sWinPath, sParentDL)Die Variablen sUnixPath und sWinPath enthalten nun die PfadeGetDLName liefert einen Fehler, wenn der DLName nicht existiert, dafür bitte mit On Error Resume Next... absichernViele Grüße,Logan
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Baugruppenkomponenten
Timberwolve am 13.10.2008 um 09:44 Uhr (0)
Hallo Zusammen, ich versuche schon seit geraumer Zeit Baugruppenkomponenten via Makro zu erstellen. Dies funkioniert leider nur dann, wenn die beiden Parts die ich für die Operation verwenden will (1. Part mit Abzugskörper 2. Zielpart). Auf der Obersten Stufe eines Produkts liegen. Stehen die Parts auf unterschiedlichen Stufen, so funktioniert das ganze nicht mehr. Ich verwende hier VB 2005 und CATIA V5R16. In VB6 und CATScript habe ich es auch schon getestet, leider ohne Erfolg. Hat hier vielleicht schonm ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elemente in Drawing: Farbe ändern
wumpel am 30.10.2008 um 08:17 Uhr (0)
Hallo,ich versuche mich seit einiger Zeit daran in einer CATDrawing alle Elemente mit der Farbe "orange" in "schwarz" zu ändern.Es klappt aber nicht.Mittlerweile glaube ich nicht mehr an den Erfolg.Eine ähnliche Aktion führe ich im 3D aus - klappt wunderbar.Nur im Drawing macht das Script nicht das, was ich möchte.Kann mir jemand die Zeilen umstricken, die ich vermasselt habe?Irgendwo hierdrin habe ich mich verrannt: Code:Dim DrawingDocument1 As Document Set DrawingDocument1 = CATIA.ActiveDocument Dim dr ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elemente in Drawing: Farbe ändern
Jan82 am 30.10.2008 um 15:25 Uhr (0)
Hallo , Code:Dim ElementDoc As Object Dim CATIA As INFITF.Application Dim Documents As INFITF.Documents Dim UserSelection As INFITF.Selection CATIA = GetObject(, "CATIA.Application") Documents = CATIA.Documents ElementDoc = CATIA.ActiveDocument UserSelection = ElementDoc.Selection UserSelection.Search("Color=(0,0,0),all") Dim visPropertySet1 As VisPropertySet visPropertySet1 = UserSelection.VisProperties visPropertySet1.SetRealColor(255, 128, 0, 0)... diese Co ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elemente in Drawing: Farbe ändern
Randle am 30.10.2008 um 16:02 Uhr (0)
Hallo,was der kollege da macht ist folgendes:Er sucht alle Elemente die eine bestimmte Farbe haben. In deinem Fall wäre das Orange (255,128,0)Diese Element färbt er dann einfach über die Selection um.Habe das mal mit dem Rekorder aufgezeichnet:Sub CATMain()Set drawingDocument1 = CATIA.ActiveDocumentSet selection1 = drawingDocument1.Selectionselection1.Search "Color=(255,128,0),all"Set selection2 = drawingDocument1.Selectionselection2.Search "Color=(0,0,0),all"End SubIch hoffe du kannst damit mehr anfangen. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elemente in Drawing: Farbe ändern
Jan82 am 30.10.2008 um 20:44 Uhr (0)
Hallo ,Code:Sub CATMain() Set ElementDoc = CATIA.ActiveDocument Set UserSelection = ElementDoc.Selection UserSelection.Search("Color=(0,0,0),all") Set visPropertySet1 = UserSelection.VisProperties visPropertySet1.SetRealColor 255, 128, 0, 0End SubDiese Code ist schon , fuer Dich richtig , kannst Du kopieren...Grüße Jan
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Text ändern
tberger am 22.08.2011 um 07:50 Uhr (0)
Hallo 123student,den Inhalt des betreffenden Textfeldes, wenn du es zugewiesen hast bekommst du mit .Text :If oTexts.Item(i).Text = "xyz" ThenDie Neubefüllung setzt du mit:oTexts.Item(i).Text = "a"------------------Grüße aus dem ThurgauThomas+++++++++++++++++++++++++++++++++CATIA - eine Laune der Natur ...[Diese Nachricht wurde von tberger am 22. Aug. 2011 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part in einem Product anwählen
Knowledge am 03.11.2008 um 15:38 Uhr (0)
Hallo zusammen.Ich verzweifele gerade an foldender Situation. Vielleicht kann mir jemand helfen. Ich möchte in CATParts, die unterhalb eines CATProducts liegen, ein GeoSet erzeugen, wenn es dort noch keines gibt. Der Speichername ist nicht bekannt, da dieser von einer Datenbank automatisch vergeben wird. Damit wird die Definition (documents1.Item("Part1.CATPart")) schwierig für mich.Ich weiß, dass ich so in ein CATPart komme (dem Recorder sei Dank) Dim documents1 As Documents Set documents1 = CATIA.Documen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part in einem Product anwählen
K.Siebert am 03.11.2008 um 17:13 Uhr (0)
Hallo KnowledgeSo kannst du denn Namen oder den Pfad abfragen. Diese Abfrage ist immer für das Aktive FesterBei FullName bekommst du alles Pfad und Name als StringCode:Set partDocument1 = CATIA.ActiveDocument Pfad = CATIA.ActiveDocument.Path Name oder FullName oder PathName = CATIA.ActiveDocument.Name Name oder FullName oder Pathmsgbox Namemsgbox PfadUnd so kannst du alle Parts Selektieren und den Namen Auslesen (PartName)Code:Dim UserSelektion As SelectionSet productDocument1 = CATIA.ActiveDocument ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Spline in Drawing per CATScipt
Jan82 am 03.11.2008 um 18:53 Uhr (0)
Hallo , pruefst Du diese Code...Code:Sub CATMain()Set Drawingdocument1 = CATIA.ActiveDocumentSet drawingSheets1 = Drawingdocument1.SheetsSet drawingSheet1 = drawingSheets1.ActiveSheetSet drawingViews1 = drawingSheet1.ViewsSet drawingview1 = drawingViews1.Add("Unfolded View")Set myFactory2D = drawingview1.Factory2DSet drawingViewGenerativeBehavior1 = drawingview1.GenerativeBehaviordrawingViewGenerativeBehavior1.DefineFrontView 1, 0, 0, 0, 1, 0drawingview1.X = 100drawingview1.Y = 100drawingview1.ActivateDim ...
|
| In das Form CATIA V5 Programmierung wechseln |
