|
CATIA V5 Programmierung : Makro zum Import von Punktkoordinaten aus Excel
denyo_1 am 06.03.2009 um 13:54 Uhr (0)
Hallo,registriere mal dein Excel und dein CATIA neu in der Registry dann sollte das auch klappen...------------------MFG DanielDie KATJA ist halt doch nur ne zickige Französin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro zum Import von Punktkoordinaten aus Excel
dbethge am 06.03.2009 um 14:33 Uhr (0)
Hi Denyo,eher schwierig, da ich ind er Firma sitze und keine Adminrechte habe.Hat nicht jemand ein Makro dazu herumliegen?Grüße, Dbethge
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro zum Import von Punktkoordinaten aus Excel
dbethge am 06.03.2009 um 11:21 Uhr (0)
Hallo,ich suche ein funktionierendes Makro, welches Punktkoordinaten aus Excel nach CATIA exportiert.Ich habe bereits ein Makro gefunden, welches aber irgendwelche Lizenzprobleme (Active-X) verursacht. Benötige also ein anderes.Wäre nett, wenn da jemand kurz helfen könnte.Gruß und Dank im Voraus,Dbethge
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro zum Import von Punktkoordinaten aus Excel
bgrittmann am 06.03.2009 um 14:42 Uhr (0)
ServusAuch andere Makros sind auf die funktionierende Schnittstelle (über die Registry) zwischen Excel und CATIA angewiesen.Workaround: Excel-Tabelle als txt exportieren und entsprechendes Makro zum Importieren verwenden (Suchfunktion)Oder dem Admin auf die Füsse treten.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dimension mit Toleranzen nach excel auslesen
marbat am 12.03.2009 um 12:16 Uhr (0)
Hallo Norbert,versuch es mal auf diese Art........... (dein Makro)For i=1 to oSelection.countSet Dimension = oSelection.Item(i).ValueDimension.GetTolerances oTolType,oTolName,oUpTol,oLowTol,odUpTol,odLowTol,oDisplayMode oStream.Write Dimension.GetValue.Value &";"& odUpTol & "; " & odLowTol & vbCrLfNextoStream.close........Gruß Martin------------------mb
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dimension mit Toleranzen nach excel auslesen
MICHLICK am 12.03.2009 um 17:03 Uhr (0)
Hallo Norbert,die Dim Anweisung sollte ausserhalb der Schleife stehen.Wenn Die Anweisung innerhalb einer Schleife steht, dann versuchst Du eine neue Variable mit dem gleichen Namen wie eine vorhandene Variable zu erzeugen und dass läuft zwangsläufig auf einen Fehler.------------------Gruß Michael B.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dimension mit Toleranzen nach excel auslesen
cmb am 13.03.2009 um 10:10 Uhr (0)
Hallo,vielen Dank für eure Tips. Bin wieder einen Step weiterMit:oStream.Write Dimension.GetValue.Value &" +"& odUpTol & " " & odLowTol & vbCrLfschreibt mir das Scritp die Value mit Toleranz in ein Exelfeld.Kann ich den Komponentennamen / Item (bei uns so etwas wie "Bemaßung.x") einer Bemassung auch mit auslesen?Gruß Norbert
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dimension mit Toleranzen nach excel auslesen
marbat am 13.03.2009 um 12:23 Uhr (0)
Hallo Norbert,Ja, mit Dimension.Nameist aber nur sinnvoll, wenn die View mitangegeben wird, da sich die Namen wiederholenz.B.Name Pfad Bemaßung.1 DrawingBlatt.1ViewMakeUp.4ZAB-ZABDrwDressUp.1Bemaßung.1Bemaßung.2 DrawingBlatt.1ViewMakeUp.4ZAB-ZABDrwDressUp.1Bemaßung.2..Bemaßung.1 DrawingBlatt.1ViewMakeUp.4ZAE-ZAEDrwDressUp.1Bemaßung.1Gruß Martin------------------mb
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dimension mit Toleranzen nach excel auslesen
marbat am 16.03.2009 um 10:01 Uhr (0)
Hallo Norbert,habe mir das noch einmal angesehen,du kannst natürlich jedem Maß eine eindeutige Bezeichnung geben, siehe Beispielbei der Gelegenheit möchte ich dich noch darauf hinweisen, daß bei deiner Selektion nur Distanzen,also keine Radien und Winkel, ausgewählt werden. (DimensionType=DrwDimDistance,scr) For i=1 to oSelection.countSet Dimension = oSelection.Item(i).ValueDimension.Name = "Maß." & iDimension.GetTolerances oTolType,oTolName,oUpTol,oLowTol,odUpTol,odLowTol,oDisplayModeGruß Martin --------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dimension mit Toleranzen nach excel auslesen
cmb am 13.03.2009 um 13:59 Uhr (0)
Hallo Martin,vielen Dank für den Tip. Funktioniert.Ich dachte immer Catia vergibt für jede Bemassung einen eindeutigen Identifier über welchen man Prüfberichte generieren kann, Schade.Gruß Norbert
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dimension mit Toleranzen nach excel auslesen
Axel.Strasser am 16.03.2009 um 11:18 Uhr (0)
@Norbertnur so als allgemeiner Hinweis, vielleicht etwas Offtopic.Es gibt ein Modul von Cenit (QAReport) dass vielleicht für Euch interessant sein könnte. Wir haben es im Einsatz und können so Zeichnungen nachbearbeiten und die ganzen Toleranzinformationen rausschreiben. Vielleicht musst Du das Rad ja nicht neu erfinden.Axel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dimension mit Toleranzen nach excel auslesen
cmb am 16.03.2009 um 11:57 Uhr (0)
Hallo Martin, hallo Axel,vielen Dank für die Infos. Habe das Tool von Cenit gesehen und finde es kann genau das was wir wollen. Mal sehen ob ich unsere Controller davon überzeugen kann.Auf der anderen Seite ist es ganz intressant was man mit vb alles anstellen kann.Nach dem Motto: learning by doingLG Norbert
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dimension mit Toleranzen nach excel auslesen
cmb am 10.03.2009 um 11:58 Uhr (0)
Hallo Forum,das Script:Language="VBSCRIPT"Sub CATMain()Dim InputObjectType(0) As Stringset document = CATIA.ActiveDocumentIf TypeName(document)="DrawingDocument" then Set oSelection = document.Selection oSelection.Search "CATDrwSearch.DrwDimension.DimensionType=DrwDimDistance,scr" WriteTxTFile(oSelection) oSelection.clearElseEnd IfEnd SubSub WriteTxTFile(oSelection)Dim sPath As StringDim sTime As StringDim sName As StringDim sFile As Stringdocumentname = CATIA.ActiveDocument.Nameposition = InStr(documen ...
|
| In das Form CATIA V5 Programmierung wechseln |
