//
//      AutoCAD menu file - C:\Program Files\Autodesk Map 6\Support\jbd.mnu
//

***MENUGROUP=jbd

***POP1
Map_Menu       [Ma&p]
Map_Menu       [->&Drawings]

***POP13
**JBD
ID_Mnjbd2      [&Jbd2]
               [->Text.]
                 [Same Rotate..]^C^C(LOAD"SUDUT") SUDUT;(SETQ SUDUT NIL) 
                 [Horizontal...]^C^C(LOAD"SUDUT1") SUDUT1;(SETQ SUDUT1 nil) 
                 [Vertical.....]^C^C(LOAD"SUDUT2") SUDUT2;(SETQ SUDUT2 nil) 
                 [Spacing......]^C^CRUANG; ;;yin;;
                 [Reverse Brg..]^C^C(LOAD"SUDUT3") SUDUT3;(SETQ SUDUT3 nil) 
                 [Move It?.....]^C^C(COMMAND "MOVE" AA "" TXT5 PAUSE) 
                 [Edit 1 Text..]^C^C(COMMAND "DDEDIT" PAUSE) 
                 [No Decimal.]^C^C(LOAD"DECC") DECC;(SETQ DECC NIL) 
                 [<-Label Heights]^C^C(load "lblsh") lblsh;(setq lblsh nil) 
               [->Line.]
                 [Match Object.]^C^C(LOAD"MATCH")  MATCH;
                 [Match Height.]^C^C(LOAD"MACHGT") ALINE8;
                 [Draw Line....]^C^C(LOAD"ALINE2") ALINE2;
                 [XXXLabel Line...]^C^C(LOAD"ALINE3");ALINE3;
                 [->Autolabel..]
                   [Text Format..]
                   [Bg/D]^C^C(setq Y0 NIL Y1 NIL Y2 NIL Y3 NIL Y4 NIL BD1 NIL BD2 NIL BD3 NIL BD4 NIL);(setq Y3 "YA");(setq Y0 "YA")(setq BD1 "YA")(setq BD4 "YA")(LOAD"ALINE5") maingame;
                   [ /D]^C^C(setq Y0 NIL Y2 NIL Y3 NIL Y4 NIL BD1 NIL BD2 NIL BD3 NIL BD4 NIL)(setq Y3 "YA")(setq BD4 "YA")(LOAD"ALINE5") maingame;
                   [Bg/]^C^C(setq Y0 NIL Y1 NIL Y2 NIL Y3 NIL Y4 NIL BD1 NIL BD2 NIL BD3 NIL BD4 NIL)(setq Y0 "YA")(setq BD1 "YA")(LOAD"ALINE5") maingame;
                   [D/Bg]^C^C(setq Y0 NIL Y1 NIL Y2 NIL Y3 NIL Y4 NIL BD1 NIL BD2 NIL BD3 NIL BD4 NIL);(setq Y3 "YA");(setq Y0 "YA");(setq BD2 "YA");(setq BD3 "YA");(LOAD"ALINE5") maingame;
                   [D/]^C^C(setq Y0 NIL Y1 NIL Y2 NIL Y3 NIL Y4 NIL BD1 NIL BD2 NIL BD3 NIL BD4 NIL);(setq Y0 "YA");(setq BD2 "YA");(LOAD"ALINE5") maingame;
                   [ /Bg]^C^C(setq Y0 NIL Y1 NIL Y2 NIL Y3 NIL Y4 NIL BD1 NIL BD2 NIL BD3 NIL BD4 NIL);(setq Y3 "YA");(setq BD3 "YA");(LOAD"ALINE5") maingame;
                   [Bg,D/]^C^C(setq Y0 NIL Y1 NIL Y2 NIL Y3 NIL Y4 NIL BD1 NIL BD2 NIL BD3 NIL BD4 NIL);(setq Y2 "YA");(setq Y0 "YA");(setq BD1 "YA");(setq BD4 "YA");(setq BDUP "UP");(LOAD"ALINE5") maingame;
                   [ /Bg,D]^C^C(setq Y0 NIL Y1 NIL Y2 NIL Y3 NIL Y4 NIL BD1 NIL BD2 NIL BD3 NIL BD4 NIL);(setq Y4 "YA");(setq Y3 "YA");(setq BD1 "YA");(setq BD4 "YA");(setq BDDOWN "DOWN");(LOAD"ALINE5") maingame;
                   [Bg_D/]^C^C(setq Y0 NIL Y1 NIL Y2 NIL Y3 NIL Y4 NIL BD1 NIL BD2 NIL BD3 NIL BD4 NIL);(setq Y0 "YA");(setq BD1 "YA");(setq BD2 "YA");(LOAD"ALINE5") maingame;
                   [ /Bg_D]^C^C(setq Y0 NIL Y1 NIL Y2 NIL Y3 NIL Y4 NIL BD1 NIL BD2 NIL BD3 NIL BD4 NIL);(setq Y3 "YA");(setq BD3 "YA");(setq BD4 "YA");(LOAD"ALINE5") maingame;
                   [D,Bg/]^C^C(setq Y0 NIL Y1 NIL Y2 NIL Y3 NIL Y4 NIL BD1 NIL BD2 NIL BD3 NIL BD4 NIL);(setq Y2 "YA");(setq Y0 "YA");(setq BD2 "YA");(setq BD3 "YA");(setq BDUP "UP");(LOAD"ALINE5") maingame;
                   [<- /D,Bg]^C^C(setq Y0 NIL Y1 NIL Y2 NIL Y3 NIL Y4 NIL BD1 NIL BD2 NIL BD3 NIL BD4 NIL);(setq Y4 "YA");(setq Y3 "YA");(setq BD2 "YA");(setq BD3 "YA");(setq BDDOWN "DOWN");(LOAD"ALINE5") maingame;
                 [Corner Cut..]^C^CCHAMFER;
                 [<-Draw Line Fr Single Stn]^C^C(LOAD"PILE1");BJGO;
               [->XXXMarks.]
                 [None...]^C^C(SETQ TYPE1 NIL);
                 [Pipe....]^C^C(setq ASZ1 (* 0.00246063 SKIL METER));(SETQ TYPE1 "PIPE");
                 [Spike...]^C^C(setq ASZ2 (* 0.00164042 SKIL METER 2.00));(SETQ TYPE1 "SPIKE");
                 [Clear Peg]^C^C(SETQ P(SSGET "X" '((0 . "CIRCLE"))));(setq l 0 n (sslength p))(while (< l n)(PROGN(setq e (entget (SETQ CC(ssname p l) )))(SETQ WCEN(CDR (ASSOC 10 E)))(SETQ WDIA(CDR (ASSOC 40 E)))(IF (= WDIA ASZ1) (COMMAND "TRIM" CC "" WCEN WCEN ""))(setq l (+ 1 l)))) 
                 [->Marks Insertion]
                   [Spike]^C^C(COMMAND "DONUT" "0.00" ASZ2 PAUSE "") 
                   [<- Pipe ]^C^C(COMMAND "CIRCLE" PAUSE ASZ1) 
                 [Circle & Alpha/Number]^C^C(setq madd (GETSTRING "STARTING ALPHABET :"));\(setq nadd (getstring "STARTING NUMBER :"));\(WHILE (/= NADD "A")(SETQ NNADD (STRCAT MADD NADD))(COMMAND "text" "JUSTIFY" "MC" PAUSE th "90" NNADD)(SETQ CCI(GETVAR "LASTPOINT"))(SETQ CISIZE 0.00375);;;(IF(> TINGGI 2.99)(SETQ CISIZE 0.0075))(SETQ ASZ3 (* CISIZE SKIL))(COMMAND "CIRCLE" CCI ASZ3)(SETQ ABC(ATOF NADD))(SETQ ABC(+ 1 ABC))(SETQ NADD(RTOS ABC 2 0))) 
                 [Text & Circle]^C^C(setq NADD (GETSTRING "TEXT :"));\(SETQ APLBA "ABCDEFGHIJKLMNOPQRSTUVWXYZ" APWITH 27 SI 1 NOM 1);(SETQ APLBA1 "abcdefghijklmnopqrstuvwxyz")*") (SETQ APLBA APLBA1))(WHILE (> 27 SI)(PROGN (SETQ STEXT(SUBSTR APLBA SI 1))(IF (= NADD STEXT) (SETQ NOM SI))(SETQ SI (+ SI 1));););(WHILE (/= STEXT "1")(SETQ STEXT(SUBSTR APLBA NOM 1))(COMMAND "text" "JUSTIFY" "MC" PAUSE th "90" STEXT)(SETQ CCI(GETVAR "LASTPOINT"))(SETQ CISIZE 0.00375);;;(IF(> TINGGI 2.999)(SETQ CISIZE 0.0075))(SETQ ASZ3 (* CISIZE SKIL))(COMMAND "CIRCLE" CCI ASZ3)(SETQ ABC(ATOF NADD))(SETQ NOM(+ 1 NOM))(SETQ NADD(RTOS ABC 2 0))) 
                 [Arrow]ARW;
                 [<-Alpha/Number]^C^C(setq madd (GETSTRING "STARTING ALPHABET :"));\(setq nadd (getstring "STARTING NUMBER :"));\(WHILE (/= NADD "A")(SETQ NNADD (STRCAT MADD NADD))(COMMAND "text" "JUSTIFY" "MC" PAUSE th "90" NNADD)(SETQ ABC(ATOF NADD))(SETQ ABC(+ 1 ABC))(SETQ NADD(RTOS ABC 2 0))) 
               [->Coords.]
                 [Label Coords..]^C^C(LOAD"KORD") XYj;
                 [<-Label PT Number]^C^C(LOAD "PTNO");PTNO;
               [->Piling.]
                 [Draw Line Fr Fixed Stn]^C^C(LOAD"PILE3");PJGO;
                 [Label Offset (mm)]^C^C(LOAD"PILE2");PPGE;
                 [<-Label Offset (m)]^C^C(LOAD"PILE") ;PPGO;
               [->Fence.]
                 [Barbed Wire Fence]^C^C(LOAD"OF") FEL;B;
                 [Chain Link Fence]^C^C(LOAD"OF") FEL;C;
                 [Cutting..... ]^C^C(LOAD"CUT");CUT;

***TOOLBARS

//
//      End of AutoCAD menu file - C:\Program Files\Autodesk Map 6\Support\jbd.mnu
//