P2 ,650MHz; 1GB
Win 2000 Pro SP2
CATIA V5 R14 SP3 oder 4
' Version: 1.0
' Code: CATIA CATScript
' Zweck: Beispiel für eine Selektion vor dem Start eines Makros
' Vorbereitung: CATPart laden und Geometrie selektieren
' Autor: Dieter Ziethen
CATIA.StatusBar = "CATScript, Version 1.0"
Sub CATMain ()
Dim UserSelektion As Selection
Set UserSelektion = CATIA.ActiveDocument.Selection
If UserSelektion.Count > 0 Then
For I = 1 to UserSelektion.Count
MsgBox(UserSelektion.Item(I).Value.Name)
Next
End If
End Sub
oder
' Version: 1.0
' Code: CATIA CATScript
' Zweck: Beispiel für das Erkennen von Elementen
' Vorbereitung:
' - CATPart ist aktives Dokument
' - Hauptkörper enthält eine Skizze "Skizze.1" mit 2D-Linien
' Autor: Dieter Ziethen
CATIA.StatusBar = "CATScript, Version 1.0"
Sub CATMain ()
Dim Bauteil As Part
Dim Koerper As Body
Dim Geos As GeometricElements
Dim Geo As GeometricElement
Set Bauteil = CATIA.ActiveDocument.Part
Set Koerper = Bauteil.MainBody
Set Geos = Koerper.Sketches.Item("Skizze.1").GeometricElements
If Geos.Count > 0 Then
For I = 1 To Geos.Count
Set Geo = Geos.Item(I)
If Geo.GeometricType = catGeoTypeLine2D Then MsgBox (Geo.Name)
Next
End If
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP