MACRO ZOUT2 ZOUT;2 ENDM MACRO ZIN2 ZIN;2 ENDM MACRO MYTEST1 GL varSname ^DEnter your name GP varPname ^DClick a point TEXTM varSname;varPname ENDM MACRO MYTEST2 GL varSname ^DEnter your name IFERR MacroDone GP varPname ^DClick a point TEXTM varSname;varPname :MacroDone ENDM MACRO MYTEST3 GL varSname ^DEnter your name: IFERR MacroDone GP varPname ^DClick point: IFERR MacroDone GN Index 0 :Loop IFZ Index-5 LoopDone COLOR Index GP varP2 ref varPname @5*Index,5*Index TEXTM varSname;varP2 GN Index Index+1 GO Loop :LoopDone :MacroDone ENDM MACRO MYTEST4 SAVESETTINGS GL varSage ^DEnter your name: IFERR MacroDone GP varPage ^DClick point: IFERR MacroDone GN Index 0 :Loop IFZ Index-5 LoopDone COLOR Index GP varP2 ref varPage @5*Index,5*Index TEXTM varSage;varP2 GN Index Index+1 GO Loop :LoopDone :MacroDone GETSETTINGS ENDM MACRO MYLINES1 SAVESETTINGS GE varEnt ^DSelect entity IFERR MacroDone GOLAYER MYLINES GN varPerc 0 :Loop GP varPOnEnt % varPerc varEnt GP varPperp ref varPOnEnt <90,10 LINE varPOnEnt varPperp; GN varPerc varPerc+10 IFZ varPerc-100 EndLoop GO Loop :EndLoop GP VarPOnEnt % 100 varEnt GP VarPperp ref varPonEnt <90,10 LINE VarPOnEnt VarPperp :MacroDone GETSETTINGS ENDM MACRO MYLINES2 SAVESETTINGS GE varEnt ^DSelect entity IFERR MacroDone GOLAYER MYLINES GN varPerc 0 :Loop GP varPOnEnt % varPerc varEnt IFZ varPerc NoBefore GP vBefore % varPerc-0.1 varEnt GO EndBefore :NoBefore GP VBefore % 0 VarEnt :EndBefore GP vAfter % varPerc+0.1 varEnt GBRNG varBrng vBefore vAfter GP varPperp ref varPOnEnt