|
CATIA V5 Programmierung : Punkte verbinden
zoltan.bekesi am 09.03.2010 um 19:27 Uhr (0)
Hallo,kannst evtl. versuchen nach Set Point1 die Anweisung Point1.Compute einzufügen und den Update nur in der äußeren Schleife drinlassen.Allerdings: Die Schleife und der Update wird insgesamt 100*100=10000-mal durchgelaufen. Das brauch natürlich sein Zeit.Vielleicht streikt CATIA sogar, weil der Speicherbedarf plötzlich zu groß wird.Ist wirklich die komplette Schleife notwendig, beide verschachtelt? Ich sehe nur da eine Möglichkeit.Gruß,Zoltan
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : eigene Klassen
zoltan.bekesi am 09.03.2010 um 19:33 Uhr (0)
Hallo,benutze Google mit z.B. "vba class".In CATIA ist es genauso, wie in anderen VBA-Programmen, wie z.B. Excel VBA.Hier die ersten zwei Treffer:Classes in VBAUsing Classes in VBAGruß,Zoltan
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : regeln/reaktionen und msgbox
Jens Hansen am 28.02.2010 um 18:08 Uhr (0)
Hallo,das geht doch ganz einfach über eine If-Abfrage:if Parameter Wert thenMsgBox "Der Wert ist zu klein!"end ifSGJens Hansen------------------Inoffizielle CATIA-HilfeseiteHomepage von Jens HansenKochbuch - CATIA V5 automatisieren
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : regeln/reaktionen und msgbox
Heinkes am 09.03.2010 um 20:07 Uhr (0)
hallo,hab es jetzt leicht angepasst und implementiert! HERZLICHSTEN DANK VORAB!Die Catia Hilfe hat mir leider nicht im Geringsten verwetbare Informationen bereitgestellt. Da bevorzuge ich dann doch lieber CAD.de Lösung:if (S280mm){ `Offset_BR` =260mm+S BR_Formel_Auswahl.Show=false}else{ if BR_Formel_Auswahl=="260mm+S" { `Offset_BR` =260mm+S }else{ `Offset_BR` =260mm+0.8*S BR_Formel_Auswahl.Show=true}}
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkte verbinden
wulfgang am 09.03.2010 um 22:45 Uhr (0)
Also ich habe alle drei Varianten durchprobiert. Dies war bei mir mit 1min die schnellste. Die anderen Varianten mit Point.compute und Testpart.update nach außen sind jeweils 10s langsamer. Zwei Schleifen habe ich deshalb genommen, weil wenn ich alle Punkte in ein Polygon packe, der Rechner immer abstürzte und ich mal probieren wollte, ob man 10000Punkte miteinander verbinden kann. Code:Sub SubTest() Dim Document1 As Document Set Document1 = CATIA.ActiveDocument Dim TestPart As Part Set TestPart = Docu ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zuweisung von Products ändern
CAD-Erlerner am 09.03.2010 um 16:51 Uhr (0)
Hallo Zusammen!Ich würde mich freuen wenn ihr mir bei folgendem Problem helfen könntet:Mit einem VBA Makro möchte ich gerne Produkte in Produkte auf der selben Strukturbaumebene "verschieben".Was in CATIA per Drag & Drop funktioniert habe ich in meinem Makro bisher nicht geschafft.Hier der Code mit dem es nicht funktioniert:Code:zu verschiebendes Element zwischenspeichern:Dim Zwischenspeicher As ProductSet Zwischenspeicher = products1.Item(Name)Element dem Product in der selben Ebene hinzufügen:Dim MK_Inha ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ansichten auf der Zeichnung
bgrittmann am 10.03.2010 um 11:24 Uhr (0)
ServusIm Catia-Installationverzeichnis: zB "C:ProgrammeDassault SystemesB17intel_acodeinV5Automation.chm"GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection abbrechen
MarcDe am 10.03.2010 um 17:53 Uhr (0)
Hallo,ja natürlich kann ich mit ESC die SElection abbrechen, jedoch muss ich dann ja erstmal ESC drücken, was ich ja nicht will. Ich möchte die Fensterfunktionalität so haben wie in CATIA und da muss ich auch nicht ESC drücken, wenn ich ein Mehrfachauswahlfenster habe sondern einfach nur das Fenster schließen! Das ist ja gerade der "Witz".Ich habe das jetzt anders gelöst und zwar wie bereits angesprochen mit der SElectElement3 Methode. Ich muss sagen, die ist richtig cool. Man sollte sie öfters benutzen!! ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schnitt (Section) per Makro in eigenem Fenster öffnen
Jens Hansen am 11.03.2010 um 12:46 Uhr (0)
Hallo,gibt es für dieses Öffnen des Schnittes einen konkreten Befehl der auch über das Kontextmenü ausgeführt werden könnte?Dann könnte man diesen Befehl einfach mittels CATIA.StartCommand ausführen lassen. Das wäre die einfachste MethodeSGJens Hansen------------------Inoffizielle CATIA-HilfeseiteHomepage von Jens HansenKochbuch - CATIA V5 automatisieren
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Exel 3D-Punkte nach Catia V5 einlesen
V5Playaz am 10.03.2010 um 21:31 Uhr (0)
Hallo,falls du mit CATIA programmierst solltest du mal nach der FileSelectionBox suchen.Falls du mit VB (extern) programmierst kannst du den OpenFileDialog verwenden.Grüsse Dominik
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Exel 3D-Punkte nach Catia V5 einlesen
ManniBo am 11.03.2010 um 15:04 Uhr (0)
Hallo Andy,alles klar hab das Makro hinbekommen und es läuft.Vielen Dank für Deine Hilfe, das Problem ist gelöst.Mit freundlichen GrüßenManfred
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Exel 3D-Punkte nach Catia V5 einlesen
ManniBo am 11.03.2010 um 14:17 Uhr (0)
Hallo Andy,sorry aber ich bring das Makro mit deinem Vorschlag nicht zum laufen.Kannst Du mir bitte nochmals kurz helfen.Habe das Makro aus dem Forum leicht angepasst.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("d:punkte.xls") Arbeitsmapp ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Exel 3D-Punkte nach Catia V5 einlesen
AndyMF am 11.03.2010 um 14:25 Uhr (0)
Hallo Manniauf die schnelle mal dein scriptCode: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 Worksheetdim mytabelle as String myTabelle = CATIA.FileSelectionBox("FileOpen", "*.xlsx;*.xls", CatFileSelectionModeOpen)If myTabelle "" Then Set Excel = CreateObject("Excel.Application") Excel starten Excel.Visible = True Set WB = Excel.Workbooks.Open(mytabelle) Arbe ...
|
| In das Form CATIA V5 Programmierung wechseln |
