|
CATIA V5 Programmierung : pdf
suzzy am 16.08.2007 um 12:29 Uhr (0)
habe zwar was im downloadbereich bei cad. de gefunden, nun die frage : wo wie was abspeichern?und zwar dieses:Language="VBSCRIPT"CATDRAWING nach PDF konvertieren -------------------------------------------------------------------------------- Script um .CATDRAWING Dateien nach .PDF zu konvertieren Michael Rösch / roesch-m@kasto.de--------------------------------------------------------------------------------Sub CATMain()folderinput = InputBox ("Bitte den Ursprungsordner eingeben","Eingabe","C:EINGABE",5 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : pdf
Thomas Harmening am 16.08.2007 um 13:19 Uhr (0)
na hoffentlich kann da geholfen werden,Code:Sub CATMain()Set CATIA = GetObject("", "CATIA.Application") - für aufruf aus Xl ;)folderinput = InputBox("Bitte den Ursprungsordner in dem nur die Drawings drinnen liegen -bitte am Ende ", "Eingabe", "C:v5-draw", 500, 1000)folderoutput = InputBox("Bitte den Zielordner eingeben -bitte am Ende ", "Eingabe", "C:v5-pdf", 500, 1000)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderinput)Set fc = f.FilesFor Each f1 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Benutzer-Selektion im Space UND im Spec-Tree
buschi am 16.08.2007 um 12:59 Uhr (0)
Servus,während der Laufzeit meines Makros wird der Anwender aufgefordert, eine Fläche im geöffneten CATPart zu selektieren: Dim UserSelSet UserSel = CATIA.ActiveDocument.SelectionUserSel.ClearDim Auswahl(0) Auswahl(0) = "HybridShapeExplicitSurface"Dim AA = UserSel.SelectElement2(Auswahl, "Bitte selektieren Sie das Flächenmodell ", True)Auf diese Weise kann der Anwender nun - im Space oder im Strukturbaum - eine tote Fläche (eben ein HybridShapeExplicitSurface) selektieren.Ich möchte aber, dass der Anwender ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter aus Part in TitleBlock-Editor/ Fehler beim Ändern der Parameter
AndreeX00X am 17.08.2007 um 13:01 Uhr (0)
Hallo,Ich habe mir mit VB und parallel dazu mit CATScript ein Macro erstellt, welches im Part (später soll dass auch im Product so laufen) Parameter im Strukturbaum erstellt, in denen ich Werte eintragen kann und die ich dann später im Draw ins Schriftfeld übertragn möchte.Das mit dem Erstellen und Ändern der Parameter klappt auch soweit alles ganz wunderbar.Nun habe ich angefangen mein Draw zu bearbeiten, in dem ich den TitleBlock-Editor verwende. Ich bin nun soweit, dass ich die selbst von Hand erstellte ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter überprüfen ob vorhanden
AndreeX00X am 17.08.2007 um 11:30 Uhr (0)
Hallo YellowDevil,ich habe deinen Tipp mal ausprobiert, jedoch gibt mir VB den Fehler schon in der Zeile mit der For-Schleife an: Zitat:Laufzeitfehler 424Objekt erforderlichIch habe auch noch mal nachgeschaut, ob ich nicht das Ende für die For-Schleife vergessen habe (z.B. End For), so etwas gibt es aber nicht. Also kann es daran schon mal nicht liegen.Ich könnte mir jetzt nur noch vorstellen, dass ich es an die falsche Stelle gesetzt habe, jedoch wüsste ich nicht, wo ich es sonst hinsetzen sollte.Code:Sub ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter aus Part in TitleBlock-Editor/ Fehler beim Ändern der Parameter
AndreeX00X am 18.08.2007 um 16:42 Uhr (0)
Hallo LusilnieDanke für deine Lösung, jedoch hat es damit nicht so recht geklappt. Ich habe es aber trotzdem hinbekommen, nachdem ich mal ein wenig rumprobiert habe, wo der Fehler liegen könnte. Nachdem ich ReferenceProduct durch UserRefProperties ersetzt hatte (Zeile habe ich unten nochmal hingeschrieben), hat es dann genau so funktioniert, wie ich es haben wollte.Code:Set strParam1 = partDocument1.Product.UserRefProperties.Item("Erstellt")Bei meiner oberen Frage muss ich zugeben, dass ich micht nicht so ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VB - API für 3D Curve im Free Style?
Andreas Isele am 21.08.2007 um 12:59 Uhr (0)
Hallo zusammen,Weiss jemand, ob es für die Bezier Kurven (Funktion 3DCurve) im Free Style Workbech im Visual Basic APIs gibt oder brauch ich dazu CAA? Ich möchte mit einem Script eine Bezierkurve erstellen.GrussAndreas------------------CATIA V5R14 SP08 / R16 SP05Windows XP Prof. SP02CATIA V424 R2AIX 4.3.3/5.2
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Mittelpunkte finden
YellowDevil am 22.08.2007 um 03:20 Uhr (1)
Moin,ich habe mal die Methode mit den Edges ausprobiert und leider festgestellt, dass es nicht die Lösung ist. Zum einen werden die Bohrungen alle sauber gefunden und auch Punkte erzeugt und die Koordinaten ausgegeben, doch leider werden auch alle anderen Edges die nur im geringsten einen Radius haben mit gefunden. Somit muss eine Lösung her diese auszuschliessen. Ich hatte die Idee auf dem Edge eine PointOnCurve setzen zu lassen und zwar in per Prozent. Einmal mit 0 und 1, wenn bei beiden Punkten die Koor ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zugriff auf Achsensystem im GeoSet
crow73 am 09.02.2007 um 08:01 Uhr (0)
Hallo Zusammen,ich möchte gerne meine Achsensysteme Upgraden da dies alsLösung eines PMRs vorgeschlagen wurde. Leider schaffe ich esbis jetzt nicht auf die Achsensysteme zuzugreifen die sich ineinem Geometrical Set befinden. Bei den anderen die sich unterAxis Systems befinden ist dies kein Problem!(siehe unten)Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim axisSystems1 As AxisSystemsSet axisSystems1 = part1.AxisSystem ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zugriff auf Achsensystem im GeoSet
Proofin am 09.02.2007 um 10:35 Uhr (0)
Hi,kannst du mal etwas genauer Beschreiben was du vorhast.Du kannst auch über ein Befehl Objekte selektieren ohne das der Anwender eingreifen muß.z.B.dim sSelset sSel = CATIA.ActiveDocument.SelectionsSel.Search("Typ=Achsensystem,all")Diese Zeilen selektieren alle Achsensysteme im aktive Dokument. Zu Beachten ist, das der Suchstring sprachabhängig ist in meinem Bsp. für die deutsche Version.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zugriff auf Achsensystem im GeoSet
YellowDevil am 23.08.2007 um 05:48 Uhr (0)
Versuch mal folgendes:Dim oMySelDim oAxis(200)Dim iCountDim iZaehlerSet oMySel.CATIA.ActiveDocument.SelectionoMySel.ClearoMySel.Search(" .Axis System;all ")If oMySel.Count20 Then iZaehler=oMySel.Count2 For iCount=1 To oMySel.Count2 Set oAxis(iCount)=oMySel.Item2(iCount).Value Next oMySel.Clear For iCount=1 To iZaehler oMySel.Clear oMySel.Add oAxis(iCount) CATIA.StartCommand("Upgrade") oMySel.Clear NextEnd If
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : andere möglichkeit objekte auszublenden...
JuergenHeckmann am 24.08.2007 um 23:55 Uhr (0)
Hoppla...Hab da wohl den Code vergessen Sub CATMain()Dim partDocument1 As PartDocumentDim selection1 As SelectionDim visPropertySet1 As VisPropertySetDim part1 As PartDim hybridBodies1 As HybridBodiesDim hybridBody1 As HybridBodyDim hybridShapes1 As HybridShapesDim hybridShapePointCoord1 As HybridShapePointCoordDim bSTR1 As StringDim bSTR2 As StringDim bSTR3 As StringDim profilzahl As IntegerDim Koordinatenzahl As Integerprofilzahl = 12Koordinatenzahl = 160Set partDocument1 = CATIA.ActiveDocumentSet part1 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : getcomponents ohne Selection
BigCheese am 28.08.2007 um 18:00 Uhr (0)
Hallo lohri,die Position wird nicht zwischen Part und Produkt, sondern zwischen Instanz und Produkt abgelegt.Versuche mal, ob Dir der abgeänderte Code weiterhilft:Sub CATMain() Dim oProducts As Products Dim part_null As Object Dim acoord_in_part() Dim acoord_part_in_product(11) Dim oParentDoc As Document Set oProducts = CATIA.ActiveDocument.Product.Products For X = 1 To oProducts.Count Set oParentDoc = oProducts.Ite(X).ReferenceProduct.Parent If TypeName(oParentDoc) = "PartDocument" Th ...
|
| In das Form CATIA V5 Programmierung wechseln |
