; (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"
					(list "零号图框 A0   [841 x 1194]" "(setq tkname \"TK0-A\")")
					nil
					(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\")")
					nil
					(list "一号加长 A1+1 [597 x 1194]" "(setq tkname \"TK1-A-E1\")")
					(list "一号加长 A1+2 [597 x 1682]" "(setq tkname \"TK1-A-E2\")")
				)
				(list
					"选择图框 2"
					(list "二号图框 A2   [420 x  597]" "(setq tkname \"TK2-A\")")
					nil
					(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\")")
					nil
					(list "三号加长 A3+1 [297 x  597]" "(setq tkname \"TK3-A-E1\")")
					(list "三号加长 A3+2 [297 x  841]" "(setq tkname \"TK3-A-E2\")")
				)
			)
	)
	(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"))
		)
	)
)
