|
CATIA V5 Programmierung : Linie erzeugen
sawah am 07.06.2011 um 11:35 Uhr (0)
Hallo zusammen,Hallo zusammenich habe die Suche schon misbrucht aber nicht so recht das richtige gefunde, und zwar ich habe ein Code zu erzeugen von Punkte, ich will das erweitern das ich eine Linie durch diese Punt erzeugen kann.kriegs aber net hin.Vielleicht kann mir ja mal wer helfenDanke dafür im VorrausGruß Code:Sub CATMain() Fehlerroutine -------------------------------------------- On Error Resume Next CATIA.DisplayFileAlerts = False Set activedoc = CATIA.ActiveDocumentIf Err.Number 0 Then MsgB ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkt mit CommandButton
sawah am 30.06.2011 um 11:17 Uhr (0)
Hallo Berndich habe das hier versucht klappt aber nicht. Code:Dim punkt_vorhanden As Booleanpunkt_vorhanden = False Dim intPointCoordObj1 As HybridShapePointCoordFor Each intPointCoordObj1 In CATIA.ActiveDocument.Part ????????FEHLERIf intPointCoordObj.Name = "Punkt_b" Then punkt_vorhanden = True Set intPointCoordObj1 = intPointCoordObj End If Next intPointCoordObj1 If Not punkt_vorhanden Then Set intPointCoordObj1 = intHybShapeFacObj.AddNewPointCoord((ws.Cells(38, 2).Value), (ws.Cells(38, 3).Val ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Intersection Koordinaten anzeigen
sawah am 07.07.2011 um 10:59 Uhr (0)
Hallo zusammen,ich habe eine Frage, und zwar ich möchte die Koordinaten(Measure item) eines Intersection-Punkt anzeigen(mit Makro).Mit Makro-Aufnahme geht leider nicht. gibt es ein Befehl??Kann mir bitte jemand helfen??GrußCode:Sub bogen_erzeugen()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim axisSystems1 As AxisSystemsSet axisSystems1 = part1.AxisSystemsDim axisSystem1 As AxisSystemSet axisSystem1 = axisSystems1.Add()axisSystem1 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Intersection Koordinaten anzeigen
sawah am 11.07.2011 um 08:13 Uhr (0)
Hallo zusammen,ich habe das hier versucht:Code:Dim pt_to_measureSet pt_to_measure = hybridShapes1.Item("Intersection_1")Debug.Print pt_to_measure.NameDim ref_pt As ReferenceSet ref_pt = CATIA.ActiveDocument.Part.CreateReferenceFromObject(pt_to_measure)Dim spawb As WorkbenchSet spawb = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")Dim meas1Set meas1 = spawb.GetMeasurable(ref_pt)Dim a(2)meas1.GetPoint aMsgBox a(0) & vbLf & a(1) & vbLf & a(2)bekomme aber die Koordinaten in Abhängigkeit von Koordinatensyste ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : auf koordinaten zugreifen!!!!
sawah am 19.07.2011 um 09:49 Uhr (0)
Hallo zusammen,ich habe eine Frage und zwar ich hab ein Koordinatensystem erzeugt wo Die Axe auch mit Koordinaten definiert sind, ich will auf diese Koordinaten zugreifen und mit Excel ändern, ist das möglich? ich hab das hier versucht, bekomme aber eine Fehlermeldung!!?Catia.ActiveDocument.part.axissystems.item(1).XAxisDirection.X.valueGruß Sawah
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : auf koordinaten zugreifen!!!!
sawah am 19.07.2011 um 14:26 Uhr (0)
Hallo,ich habe das probiert und funktioniert schon, aber bekomme werte was mit Catia net stimmen!!!weißt jemand woran das liegen kann???Code:Sub CATMain()Set oPart = CATIA.ActiveDocument.PartSet ASys = oPart.AxisSystems.Item("KOS_2")Set oRef = oPart.CreateReferenceFromObject(ASys)Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")Set TheMeasurable = TheSPAWorkbench.GetMeasurable(oRef)Dim Components(11)TheMeasurable.GetAxisSystem ComponentsMsgBox Components(0) & vbLf & Components(1 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Distance
sawah am 01.08.2011 um 14:52 Uhr (0)
Hallo zusammen,ich will die Abstand zwischen eine Punkt und einen Linie messen ich habe das hier versucht:Code:Sub messen3()Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")Set mess1 = CATIA.ActiveDocument.Part.HybridBodies.Item(1).HybridShapes.Item("Punkt_a")Set mess2 = CATIA.ActiveDocument.Part.HybridBodies.Item(1).HybridShapes.Item("Linie_c")Dim Gesamtlength1Set Measurable = TheSPAWorkbench.GetMeasurable(mess1)Gesamtlength1 = Measurable.GetMinimumDistance(mess2)End Subich kann aber ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : messen in bezug zu koordinatensystem2!!!
sawah am 24.08.2011 um 15:11 Uhr (0)
Hallo zusammen,ich habe die Suche schon misbrucht aber nicht so recht das richtige gefunden.Vielleicht kann mir ja mal wer helfenich habe ein Punkt der sich in koordinatensystem3 befindet, und will die Koordinaten anzeigen aber in Bezug zu koordinatensystem2.ich habe das hier versucht anzupassen, kriege ich aber net hinCode:Dim pt_to_measureSet pt_to_measure = CATIA.ActiveDocument.Part.AxisSystems.Item("KOS_1")Debug.Print pt_to_measure.NameDim ref_pt As ReferenceSet ref_pt = CATIA.ActiveDocument.Part.Creat ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Konvertieren in VBA
sawah am 30.08.2011 um 08:37 Uhr (0)
Guten morgen zusammen,ich habe ein Code zum messen von Koordinaten, man kann das Koordinatensystem beliebig auswählen, leider ist das mit VBscript geschrieben, da meine Kenntnis net soweit sind, wollte ich fragen ob mir jemand helfen kann das in VBA zu konvertieren ??Code:oEingabe = "C: mp"oEingabe = InputBox("Bitte den Dateipfad angeben:", "Eingabe Dateipfad", oEingabe)cDateiPfad = oEingabeoEingabe = "Punktkoordinaten.csv"oEingabe = InputBox("Bitte den Dateinamen angeben:", "Eingabe Dateiname", oEingabe) ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Konvertieren in VBA
sawah am 30.08.2011 um 09:37 Uhr (0)
Hallo,irgendwie geht das nicht bei mir, in die zielen unten zeigt ein Fehler:Set oDatei = CATIA.FileSystem.CreateFile(cDateiPfad & cDateiName, False)!!!!!FEHLERSet dStrom = oDatei.OpenAsTextStream("ForAppending")!!!!!FEHLERdStrom.Write ("START" & CHR(10))!!!!!FEHLERdStrom.Write ("Element" & ";" & "X-Koordinate" & ";" & "Y-Koordinate" & ";" & "Z-Koordinate" & CHR(10))!!!!!FEHLERaber eigentlich brauche ich das alles nicht, ich will nur ein Punkt selektieren ein Koordinatensystem selektieren und die Koordinat ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Konvertieren in VBA
sawah am 30.08.2011 um 10:28 Uhr (0)
Hallo,in die Zeile unten habe ich folgende Fehler:Set oDatei = CATIA.FileSystem.CreateFile(cDateiPfad & cDateiName, False)!!!!!FEHLER : MethodCreatFile of object Filsystem failedSet dStrom = oDatei.OpenAsTextStream("ForAppending")!!!FEHLER: object requiredok die habe ich hinbekommen, bleibt das hieroPoint.GetCoordinates aCoord1!!!1FEHLER: object doesnt support this property or methodGruß[Diese Nachricht wurde von sawah am 30. Aug. 2011 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro langsamer...
sawah am 17.09.2011 um 12:57 Uhr (0)
Hallo zusammen,ich hab das mit Catia.Refreshdisplay = True gemacht klappt schön.viele grüße aus Karlsruhe
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Winkel zwischen ZY Ebne und Linie?
sawah am 27.09.2011 um 16:12 Uhr (0)
Hallo zusammen,ich versuch die Winkel Zwischen eine Linie und ZY Ebene zu messen, ich habe das hier versucht, aber geht net:Code:Dim TheSPAWorkbench As WorkbenchDim aTheMeasurable, bTheMeasurable As MeasurableDim angle1Dim reference1 As ReferenceDim reference2 As ReferenceSet reference1 = CATIA.ActiveDocument.Part.HybridBodies.Item(4).HybridShapes.Item("LineNormal_1")Set reference2 = CATIA.ActiveDocument.Part.AxisSystems.Item("KOS_1Y")Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench") ...
|
| In das Form CATIA V5 Programmierung wechseln |
