Lisp creats dim

[vnanhvu]

I HAVE TWO DIM STYLE!

YOU CAN HELP ME WITH A LSP, I CAN CREAT TWO THIS DIM STYLE!

OR With the syntax of 2 OR TYPE DIM STYLE THAT, CAN I GET ORDER TO CREATE MORE THAN THE!

THANKS FOR ALL!

SORRY I CANT UP FILE ON MY OLD THREAD 5 MINUTES AGO.

(defun c:TaoK (/ scl fcal scal );dmasz dexo dexo dtxt dgap dclre dclrt dsn ao ad obj)
(vl-load-com)
(setq scl (getstring "\nTY LE BAN VE: "))
(setq fcal (atof (substr scl 1 1))) 
(setq scal (atof (substr scl 3 3))) 
(setq tyle (/ fcal scal))
 
(setq caochu (getint "\nCHIEU CAO CUA CHU: "))
(setvar "DIMALTF" 26)
(setvar "DIMALTTZ" 14) 
(setvar "DIMALTZ" 14) 
(setvar "DIMBLK" "ArchTick") 
(setvar "DIMBLK1" "ArchTick")
(setvar "DIMBLK2" "ArchTick")
(setvar "DIMASZ" (/ caochu 2))
(setvar "DIMCEN" -51)
(setvar "DIMCLRD" 10) 
(setvar "DIMDLE" (/ caochu 2))
(setvar "DIMTOFL" 1)
(setvar "DIMDLI" 0)
(setvar "DIMCLRE" 10)
(setvar "DIMEXE" (/ caochu 2))
(setvar "DIMEXO" 0)
(setvar "DIMTMOVE" 2)
(setvar "DIMLDRBLK" "ArchTick")
(setvar "DIMDEC" 0)
(setvar "DIMCLRT" 9)
(setvar "DIMTXT" caochu)
(setvar "DIMLFAC" TYLE) 
(setvar "DIMTIX" 1)
(setvar "DIMTIH" 0)
(setvar "DIMGAP" (/ caochu 2))
(setvar "DIMTOH" 0)
(setvar "DIMTAD" 1)
(setvar "DIMTXSTY" "VNI-HELVE")
(setvar "DIMTDEC" 0)
(setvar "DIMTZIN" 13)
(setvar "DIMZIN" 13)
;-------------------------------------------------------------
(setq dsn (getstring "\nTEN CUA KIEU DIM MOI: ")) 
(setq ao (vlax-get-acad-object)) 
(setq ad (vla-get-ActiveDocument ao)) 
(setq obj (vla-add (vla-get-dimstyles ad) dsn)) 
(vla-copyfrom Obj ad) 
(vla-put-activedimstyle ad Obj) 
(princ) 
) 

DIM STYLE.dwg