| | |  | Additiv Herbsttagung | 22. Oktober 2026 | KSB SE & Co. KG, Pegnitz Termin: in 11 Wochen |
|
Autor
|
Thema: CSYS um Achse drehen (1112 mal gelesen)
|
met
Mitglied
CAD-Admin / Konstrukteur
   Beiträge: 142
Registriert: 23.07.2004 Solidworks 2017
TCE 9.1.3
NX 5
3ds max 2017/2019
CorelDraw 12
|
erstellt am: 23. Okt. 2014 09:07  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, wie kann ich ein Csys um eine seiner Achsen einen best. Winkel drehen? Erstellen kann die es so:
Code:
' NX 5.0.6.3
' Journal created by met on Thu Oct 23 08:39:14 2014 Mitteleuropäische Sommerzeit
'
Option Strict Off
Imports System
Imports NXOpenModule NXJournal1
Sub Main() Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work Dim displayPart As Part = theSession.Parts.Display Dim aktPoint As Point3d = New Point3d(100, 200, 300)
Dim db As Features.DatumCsysBuilder = workPart.Features.CreateDatumCsysBuilder(Nothing)
Dim xForm1 As Xform = workPart.Xforms.CreateXform(aktPoint, New Vector3d(1, 0, 0), New Vector3d(0, 1, 1), SmartObject.UpdateOption.WithinModeling, 1)
db.Csys = workPart.CoordinateSystems.CreateCoordinateSystem(xForm1, SmartObject.UpdateOption.WithinModeling)
db.ComponentsCreation = True
db.FixedSizeDatum = True
db.DisplayScaleFactor = 2
Dim aktCSys As Features.DatumCsys = db.Commit()
db.Destroy()
End Sub
End Module
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| | Projektleiter TGA - HLS / Versorgungstechnik / HOAI (m/w/d) | | Als kleines und familiäres Unternehmen planen, betreuen und bauen wir in München, einer der schönsten Städte des Landes, zusammen mit unseren Partnern die Technische Gebäudeausrüstung im Neu- und Altbau. In den Gewerken Heizung, Lüftung und Sanitär besitzen wir langjährige Expertise und können auf eine Vielzahl an herausfordernden Projekten zurückblicken. Es kommen stets neue und spannende Projekte auf uns zu, welche wir nachhaltig und ökonomisch für eine gemeinsame Zukunft umsetzen werden.... | | Anzeige ansehen | Feste Anstellung |
|
mseufert
Moderator
Freiberuflicher CAD/CAM Ingenieur
    
Beiträge: 2750
Registriert: 18.10.2005 HP Z420
WIN7 64 Win 10
UG NX6-2306
3D Printer Prusa MK2 S
|
erstellt am: 06. Nov. 2014 10:33 <-- editieren / zitieren --> Unities abgeben: Nur für met 
Hallo met, die Antwort steckt wohl hier drin: Andere Vektoren verwenden ? Dim xForm1 As Xform = workPart.Xforms.CreateXform(aktPoint, New Vector3d(1, 0, 0), New Vector3d(0, 1, 1), SmartObject.UpdateOption.WithinModeling, 1)
db.Csys = workPart.CoordinateSystems.CreateCoordinateSystem(xForm1, SmartObject.UpdateOption.WithinModeling) Gruß, Michael Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de
| 
