|
NX Programmierung : Punkte relativ zum WCS erzeugen
wipc3d59 am 24.03.2014 um 08:21 Uhr (1)
Hallo uger,versuchs mal mit:Imports NXOpen.UFundFunction WCS2Abs(ByVal inPt As Point3d) As Point3d Dim pt1(2), pt2(2) As Double Dim ufs As UFSession = UFSession.GetUFSession() pt1(0) = inPt.X pt1(1) = inPt.Y pt1(2) = inPt.Z ufs.Csys.MapPoint(UFConstants.UF_CSYS_ROOT_WCS_COORDS, pt1, _ UFConstants.UF_CSYS_ROOT_COORDS, pt2) WCS2Abs.X = pt2(0) WCS2Abs.Y = pt2(1) WCS2Abs.Z = pt2(2) End FunctionGruß Thorsten
| | In das Form NX Programmierung wechseln |
 |
NX Programmierung : Alle Kurven außerhalb einer Skizze auf Layer verschieben
wipc3d59 am 11.10.2019 um 11:46 Uhr (15)
Hallo Arkadius,ich würde mal nach dem Feature der Kurven fragen......wenn Skizze dann...ansonsten...Mein Ansatz ist: For Each curveObj As DisplayableObject In WorkPart.Curves Dim curveObjs(0) As DisplayableObject Dim an_feat As NXOpen.Tag = Tag.Null theUfSession.Modl.AskObjectFeat(curveObjs.Tag, an_feat) curveObjs(0) = curveObj curveObjs(0).RedisplayObject() WorkPart.Layers.MoveDisplayableObjects(NextFreeLayer(CuFrtLyr, CuLstLyr), curveObjs) WriteLW(curveObj.Name & " m ...
| | In das Form NX Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
