|
CATIA V5 Programmierung : 5000 Linien mit Makro erzeugen
Thomas Harmening am 25.04.2007 um 14:24 Uhr (0)
ja, einen Geoset haben, die Punkte alle auswählen ( ich habe es nicht im Baum ausgewählt, sondern am Bildschirm gefangenund dann das Makro startenCode:Sub CATMain()Set CATIA = GetObject("", "CATIA.Application") nur für xlsDim myPartDocumentSet myPartDocument = CATIA.ActiveDocumentSet mypart = myPartDocument.PartSet myAxis = mypart.CreateReferenceFromObject(mypart.AxisSystems.Item("Absolute Axis System")) Axis mit dem Namen erforderlicherzeuge ein neues Geoset mit namen LinienSet myHybridBodies = mypart.hyb ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : pdf
Thomas Harmening am 16.08.2007 um 13:19 Uhr (0)
na hoffentlich kann da geholfen werden,Code:Sub CATMain()Set CATIA = GetObject("", "CATIA.Application") - für aufruf aus Xl ;)folderinput = InputBox("Bitte den Ursprungsordner in dem nur die Drawings drinnen liegen -bitte am Ende ", "Eingabe", "C:v5-draw", 500, 1000)folderoutput = InputBox("Bitte den Zielordner eingeben -bitte am Ende ", "Eingabe", "C:v5-pdf", 500, 1000)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderinput)Set fc = f.FilesFor Each f1 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : koordinaten aus Excel
Thomas Harmening am 10.03.2008 um 18:14 Uhr (0)
Probiere mal diesCode:Sub CATMain()Set CATIA = GetObject("", "CATIA.Application") wird nur benötigt, weil ich Excel als Entwicklungssumgebung benutze Dim Excel As Application Dim WB As Workbook Dim WS As Worksheet Set Excel = CreateObject("Excel.Application") Excel starten Excel.Visible = True Set WB = Excel.Workbooks.Open("c: emppunkte.xls") Arbeitsmappe öffnen Set WS = WB.Worksheets.Item(1) Tabelle holen Set Part1 = CATIA.ActiveDocument.Part aktives part hole ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : koordinaten aus Excel
Thomas Harmening am 11.03.2008 um 18:21 Uhr (0)
Zitat:Original erstellt von kalanja:hab lieder überhaupt keine ahnung von programmierung :-)ich doch auch nicht ;-)habe es mal geändert, Schnippsel in http://ww3.cad.de/foren/ubb/Forum137/HTML/001999.shtml#000004 einbauen ;-)oberer Code, wenn man es aus Excel laufen lässt.Code:Set Excel = CreateObject("Excel.Application") Excel starten Excel.Visible = True MsgBox "Guten Morgen, " & Chr$(13) & "bitte die Exceldatei *.xls auswählen" just for phun ChDir "C: emp" Pfadvorgeben NameZiel = Application. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : koordinaten aus Excel
Thomas Harmening am 15.03.2008 um 13:03 Uhr (0)
very nice!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bild in Excel einfügen über CATIA Makro
Thomas Harmening am 12.09.2008 um 18:22 Uhr (0)
...ich habe Benzin in einen Benzintank und möchte es über einen Tankschlauch (ist ein Tankschlauch für Flugzeuge^^) in ein Pkw einfüllen und weiss nicht wie ...hmm, ich würde sagen: versuche es mit einem Tankschauch für PKWs, ist vielleicht einfacher ;-) Anders ausgedrückt, Warum nicht Excel für diese Aufgabe nehmen? und dort die Routine schreiben?BTW: in der Excelrubrik existieren schon Threads, wie man Bilder aus einem Verzeichnis einbindet (VBA).[Diese Nachricht wurde von Thomas Harmening am 12. Sep. 20 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bild in Excel einfügen über CATIA Makro
Thomas Harmening am 12.09.2008 um 22:35 Uhr (0)
hmm, irgendwie habe ich es doch gespürt, dass das Bild im Verzeichnis nicht nur einfach herumliegt,sondern kurz vorher in der *.catvbs erzeugt wird... ... und da hatte ich zwei Möglichkeiten, greife ich vor und interpretiereoder gebe ich mal eine Antwort rein auf Basis der Aufgabenstellung.ungetestet, da kein Catia vor Ort ;-) aber untenstehender Code läuft zumindest in Excel.Code:Sub schnippselbild()Set xlApp = CreateObject("Excel.application")If xlApp Is Nothing Then Exit SubxlApp.Visible = True Excel a ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bild in Excel einfügen über CATIA Makro
Thomas Harmening am 13.09.2008 um 13:59 Uhr (0)
Zitat:Original erstellt von Animexx:@Rübe, bin ganz verwundert dich hier zu lesen, muss mal einen Gegenbesuch machen*gHe? Versteh ich nicht, wie du es meinst.[Diese Nachricht wurde von Animexx am 13. Sep. 2008 editiert.]Was verstehst du nicht, wie ich es meine?Sicherlich nicht die Antwort an @Runkelrübe, die Antwort @Rübe war ja auch nur für @Runkelrübe gedacht -symbolisiert durch das @Wenn es der Code ist, dann bitte präzisier werden was nicht funktioniert und nicht noch einen weiteren Thread im VBasic ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bild in Excel einfügen über CATIA Makro
Thomas Harmening am 12.09.2008 um 18:22 Uhr (0)
...ich habe Benzin in einen Benzintank und möchte es über einen Tankschlauch (ist ein Tankschlauch für Flugzeuge^^) in ein Pkw einfüllen und weiss nicht wie ...hmm, ich würde sagen: versuche es mit einem Tankschauch für PKWs, ist vielleicht einfacher ;-) Anders ausgedrückt, Warum nicht Excel für diese Aufgabe nehmen? und dort die Routine schreiben?BTW: in der Excelrubrik existieren schon Threads, wie man Bilder aus einem Verzeichnis einbindet (VBA).[Diese Nachricht wurde von Thomas Harmening am 12. Sep. 20 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bild in Excel einfügen über CATIA Makro
Thomas Harmening am 12.09.2008 um 22:35 Uhr (0)
hmm, irgendwie habe ich es doch gespürt, dass das Bild im Verzeichnis nicht nur einfach herumliegt,sondern kurz vorher in der *.catvbs erzeugt wird... ... und da hatte ich zwei Möglichkeiten, greife ich vor und interpretiereoder gebe ich mal eine Antwort rein auf Basis der Aufgabenstellung.ungetestet, da kein Catia vor Ort ;-) aber untenstehender Code läuft zumindest in Excel.Code:Sub schnippselbild()Set xlApp = CreateObject("Excel.application")If xlApp Is Nothing Then Exit SubxlApp.Visible = True Excel a ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bild in Excel einfügen über CATIA Makro
Thomas Harmening am 13.09.2008 um 13:59 Uhr (0)
Zitat:Original erstellt von Animexx:@Rübe, bin ganz verwundert dich hier zu lesen, muss mal einen Gegenbesuch machen*gHe? Versteh ich nicht, wie du es meinst.[Diese Nachricht wurde von Animexx am 13. Sep. 2008 editiert.]Was verstehst du nicht, wie ich es meine?Sicherlich nicht die Antwort an @Runkelrübe, die Antwort @Rübe war ja auch nur für @Runkelrübe gedacht -symbolisiert durch das @Wenn es der Code ist, dann bitte präzisier werden was nicht funktioniert und nicht noch einen weiteren Thread im VBasic ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punktkoordinaten in Excel auf ausgewähltes Achsensystem
Thomas Harmening am 11.02.2009 um 22:27 Uhr (1)
Zitat:Original erstellt von Stefan_I:Hallo zusammen,weiss jemand von euch wie genau die Funktion GetCoordinates tickt ? Ich habe versucht Schnittpunkte mit dem Programm auszulesen, was nicht funktionierte. Wenn ich die Verschneidung explodiere gehts auch nicht. Wenn ich diese Punkte aber in eine Skizze projziere, gehts. Einzelne importierte Punkte gehen auch. Weiss jemand rat ? GetCoordinates will Punkte haben, die X,Y,Z Koordinaten aufweisen.Eine Verschneidung ist hier noch kein Punkt , auch wenn die V ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA V5 Programmierung
Thomas Harmening am 23.02.2009 um 01:13 Uhr (0)
ersetzeCode:Set myHybridBodies = myPart.HybridbodiesmyPart.InWorkObject = myHybridbodiesinCode:Set myHybridBodies = myPart.InWorkObjectund fertig dann etwa so? (Erzeugt auch den gespiegelten Punkt und die dazugehörige Kugel)Code:Sub CATMain()Set CATIA = GetObject("", "CATIA.Application") ist nur wegen Excel drinnenDim myPartDocument As DocumentReDim acoord(2)Set myPartDocument = CATIA.ActiveDocumentSet myPart = myPartDocument.PartSet myAxis = myPart.CreateReferenceFromObject(myPart.AxisSystems.Item("Achse ...
|
| In das Form CATIA V5 Programmierung wechseln |
