; (setq mai_tukuang_sizes
      ; (list
            ; (list "A0"    "TK0-A"      841 1194)
            ; (list "A0+1"  "TK0-A-E1"   841 1682)
            ; (list "A0+2"  "TK0-A-E2"   841 2388)
            ; (list "A1"    "TK1-A"      597 841)
            ; (list "A1+1"  "TK1-A-E1"   597 1194)
            ; (list "A1+2"  "TK1-A-E2"   597 1682)
            ; (list "A2"    "TK2-A"      420 597)
            ; (list "A2+1"  "TK2-A-E1"   420 841)
            ; (list "A2+2"  "TK2-A-E2"   420 1194)
            ; (list "A3"    "TK3-A"      297 420)
            ; (list "A3+1"  "TK3-A-E1"   297 597)
            ; (list "A3+2"  "TK3-A-E2"   297 841)
            ; (list "A4"    "TK4-A"      297 210)
       ; )
; )

(defun c:mini_tkk ( / tknamelst scalelst tkname tkscale)
  (setq tknamelst
         (list "插入图框"
            (list "选择图框 1"
               nil
               (list "零号图框 A0   [841 x 1194]" "(setq tkname \"TK0-A\")")
               (list "零号加长 A0+1 [841 x 1682]" "(setq tkname \"TK0-A-E1\")")
               (list "零号加长 A0+2 [841 x 2388]" "(setq tkname \"TK0-A-E2\")")
               nil
               (list "一号图框 A1   [597 x  841]" "(setq tkname \"TK1-A\")")
               (list "一号加长 A1+1 [597 x 1194]" "(setq tkname \"TK1-A-E1\")")
               (list "一号加长 A1+2 [597 x 1682]" "(setq tkname \"TK1-A-E2\")")
               nil
            )
            (list "选择图框 2"
               nil
               (list "二号图框 A2   [420 x  597]" "(setq tkname \"TK2-A\")")
               (list "二号加长 A2+1 [420 x  841]" "(setq tkname \"TK2-A-E1\")")
               (list "二号加长 A2+2 [420 x 1194]" "(setq tkname \"TK2-A-E2\")")
               nil
               (list "三号图框 A3   [297 x  420]" "(setq tkname \"TK3-A\")")
               (list "三号加长 A3+1 [297 x  597]" "(setq tkname \"TK3-A-E1\")")
               (list "三号加长 A3+2 [297 x  841]" "(setq tkname \"TK3-A-E2\")")
               nil
            )
        )
  )
  (mai_make_panel_up tknamelst)
  (or tkname (exit))
  (setq scalelst
         (list
            (cond ((= tkname "TK0-A")    "插入零号图框 A0   [841 x 1194]")
                  ((= tkname "TK0-A-E1") "插入零号加长 A0+1 [841 x 1682]")
                  ((= tkname "TK0-A-E2") "插入零号加长 A0+2 [841 x 2388]")
                  ((= tkname "TK1-A")    "插入一号图框 A1   [597 x  841]")
                  ((= tkname "TK1-A-E1") "插入一号加长 A1+1 [597 x 1194]")
                  ((= tkname "TK1-A-E2") "插入一号加长 A1+2 [597 x 1682]")
                  ((= tkname "TK2-A")    "插入二号图框 A2   [420 x  597]")
                  ((= tkname "TK2-A-E1") "插入二号加长 A2+1 [420 x  841]")
                  ((= tkname "TK2-A-E2") "插入二号加长 A2+2 [420 x 1194]")
                  ((= tkname "TK3-A")    "插入三号图框 A3   [297 x  420]")
                  ((= tkname "TK3-A-E1") "插入三号加长 A3+1 [297 x  597]")
                  ((= tkname "TK3-A-E2") "插入三号加长 A3+2 [297 x  841]")
            )
            (list "选择比例 1"
                  (list "　　　1 : 5　 　　　　　" "(setq tkscale 5)")
                  (list "　　　1 : 7.5 　　　　　" "(setq tkscale 7.5)")
                  (list "　　　1 : 10　　　　　　" "(setq tkscale 10)")
                  (list "　　　1 : 20　　　　　　" "(setq tkscale 20)")
                  (list "　　　1 : 25　　　　　　" "(setq tkscale 25)")
                  (list "　　　1 : 30　　　　　　" "(setq tkscale 30)")
                  (list "　　　1 : 40　　　　　　" "(setq tkscale 40)")
                  (list "　　　1 : 50　　　　　　" "(setq tkscale 50)")
                  (list "　　　1 : 75　　　　　　" "(setq tkscale 75)")
           )
           (list "选择比例 2"
                  (list "　　　1 : 100 　　　　　" "(setq tkscale 100)")
                  (list "　　　1 : 150 　　　　　" "(setq tkscale 150)")
                  (list "　　　1 : 200 　　　　　" "(setq tkscale 200)")
                  (list "　　　1 : 250 　　　　　" "(setq tkscale 250)")
                  (list "　　　1 : 300 　　　　　" "(setq tkscale 300)")
                  (list "　　　1 : 400 　　　　　" "(setq tkscale 400)")
                  (list "　　　1 : 500 　　　　　" "(setq tkscale 500)")
                  (list "　　　1 : 750 　　　　　" "(setq tkscale 750)")
                  (list "　　　1 : 1000　　　　　" "(setq tkscale 1000)")
           )
     )
  )
  (mai_make_panel_up scalelst)
  (if tkscale
      (progn
          (if (= (getvar "tilemode") 0)
              (progn (setvar "cvport" 1)
                     (setq tkscale 1)
              )
          )
          (vla-SendCommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "mini_tk " tkname " " (rtos tkscale 2 2) "\n"))
      )
  )
)
