---

Hallo zusammen,

ich hab ein kleines Problemchen. Man stelle sich ein Bauteil vor, welches in etwa 200 punkte besitzt. Über diese Punkte soll jetzt eine Linie senkrecht zur nächstgelegenen Teilfläche des Körpers erstellt werden. Ich will folgende Angaben machen können, Punkte auswählen (oder beriets vorausgewählt das Makro starten), wenn nötig auch die Teilfläche auswählen und zuletzt CATIA sagen in welchem (bereits existierenden) GeoSet die Linien erstellt werden sollen.

Das wärs eigendlich, leider übersteig die Sache meine kaum vorhandenen Makrofähigkeiten bei weitem.
Für jeden Tipp bin ich dankbar

MfG
Norge

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus

ich hab Dir mal ein kleines Makro geschrieben

Startbedingungen: Es muss ein CATPart(mit einer Flaeche und Punkten) einzeln geöffnet sein, keine Struktur!!.Nach dem Start des Makros muss ein GeoSet selektiert werden , es muss eine Flaeche drin sein und sonst nichts,in diesem GeoSet werden dann auch die linien erzeugt.

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Dim sel As Selection
Set sel =  CATIA.ActiveDocument.Selection

Dim oPartDocument As PartDocument
Set oPartDocument = CATIA.ActiveDocument

Dim oPart As Part
Set oPart = oPartDocument.Part

sel.clear

Dim sFilter(0)
sFilter(0)  =  "HybridBody"

Dim Status As String
Status = sel.selectelement2(sFilter,"GeometricalSet Selektieren in dem sich die Flaeche befindet",false)

Dim oHybridbody As Hybridbody
Set oHybridbody = sel.item(1).value

sel.clear

Dim oHybridshape As Hybridshape
Set oHybridshape = oHybridbody.Hybridshapes.item(1)

Dim  oHybridShapeFact 'As HybridShapeFactory
Set oHybridShapeFact = oPart.HybridShapeFactory

Dim refSurface As Reference
Set refSurface = oPart.CreateReferenceFromObject(oHybridshape)
sel.Search "CATPrtSearch.Point,all"

Dim i as Integer

for i =  1 to sel.Count2

Dim oLineNormal As HybridShapeLineNormal
Set oLineNormal = oHybridShapeFact.AddNewLineNormal(refSurface, sel.Item2(1).Reference, 20, -20, false) 
oHybridbody.AppendHybridShape oLineNormal
oPart.InWorkObject = oLineNormal
oPart.Update()

next

sel.Clear

End Sub

---

Gruß Andi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP