|
CATIA V5 Programmierung : Formeln mit Makro erstellen
cul-david am 08.06.2011 um 09:26 Uhr (0)
Hallo,danke erst mal für die vielen antwortetn.So habe ich das gemacht, für Y Verschiebung K=0 For I = 580 to 699 K= K+1 Set documents1 = CATIA.Documents Set partDocument1 = documents1.Item("SCHLEIFE_HINTEN.CATPart") Set part1 = partDocument1.Part Set relations1 = part1.Relations Set formula1 = relations1.Item("Formula."+ CStr(I)) formula1.Modify "((MeasureBetween."+ CStr(K)+"Diry* MeasureBetween."+ CStr(K)+"Diry ) / sqrt ((MeasureBetween."+ CStr(K)+"Diry *MeasureBetween."+ CStr(K)+"Diry) + (MeasureBet ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Update Schleife
cul-david am 01.09.2011 um 08:34 Uhr (0)
Hallo,ich poste mal aber glaube nicht das der dir viel weiterhilft.Set documents1 = CATIA.Documents Set partDocument1 = documents1.Item("FUGE_AS_VORBEIDREHEN_TV_AM_KF.CATPart") Set part1 = partDocument1.Part Set hybridBodies1 = part1.HybridBodies Set hybridBody1 = hybridBodies1.Item("External References") part1.UpdateObject hybridBody1 Set hybridBody2 = hybridBodies1.Item("Sketche Senkrecht zur Axis") Set hybridBodies2 = hybridBody2.HybridBodies Set hybridBody3 = hybridBodies2.Item("Beschnitt Scharnierachs ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Update Schleife
cul-david am 01.09.2011 um 09:54 Uhr (0)
Hallo,danke sehr für die schnelle antwort,also konnte das so aus sehen:Language="VBSCRIPT"Sub CATMain()MsgBox "Fugenbegrenzung A-Säule Aktualisieren.Dies kann einige Minuten dauern.",0,"Info"Dim documents1 as documentsSet documents1 = CATIA.Documents Set partDocument1 = documents1.Item("FUGE_AS_VORBEIDREHEN_TV_AM_KF.CATPart") Set part1 = partDocument1.Part Set hybridBodies1 = part1.HybridBodies Set hybridBody1 = hybridBodies1.Item("External References") part1.UpdateObject hybridBody1 Set hybridBody2 = hybr ...
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
