 |
CATIA V5 Programmierung : Makroprogrammierung Startschwierigkeiten
N2high am 11.09.2013 um 10:04 Uhr (1)
die Fehlermeldung hab ich als Anhang angehängt.Die Fett markierte Zeile ist esCode:Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet Wzk3D = part1.HybridShapeFactorySet h_pkt = part1.FindObjectByName ("Intersect.1")Set ref = part1.CreateReferenceFromObject (h_pkt)set Pkt = Wzk3D.AddNewPointCoordWithReference (0,0,0,h_pkt)Set HBody = part1.HybridBodies.Item (h_pkt.parent.parent.name)HBody.AppendHybridShape PktPart1.UpdateEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makroprogrammierung Startschwierigkeiten
DasDon am 11.09.2013 um 10:18 Uhr (1)
mein fehler!part.HybridBodies listet nur alle HYBodies die auf level1 des Baumes sind! Um es einfach zu halten würde ich es so machenCode:Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet Wzk3D = part1.HybridShapeFactorySet h_pkt = part1.FindObjectByName ("Intersect.2")Set ref = part1.CreateReferenceFromObject (h_pkt)set Pkt = Wzk3D.AddNewPointCoordWithReference (0,0,0,h_pkt)Set HBody = part1.FindObjectByName (h_pkt.parent.parent.name)HBody.AppendHybridShape PktPart1.Up ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makroprogrammierung Startschwierigkeiten
N2high am 11.09.2013 um 10:30 Uhr (1)
danke so klappts Wo kann man des nachschauen, dass es nur auf Level 1 gilt?In der Catia Hilfe hab ichs nicht gefunden
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makroprogrammierung Startschwierigkeiten
DasDon am 11.09.2013 um 10:38 Uhr (1)
moin,ich habe mir im VBA Editor part1 als Watch Objekt hinzugefügt und dann gesehen das unter Hybridbodies nur 2 Elemente waren, Nämlich 123 und Geometrical_Set.2.Ich würde dir empfehlen den VBA Editor zubenutzen bei schwerigkeiten. Ich habe das CATIA Macro scripten ohne ihn gelernt, aber gerade am amfang spart es viel Zeit beim Debuggen. Einfach das WatchTool fenster benutzen.Gruß,Dean
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Timestamp
Axel.Strasser am 29.12.2008 um 20:36 Uhr (0)
Eine Frage, weisst Du eigentlich was Du programmierst und wie ? Soviel sollte man schon in der LAge sein einen Code zu lesen.Ansonsten nimm halt aus deinem Code Schnipsel die Zeit Zeilen raus:Code:TimeStamp = Mid(CStr(Year(Date)), 3, 2)If Len(CStr(Month(Date))) = 1 Then TimeStamp = TimeStamp & "0"TimeStamp = TimeStamp & CStr(Month(Date))If Len(CStr(Day(Date))) = 1 Then TimeStamp = TimeStamp & "0"TimeStamp = TimeStamp & CStr(Day(Date))In einen richtigen Timestamp gehört aber meistens die Zeit mit rein und z ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro um Zahlen in Zeichnung zu setzen
Zeus34 am 28.07.2011 um 09:48 Uhr (0)
Sub CATMain()Dim ZAEHLER As integerDim StatusDim Position(1)Dim drawingTexts1 As DrawingTextsDim drawingText1 As DrawingTextDim Textbezeichnung As Stringset drawingtexts1 = catia.activedocument.sheets.activesheet.views.activeview.textszaehler = inputbox ("Anfangs Nr :")do CATIA.ActiveWindow.ActiveViewer.Reframe Fit in PageStatus = CATIA.ActiveDocument.Indicate2D("Punkt wählen (Abbr. mit ESC)", Position)If (Status = "Cancel") ThenMsgBox "Abgebrochen"Exit SubEnd IfOn Error Resume NextTextbezeichnung = "Labe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro Befehl zum Erzeugen eines Koordinatensystems
newCADuser am 02.08.2010 um 11:07 Uhr (0)
Ich habe folgenden Quelltext, der mir Punkte aus EXCEL in CATIA einliest.Besteht die Möglichkeit auf diese erzeugten Punkte ebenfalls über das Makro ein Koordinatensystem zu erzeugen?Sub CATMain() Dim Excel As Application Dim WB As Workbook Dim WS As Worksheet Dim Element As Text Dim XCoord As Double Dim YCoord As Double Dim ZCoord As Double Dim nRow As Integer Dim Part1 As Part Dim HybShapeFac As Factory Dim Point As HybridShapePointCoord Dim HKoerper As HybridBodies Dim measurement_points As HybridBody D ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Aus Polylinie Koordinaten der Punkte auslesen
chris3004 am 07.04.2005 um 16:06 Uhr (0)
Hallo,ist es möglich ein solches Makro analog für Splines zu erstellen?Oder ist dies aufgrund der Definition (erzeugung) von Splines in Catia nicht möglich?Mein Problem ich möchte auch Punkte des Splines auslesen die zwischen den Punkten liegen mit denen ich den Spline definiert habe.GrüßeChris
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Disassemble automatisieren
HoBLila am 08.11.2011 um 16:25 Uhr (0)
Hallo CooleEdge,ja hast Recht in den neuen Windows-Versionen hat sich durch die UAC einiges geändert.bei mir funktioniert folgender Code, kann sicher noch aufgeräumt und eingekürzt werden:Code:Sub CATMain() Set WshShell = CreateObject("WScript.Shell") Call CATIA.StartCommand("Disassemble") CATIA.RefreshDisplay = True Call WshShell.AppActivate("Disassemble", True) Call WshShell.SendKeys("%{TAB}", True) Call WshShell.SendKeys("{ENTER}", True)End Sub------------------Mit freundlichen Grü ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Strings und Integer
RSchulz am 31.01.2011 um 14:33 Uhr (0)
sorry, ich habe etwas wichtiges aber entscheidendes vergessen...Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim parameters1 As ParametersSet parameters1 = part1.ParametersDim length1 As LengthSet length1 = parameters1.Item("Hoehe")Dim Zahl As LongDim Text As StringText = tbHoehe.TextZahl = CLng(Text) wandelt den Datentyp in das Format Long umlength1.Value = ZahlÜbrigens wäre es sehr hilfreich, wenn du einen Scree ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Volumenberechnung
Günther Roll am 10.04.2002 um 13:44 Uhr (0)
Hallo, versuchs mal mit: set Product = Catia.ActiveDocument.Product Dim V As Double Dim m As Double Dim A As Double V = Product.Analyze.Volume m = Product.Analyze.Mass A = Product.Analyze.WetArea MsgBox "Volumen: " & Str$(V) MsgBox "Masse: " & Str$(m) MsgBox "Oberfläche: " & Str$(A) ------------------ MfG Günther
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA-Funktionsaufrufe aus CATScript-Makros
Steffen Hohmann am 14.05.2002 um 09:17 Uhr (0)
Hallo, da in letzter Zeit öfters nach Möglichkeiten gesucht wurde, innerhalb von CATScripts bestimmte CATIA-Funktionen aufzurufen, die nicht Bestandteil der CATScript-Sprache sind, stelle ich ein kleines Tool zur Verfügung. Mit diesem Tool kann jeder CATIA-Befehl aus einem CATScript-Makro aufgerufen werden. Folgende Syntax ist anzuwenden: deutsche Spracheinstellung: CATIA.SystemService.ExecuteBackgroundProcessus( C:CATIABefehl.exe CATIABEFEHL ) englische Spracheinstellung CATIA.SystemService.ExecuteBackg ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA-Funktionsaufrufe aus CATScript-Makros
Axel.Strasser am 14.05.2002 um 12:06 Uhr (0)
Hallo Steffen danke für Deine Ausführungen, sie sind sehr hilfreich. Hast Du auch noch eine Möglichkeit gefunden die aktuellen Spracheinstellung herauszufinden ? Axel
|
| In das Form CATIA V5 Programmierung wechseln |
