|
CATIA V5 Programmierung : Neues Fenster wärend Macro öffnen
Andreas Isele am 24.10.2003 um 10:13 Uhr (0)
Hallo, Das Problem ist, die Struktur der Kopie neu aufzubauen. Kann man machen, ist aber sehr aufwendig. Alternativ dazu kann man vom geöffneten Produkt den Namen und den Pfade ermitteln und ein zweites Produkt mit NEW FROM öffen, welches dann eine exakte kopie des geöffneten Produkts ist. Bedingung: Alle änderungen müssen gespeichert sein. Hab im Anhang ein kleines VB-Project, welches genau diese macht. Gruss Andreas [Diese Nachricht wurde von Andreas Isele am 24. Oktober 2003 editiert.]
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selektion während der Laufzeit
Andreas Isele am 17.09.2004 um 10:47 Uhr (0)
Hallo, Versuchs mal hiermit: Sub CATMain() Dim Was2 (0) Was2 (0) = HybridShapePolyline Dim UserSel2 As Selection Set UserSel2 = CATIA.ActiveDocument.Selection UserSel2.Clear Dim Polylinie as HybridShapePolyline Dim oSelElem2 as SelectedElement Dim E2 As CATBSTR E2 = UserSel2.SelectElement(Was2, Punkt auswählen. , true) If E2 = Normal Then Set oSelElem2 = UserSel2.Item(1) MsgBox ( bla & UserSel2.Count) Else MsgBox ( Abbruch ) End If UserSel2.EndSelectElement Usersel2.Clear End Sub Gruss Andreas
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Interaktive Selektion eines Splines für VB?
Andreas Isele am 15.04.2003 um 12:22 Uhr (0)
Hallo Stoffel, Habe ich schon probiert, SELECTION und VARIANT hat nicht funkioniert. Gruss Andreas
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selektion und anschließendes Suchen in Selektion
Andreas Isele am 17.09.2004 um 13:18 Uhr (0)
Hallole, Versuchs bei der Suche mal mit: Dim CATIA As INFITF.Application Set CATIA = GetObject(, CATIA.Application ) Dim partDocument1 As Document Set partDocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 = partDocument1.Part Dim hybridShapeFactory1 As Factory Set hybridShapeFactory1 = part1.HybridShapeFactory Dim hybridBodies1 As HybridBodies Set hybridBodies1 = part1.HybridBodies Dim HB As HybridBody Set HB = hybridBodies1.Item(UserSel.Item(1).Value.Name) .... keine Garantie. Gruss Andreas
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
