| | |  | CATIA V5 Grundkurs | Einsteiger - 5 Std. 15 Min 48 | | | |  | Mit der Kisters 3DViewStation komplexeste 3D CAD-Daten beherrschen, eine Pressemitteilung
|
|
Autor
|
Thema: Automatischer Spline (831 mal gelesen)
|
KITStudent
Mitglied
   Beiträge: 1
Registriert: 01.12.2010
|
erstellt am: 01. Dez. 2010 15:32  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, ich möchte ein Makro erzeugen, welches einen Spline automatisiert durch eine beliebige Anzahl an Punkten legt. Hat jemand eine Idee, wie so ein Code aufgebaut sein könnte? MfG KITStudent Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Starbirth
Mitglied
Konstrukteur
Beiträge: 119
Registriert: 22.10.2009 Catia V5-6 R24
Windows 7 64bit
Intel Xeon (4x3,5GHz)
32B Ram
Nvidia Quatro K4200
|
erstellt am: 01. Dez. 2010 15:43 <-- editieren / zitieren --> Unities abgeben: Nur für KITStudent 
Ja. Code:
Dim Spline As HybridShapeSpline
Dim Ref_Stuetzpunkt As Reference
Set Spline = hybShapeFac.AddNewSpline()
Spline.SetClosing 0
Spline.SetSplineType 1 'siehe Doku
Spline.Name = "Spline"
For i = 1 To Set_Projektionen.HybridShapes.Count 'Die Punkte liegen im GEO Set "Projektionen" hier als Objekt
Set Ref_Stuetzpunkt = ActivePart.CreateReferenceFromObject(Set_Projektionen.HybridShapes.Item(i))
Spline.AddPointWithConstraintExplicit Ref_Stuetzpunkt, Nothing, -1#, 1, Nothing, 0#
Next
EDIT: Nicht zu sehr auf die Namen der Objekte achten, ist bloß C&P aus meinem aktuellen Projekt. [Diese Nachricht wurde von Starbirth am 01. Dez. 2010 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de
| 
