|
CATIA V5 Programmierung : Exel 3D-Punkte nach Catia V5 einlesen
ManniBo am 10.03.2010 um 16:40 Uhr (0)
Hallo zusammen,ist es möglich das Makro so zu ändern das es die Dateiauswahl öffnet und nicht direkt auf ("d:punkte.xls") zugreift ? Ich würde den Excelsheet gerne ohne genaue Pfadangabe und Namen auswählenSet Excel = CreateObject("Excel.Application") Excel starten Excel.Visible = True Set WB = Excel.Workbooks.Open("d:punkte.xls") Arbeitsmappe öffnen Set WS = WB.Worksheets.Item(1) Tabelle holenFür eine Hilfe wäre ich sehr Dankbar.Mit freundlichen GrüßenManni
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Exel 3D-Punkte nach Catia V5 einlesen
Thomas Harmening am 10.03.2010 um 18:19 Uhr (0)
hilft dir schon die Forensuche weiter?
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Exel 3D-Punkte nach Catia V5 einlesen
ManniBo am 11.03.2010 um 13:33 Uhr (0)
Hallo Dominik,ich habe erst mit diesem Thema begonnen und habe jetzt ein Problem. In Excel (Makro) habe ich das schon gemacht aber mit CATIA noch nicht. Das CATIA-Makro läuft super, es ist mir aber zu unflexibel.Das ganze läuft als CATScript. Ich finde jedoch nichts zu "FileSelectionBox".Das Aufzeichnen des Makros zum öffnen der Dateiauswahl funzt nicht. Hast Du vielleicht ein kleines Makro ?Mit freundlichen GrüßenManni
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Exel 3D-Punkte nach Catia V5 einlesen
AndyMF am 11.03.2010 um 13:45 Uhr (0)
Hallo Manniwegen dialog öffnen Code:myTabelle = CATIA.FileSelectionBox("FileOpen", "*.xlsx;*.xls", CatFileSelectionModeOpen)If myTabelle "" ThenDEIN codeEnd Ifsomit ist mytabelle deine Punktedatei GrüsseAndy
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fill erzeugen
Jens Hansen am 11.03.2010 um 14:19 Uhr (0)
Hallo,wie lautet denn die Fehlermeldung??????????An welcher Zeile im Makro genau springt denn dann der Debugger hin (wenn man die Frage mit OK beantwortet, ob man das Script bearbeiten möchte).SGJens Hansen------------------Inoffizielle CATIA-HilfeseiteHomepage von Jens HansenKochbuch - CATIA V5 automatisieren
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fill erzeugen
AL-Fonse am 11.03.2010 um 15:53 Uhr (0)
Servus!Anbei die Aufnahme...Code:________________________________________________________________Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridShapeFactory1 As HybridShapeFactorySet hybridShapeFactory1 = part1.HybridShapeFactoryDim hybridShapeSpline1 As HybridShapeSplineSet hybridShapeSpline1 = hybridShapeFactory1.AddNewSpline()hybridShapeSpline1.SetSplineType 0hybridShapeSpline1.SetClosing 0Dim hybridBodies1 A ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Einmaliger Name auf oberster Part-Ebene
Math.random am 16.04.2010 um 07:59 Uhr (0)
Hallo Forum!Wie lässt sich sicherstellen, dass ein per Makro vergebener Name im Strukturbaum auf gleicher Ebene nicht doppelt vorhanden ist?Konkret habe ich folgendes vor:Ein Geometrisches Set per CATIA.ActiveDocument.Part.HybridBodies.Add() erzeugen.Dem Set im Baum einen "sprechenden" Namen geben, z.B. "GeoSet_Makro".In das erzeugte Set werden u.a. Parameter eingefügt, die miteinander per Formel verknüpft sind.Damit die in den Formeln angegebenen Pfade (z.B. Offset = GeoSet_MakroAbstandsparameter) eindeut ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schnitt (Section) per Makro in eigenem Fenster öffnen
PinKing am 11.03.2010 um 16:33 Uhr (0)
Hallo,vielen Dank für die Antwort. Wenn man einen Rechtsklick auf einen Schnitt macht, öffnet sich ein Kontextmenü. Dort findet man den Menü-Eintrag "Schnittname object" und dort wiederum eine Ebene tiefer den Befehl "open the associated viewer(s)". Ich werde mal versuchen den Befehl dafür rauszubekommen, weiss allerdings noch nicht wie man das anstellt. Trotzdem schon mal Danke für den Denkanstoß.Nachtrag:Mit CATIA.StartCommand ("Open the associated viewer(s)") scheint es zu gehen,nur habe ich jetzt noc ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schnitt (Section) per Makro in eigenem Fenster öffnen
ogard1 am 11.03.2010 um 19:08 Uhr (0)
Hallo,Set selection = productDocument.Selectionselection.Search "Name=*Section.1,*" CATIA.StartCommand ("Open the associated viewer(s)")Gruß
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kreismuster wird willkürlich erstellt
Math.random am 12.03.2010 um 06:50 Uhr (0)
Danke für die Antwort, das erneute Zuweisen der Parameter funktioniert.Aber der Weg dorthin war sehr steinig.Für mich selbst ist das Problem geklärt. Ich verfasse diese Antwort somit, um anderen Usern ähnlichen Ärger mit Kreismustern zu ersparen.Wie oben ersichtlich, benötigt der Befehl AddNewSurfacicCircPattern 13 Parameter.Bei vier dieser Parameter besteht das Problem, dass statt der im Skript angegebenen Werte die Werte des zuletzt vom User per OK beendeten, nicht rückgängig gemachten Kreismusters übern ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schnitt (Section) per Makro in eigenem Fenster öffnen
PinKing am 12.03.2010 um 12:04 Uhr (0)
Hallo,erstmal Danke für die Anregungen. Ich hab jetzt folgendes Beispiel programmiert,und es funktioniert soweit. Allerdings würde ich gerne noch die Fenster automatisch vertikal anordnen, aber der Befehl den ich dazu eingtragen habe, funktioniert nicht, wenn ich das Makro durchlaufen lasse. Setze ich einen Breakpoint bei "CATIA.Windows.Arrange catArrangeTiledVertica" und führe den Schritt per F8 durch, funktioniert es. Hat da noch jemand eine Idee, warum das nicht geht? Habe das Gefühl, das das Schnittfen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Product Parameter
Azazel1 am 17.09.2015 um 17:25 Uhr (1)
Hallo Bernd,vielen Dank für die schnelle Antwort.Code:Dim param1 As String, param1Name As String param1Name = "Object Title"Set prod = CATIA.ActiveDocument.Selection.Item(1).ValueWith prod For j = 1 To .Parameters.Count If VBA.Left(.Parameters.Item(j).Name, Len(.PartNumber)) = .PartNumber And VBA.InStr(.Parameters.Item(j).Name, param1Name) 0 Then param1 = .Parameters.Item(j).ValueAsString MsgBox (param1) End If Next j End WithHabe mich bei der Lösung etwas an diesen Beitrag ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Product Parameter
Azazel1 am 17.09.2015 um 17:37 Uhr (15)
Bin soeben selber auf eine schnellere Lösung gekommen.Code:Dim test As Stringtest = CATIA.ActiveDocument.Selection.Item(1).Value.PartNumberMsgBox (CATIA.ActiveDocument.Selection.Item(1).Value.Parameters.Item(test & "PropertiesObject Title").Value)Trotzdem vielen Dank!
|
| In das Form CATIA V5 Programmierung wechseln |
