Hallo
Wie bereits im anderen Bereich des Forums geschrieben, geht's mit einem Macro:
----- test.macro ------
NX 3.0.1.3
Macro File: C:\test.macro
Macro Version 7.30
Macro List Language and Codeset: german 17
Created by s on Tue Sep 27 09:47:37 2005
Part Name Display Style: $FILENAME
Selection Parameters 1 2 0.264197 1
Display Parameters 1.000000 14.653051 9.481115 -1.000000 -0.647040 1.000000 0.647040
*****************
RESET
MENU, 0, UG_CURVE_BASIC_CURVES UG_GATEWAY_MAIN_MENUBAR !
DIALOG_BEGIN "Basic Curves" 5331
BEG_ITEM 1 (1 TOOL 5331) = 0 ! Line
BEG_ITEM 3 (0 BOOL 5331) = 0 ! Unbounded
BEG_ITEM 4 (1 BOOL 5331) = 0 ! Delta
BEG_ITEM 5 (1 OPTM 5331) = 0 ! Inferred Point
BEG_ITEM 6 (1 BOOL 5331) = 1 ! String Mode
BEG_ITEM 11 (0 BLO 5331) = 0 ! XC
BEG_ITEM 12 (1 TOOL 5331) = 1 ! New
BEG_ITEM 13 (1 REAL 5331) = 0.0000000000000000 ! Angle Increment
BEG_ITEM 15 (1 RADI 5331) = 0 ! Start, End, Point on Arc
BEG_ITEM 16 (1 RADI 5331) = 0 ! Parameters
BEG_ITEM 18 (1 BOOL 5331) = 1 ! Display Original Spline
BEG_ITEM 20 (1 RADI 5331) = 0 ! By Parameter
BEG_ITEM 21 (0 BOOL 5331) = 0 ! Multiple Positions
FOCUS CHANGE IN 1
---------------
Aufruf von VB aus:
------------------------
Module NXJournal
Declare Sub MACRO_playback_from_usertool Lib "libugui" Alias "?MACRO_playback_from_usertool@@YAXPAD@Z" (ByVal lpName As String)
Sub Main
MACRO_playback_from_usertool("C:\test.macro")
End Sub
End Module
------------------------
Ein Nachteil an der Sache ist, das man im Modul "Modeling" sein muß, sonst gibt es eine Fehlermeldung beim Ausführen von dem Macro.
Gruß Stefan
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP