|
NX Programmierung : Mittelpunkt einer Linie
Maikx am 07.09.2008 um 09:44 Uhr (0)
Hab was für dich gefunden, was du bei dir einbauen kannst Option Strict OffImports SystemImports System.EnvironmentImports NXOpenImports NXOpen.UFImports NXOpen.UIImports NXOpen.UtilitiesModule MyPointConstruct Sub Main() Dim theSession As Session = Session.GetSession() Dim UFS As NXOpen.UF.UFSession Dim point_tag As NXOpen.Tag Dim AbsPt(2) As Double Dim WcsPt(2) As Double Dim response As Integer UFS = NXOpen.UF.UFSession.GetUFSession() UFS.Ui.LockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM) ...
| | In das Form NX Programmierung wechseln |
|
NX Programmierung : Koordinatenkreuz erstellen
Maikx am 28.10.2008 um 14:57 Uhr (0)
habs rausgefunden Du mußt nach cartesianCoordinateSystem1 = .... folgendes einfügen Dim wcsOrigin(2) As DoubleDim csysOrigin(2) As DoubleDim wcsMatrix(8) As DoubleDim csysMatrix(8) As DoubleDim wcs_tag As NXOpen.Tag = NXOpen.Tag.Nullufs.Csys.AskWcs(wcs_tag)Dim wcsMatrix_id As NXOpen.Tag = NXOpen.Tag.NullDim csysMatrix_id As NXOpen.Tag = NXOpen.Tag.NullDim csys_tag As NXOpen.Tag = NXOpen.Tag.NullDim part As NXOpen.Tag = ufs.Part.AskDisplayPart()ufs.Csys.AskCsysInfo(wcs_tag, wcsMatrix_id, wcsOrigin)workP ...
| | In das Form NX Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
