|
CATIA V5 Programmierung : Parameter anzeigen
Tapani. am 24.07.2006 um 11:53 Uhr (0)
moin,an die Werte der Parameter kommst du mit params.Item(i).Value und mit der Excel-Tabelle gibt es zwei Möglichkeiten:1) am einfachsten ist es, wenn du deine Ergebnisse in eine Komma-Seperated-List schreibst (Eine einfache Textdatei in der z.B. Parametername,ParameterValue in jeder Zeile stehen) und diese dann in Excel importierst2) oder du holst dir das Excel-Object und schreibst direkt in Excel. Das setzt m.E. allerdings voraus, das du das script als .vbs Datei schreibst, da du sonst an das Excel-Objek ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Excel Datei über Makro in Catia öffnen
Tapani. am 18.02.2008 um 08:57 Uhr (0)
Hallo Connormit Hilfe der Zeile:objXL.Parent.Windows(1).Visible = Truekannst du steuern, ob das Programm, das durch objXL repräsentiert wird, auf dem Bildschirm sichtbar ist oder nicht. Wenn man Wert auf die sichtbarkeit legt und das Programm (in diesem Fall excel) von aussen über die com/activeX Schnittstelle gestartet wurde, sollte man "visible" explizit auf "true" setzen, egal um welches Programm es geht. In deinem Fall ist es aber eigentlich gar nicht nötig, excel zu sehen und du kannst "visible" getro ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Excel Datei über Makro in Catia öffnen
Tapani. am 15.02.2008 um 19:13 Uhr (0)
Hallo Connors,du brauchst stattCode:Set oAWBook = objxl.Workbooks.Addnur Code:Set oAWBook = objxl.Workbooks.open("C:Eigene DateienPara.xls")und statt "oAWBook.SaveAs sFileName" nur "oAWBook.save" verwenden.CU Tapani Zitat:Original erstellt von Connors:Hallo zusammen,ich versuche ein Makro zu schreiben, welches einen oder mehrere Parameter in eine vorhandene Excel Datei exportiert. Ich hab keine Erfahrung mit Makros deshalb hoffe ich dass mir jemand helfen kann. Ich habe es schon geschafft Excel über ein M ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Screenshot im Batch
Tapani. am 15.02.2008 um 19:42 Uhr (0)
Hallo Petermaen,mein erster Tip ist, mit CATIA.width = 1024 und CATIA.Height = 768 das CATIA-Fenster per Script auf die richtige Größe zu bringen und dann den Screenshot zu machen...CU Tapani------------------Dont take life so seriously....its not a permanent condition
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : 3D_Space während Makrodurchlauf freigeben
Tapani. am 13.07.2006 um 18:09 Uhr (0)
moin,ja, die gibts: du schreibst das ganze nicht als catvbs-Makro, sondern als vbs-Makro. Das kann man dann außerhalb der CATIA starten (wenns unbedingt sein muss kann man sich auch noch einen wrapper schreiben, der das ganze aus CATIA heraus startet) und dann blockiert das Script nicht die CATIA, so das man drehen kann, wie man lust hat.Das ganze sieht dann in etwas so aus:Code: On Error Resume Next Set CATIA = GetObject("", "CATIA.Application") iErr = Err.Number If (iErr 0) Then On Error Goto 0 set CA ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Aufruf externes Programm: Übergabe von Strings mit Leerzeichen
Tapani. am 16.08.2006 um 15:57 Uhr (0)
moin,wenn man in CATIA die zusätzlichen Double-Quotes (") als chr(34) in den String einbettet funktionierts. Hier noch ein kleines Beispiel:Code:sub CATMain() CmdLine = "f: mpdoit.bat " & chr(34) & "f: mpa b" & chr(34) Ergebnis = CATIA.SystemService.ExecuteProcessus(CmdLine)end subund in doit.bat:Code:dir %1 f: mpla.txtCU Tapani------------------Dont take life so seriously....its not a permanent condition
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia auf einer externen Maschine über VB script ansprechen
Tapani. am 03.11.2006 um 13:32 Uhr (0)
Moin,du mußt einfach dem "CreateObject" die Host-Adresse mitgeben und kannst dann ganz normal weiterarbeiten: set RemCATIA=CreateObject("CATIA.Application","192.234.123.456")Wir hatten das aus dem InternetExplorer heraus gemacht und mußten alle Sicherheitseinstellungen (des IE) auf die niedrigst mögliche Stufe stellen.CU Tapani ------------------Dont take life so seriously....its not a permanent condition
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter für GetTechnologicalObject
Tapani. am 22.05.2006 um 10:00 Uhr (0)
Hallo allerseits.Da ich in der CATIA Hilfe nur wenige Hinweise gefunden habe, welche Objekte über Product.GetTechnologicalObject(string ) ansprechbar sind, habe ich mir mal die Mühe gemacht und per Script versucht eine vollständige Liste der Strings hinzukriegen:AnnotatedViewsArrangementProductAssemblyFeaturesClashesClashResultsDistancesDMUReviewsGroupsInertiaMarker3DsMechanismsMergesOffsetsSectionsSilhouettesSimplificationsSpatialQuerySweptVolumesThicknessesThreeDCutsVibrationVolumesWrappingsSampledsTrack ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter aus Part auslesen
Tapani. am 13.07.2006 um 17:16 Uhr (0)
moin,an die Parameter eines Parts kommst du mitCode:set secs = CATIA.Documents.Item("Slider.CATPart").Part.Parameters.Item("Radius")msgbox secs.NameDa du die Objekte des Strukturbaums alle abgrasen willst, ist es ratsam statt der Strings in den Item-Statements Zahlenwerte zu nehmen. Collections fangen immer bei 1 an und z.B. CATIA.Documents.Count gibt die Anzahl der vorhandenen Elemente an.Gerade für das abgrasen aller Elemente des Strukturbaums lege ich dir den Eintrag zu ReferenceProduct in der "Product" ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Assembly-Design - Sectioning -> Schnitte durch Makro als CATPart abspeicher
Tapani. am 11.07.2006 um 10:44 Uhr (0)
moin,was du bräuchtest ist wohl die Funktion AddNewSplit oder AddNewHybridSplit des Objektes ShapeFactory bzw. HybridShapeFactory. Wie das genau geht findest du dann in der Hilfe unter den beiden letztgenannten Objekten.z.B. set hybFact = CATIA.ActiveDocument.Part.HybridShapeFactory (angenommen ein CATPart ist geöffnet)set newSplit = hybFact.AddNewHybridSplit(Ref1,Ref2,1)wobei Ref1 & 2 Referenzen auf das zu schneidende Objekt bzw. die Ebene sind. Am besten erzeugt mit CATIA.ActiveDocument.Part.CreateRefere ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA Fenster Maximieren???????
Tapani. am 05.10.2006 um 12:52 Uhr (0)
moin,wir hatten das Problem mit sendkeys gelöst: Set WshShell = CreateObject("WScript.Shell") WshShell.AppActivate ("CATIA V5") Sleep 200 WshShell.SendKeys "% x", True Sleep 200 WshShell.SendKeys "% w", True Sleep 200 WshShell.SendKeys "% x", True Sleep 200Um eine Windowsapplikation zu maximieren reicht normalerweise Alt- x. wir hatten jedoch damit Schwierigkeiten, dehalb "maximieren" wir es erst, machen dann ein "wiederherstellen" und dann nochmal "maximieren".CU tapani------------------Dont tak ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrische Sets erstellen
Tapani. am 05.07.2006 um 11:42 Uhr (0)
moin,die Antwort auf deine erste Frage steht unter http://ww3.cad.de/foren/ubb/Forum137/HTML/001748.shtml#000002 (Geometrisches Set = HybridBody)und zur zweiten Frage: "Cameras" bzw. Viewer sind die Stichwörter für die Scripting-Hilfe. Cameras sind eine Property des Document-Objektes und Viewers (bzw. ActiveViewer) eine Property des Window-Objektes.Hier noch ein Code-Schnipsel zum Erzeugen und Überprüfen der Views:Code:sub CATMain() CATIA.ActiveWindow.ActiveViewer.NewCamera set cams = CATIA.ActiveDocument. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrische Sets erstellen
Tapani. am 05.07.2006 um 16:46 Uhr (0)
moin,das mit den querverweisen muss ich noch mal üben :-)zu den Sets: Wenn du die HybridBodies-Collection hast, kannst du ja in einer Schleife durchgehen, und die Namen aller bereits vorhandenen HybidBody-Objekte mit deinen Pflicht-Sets vergleichen.so à laCode:dim ar()pflichtnamen="Becks:Jever:Budwiser:Erdinger"set hybs = mypart.HybridBodiesa = split,(pflichtnamen,":")for j = 1 to UBound(a)if hybs.Count 0 then found = 0 for i = 1 to hybs.Count if a(j) = hybs.Item(i) then found = 1 end if nextend ifif ...
|
| In das Form CATIA V5 Programmierung wechseln |
