PDA

View Full Version : Sm_hatch_user


Jobst Brandt
01-05-2005, 10:34 AM
After stumbling through hatching for much too long, I tried a new hatch routine as follows:

DEFINE Sm_hatch_user
LET Lastmen 'Tm_hatch'
MENU_BUFFER ON
CURRENT_MENU Sm_hatch_layout_name T_clear_menu Menu_control_icons
MENU Colo1 Bcol5 CENTER 'HATCH' '' 1 3
MENU Colo1 Bcol5 'HATCH' '' 3 1
MENU Colo1 Bcol7 'AUTOMATIC' 'HATCH AUTO' 3 2
MENU Colo1 Bcol7 'MANUAL' 'HATCH MANUAL' 4 2
MENU YELLOW Bcol1 'DELETE' 'DELETE_HATCH' 5 2
MENU Colo1 Bcol5 'PATTERN' '' 7 1
MENU Colo1 Bcol1 'Get' 'GET_PROPERTIES' 7 2
MENU Colo1 Bcol1 'Create' 'CURRENT_HATCH_PATTERN' 8 2
MENU Colo1 Bcol1 'Cancel' 'CURRENT_HATCH_PATTERN NONE' 9 2
MENU Colo1 Bcol5 'SET' '' 11 1
MENU Colo1 Bcol1 'Angle' 'HATCH_ANGLE' 11 2
MENU Colo1 Bcol1 '+45³' 'HATCH_ANGLE (+45)' 12 2
MENU Colo1 Bcol1 '-45³' 'HATCH_ANGLE(-45)' 13 2
MENU Colo1 Bcol1 'Color' 'Tm_col HATCH_COLOR' 14 2
MENU Colo1 Bcol1 'Distance' 'HATCH_DIST' 15 2
MENU Colo1 Bcol1 'Linetype' 'HATCH_LINETYPE' 16 2
MENU Colo1 Bcol1 'Matchpoint' 'HATCH_REF_PT' 17 2
MENU Colo1 Bcol5 'CHANGE' '' 19 1
MENU Colo1 Bcol1 'Angle' 'CHANGE_HATCH_ANGLE' 19 2
MENU Colo1 Bcol1 '+45³' 'CHANGE_HATCH_ANGLE (+45)' 20 2
MENU Colo1 Bcol1 '-45³' 'CHANGE_HATCH_ANGLE (-45)' 21 2
MENU Colo1 Bcol1 'Color' 'Tm_col CHANGE_HATCH_COLOR' 22 2
MENU Colo1 Bcol1 'Distance' 'CHANGE_HATCH_DIST' 23 2
MENU Colo1 Bcol1 'Linetype' 'CHANGE_HATCH_LINETYPE' 24 2
MENU Colo1 Bcol1 'Matchpoint' 'CHANGE_HATCH_REF_PT' 25 2
END_DEFINE

I'd like to know if this is useful for others.