|
CATIA V5 Programmierung : Copy/Paste(Link with Result)
Zwenne12 am 15.06.2005 um 11:15 Uhr (0)
Hallo, hab eine Frage. Ich habe mir ein Makro gebastelt mit dem ich einen Body1 erzeuge und einen Body2 als Copy/Paste(Link with Result) von einem selektierten Body3 erstelle. Nun möchte ich den kopierten Body2 mit Hilfe der Boolschen Operation Add in den Body1 einfügen. Sub CATMain() Dim part1 As Part Set part1 = CATIA.ActiveDocument.Part ----------Body1 erzeugen Dim Bodies1 As Bodies Dim body1 As Body Set Bodies1 = part1.Bodies Set body1 = Bodies1.Add body1.Name = Folge_xx ----------Body3 auswählen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Referenzpunkt erzeugen
Zwenne12 am 20.06.2005 um 15:23 Uhr (0)
Hi Thomas, müsste mit folgendem Code funktionieren: Sub CATMain() ... ... Was(0) = AxisSystem ... ... If RP = Normal Then MsgBox(UserSel.Item(1).Value.Name & wurde ausgewählt! ) Else MsgBox ( Abbruch ) End If Dim RefPunkt as AnyObject Set RefPunkt = UserSel.Item (1).Value Dim Ref As Reference Set Ref = CATIA.ActiveDocument.Part.CreateReferenceFromObject(RefPunkt) Dim OriginPoint1 As AnyObject Set OriginPoint1 = RefPunkt.OriginPoint Selektion freigeben ---------------------------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Linienfarbe im Zeichnugrahmen Makro
Zwenne12 am 22.06.2005 um 12:47 Uhr (0)
Hallo Liebmer, Du kannst Deine Linie einer Selektion zuweisen: Dim Selektion As Selection Set Selektion = CATIA.ActiveDocument.Selection Selektion.Add (Deine Linie) Dim Properties As VisPropertySet Set Properties = Selektion.VisProperties Properties.SetRealColor 255,255,0,0 Gruß Sven
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ersetzen Body
Zwenne12 am 04.07.2005 um 11:30 Uhr (0)
Hallo zusammen, habe mal wieder ein Problem. Ich habe ein Part in dem mehrere Bodys und OpenBodys enthalten sind. Die Bodys Folge_01 bis Folge_08 sind wie folgt aufgebaut: ... | -Folge_02 | | | -Add.2 | | | -Result of Folge_01 | -Folge_03 | | | -Add.3 | | | -Result of Folge_02 ... Nun möchte ich eine Folge zwischen 02 und 03 einfügen. Dazu erzeuge ich einen neuen Body(Folge_XX), kopiere Folge_02(ausgewählt durch Selektion), füge sie als Result with Link ein und hänge sie mit der boolschen Ope ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Code übersichtlicher mit Unterroutinen
Zwenne12 am 07.04.2010 um 14:39 Uhr (0)
Hallo,ich habe ein Makro geschrieben, welches aus einer Baugruppe heraus selektierte Parts und Products in eine neu erstellte Baugruppe kopiert. Parts werden dabei über die Methode Paste eingefügt und Products über PasteSpecial "CATSpecBreakLink".Das ganze funktioniert auch wunderbar, jedoch würde ich das Makro gerne übersichtlicher gestalten und mit Unterroutinen versehen. Z.B. könnte man den Code unter ---Filter in einer Unterroutine zusammenfassen, ich weiß jedoch nicht wie man das Ganze dann deklariert ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Code übersichtlicher mit Unterroutinen
Zwenne12 am 08.04.2010 um 14:02 Uhr (0)
Hallo Daniel,erstmal besten Dank für die Mühe. Die Verbesserung hat super funktioniert , ich musste allerdingsdie Variablendeklaration noch ändern, weil mir nur CATvbs zur Verfügung steht.Ich habe dann für die ***Kopieren und Einfügen Sektion noch eine Unterroutine erstellt (Müsste doch eigentlich Sinn machen).Code:Private aArray()Private oSelPrivate oProduct2Sub CATMain() ---Selektierte Elemente Set oSel = CATIA.ActiveDocument.Selection If oSel.Count = 0 Then MsgBox ("Kein Dokument Selektiert") ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Macro allcatpart erzeugen
Zwenne12 am 04.05.2010 um 15:54 Uhr (0)
Hallo Amboß,also wenn ich das richtig verstehe möchtest Du alle Produkte in einem Produkt in allcatparts umwandeln. Das kannst Du mit einer Schleife realisieren, die Parts und Products unterscheidet und dann eben von den Products AllCatParts macht.Hier mal ein Beispiel für eine Schleife:Code:Sub CATMain ()Dim intDocObjDim intProdObjDim intProdsObjSet intDocObj = CATIA.ActiveDocumentSet intProdObj = intDocObj.ProductSet intProdsObj = intProdObj.ProductsFor i = 1 To intProdsObj.Count If Typename (intProdsObj ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : For-Schleife mit Aktivitätsabfrage
Zwenne12 am 05.05.2010 um 09:50 Uhr (1)
Hallo Chrisma,um auf die Methoden Activate, InActivate und IsInactive zuzugreifen musst Du noch ein Objekt der Klasse Part deklarieren.Code:Set intPartObj = CATIA.ActiveDocument.PartFor i = 1 To sel.Count Set countname = sel.Item (i).Value If intPartObj.IsInactive (countname) Then On Error Resume Next intPartObj.Activate countname intPartObj.UpdateObject countname If Err.Number 0 Then intPartObj.Inactivate countname intPartObj.UpdateObject countname End If On Error Goto 0 End IfNext W ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Kante extrahieren
Zwenne12 am 13.06.2005 um 12:17 Uhr (0)
Hallo Leute,um ein Streifenlayout für Folgeverbundwerkzeuge zu erstellen, möchte ich mit der Funktion "Extract" festlegen in welcher Folgeein bestimmtes Profil geschnitten werden soll. Dazu habe ich alle Schnitte in einem Sketch erstellt, diesen dann gepattert und danach in der entsprechenden Folge eine Kante des gewünschten Schnittes selektiert und extrahiert.Jetzt möchte ich das mit einem Makro automatisieren:Language="VBSCRIPT"Sub CATMain()Dim part1 As PartSet part1 = CATIA.ActiveDocument.Part---------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
