치수기입리습 오류 수정 부탁드립니다

안녕하세요 고수님들 제가 예전부터 사용하던 리습입니다
부분치수를 입력한 후 옵션 D 를 입력하면 부분 치수의 합계가 전체 치수로 자동표기 되던 리습인데요 2002버전부터 전체치수 표기가 안됩니다
뭐가 문제일까 고민을 해도 답이 안나와서 이렇게 부탁을 드립니다
아시는분 답변을 좀 부탁드립니다
(defun c:dd () (c:dd-cm) (princ))
(defun c:dd-cm (/ pt zpk zvk ss k ls sc se) (setvar “cmdecho”0)
(prompt “n>> Dimension layer and text style setting…… “)
(setq sc (getvar “ltscale”))
(setq se (getvar “DIMEXE”))
(setq Q:LAINIT (getvar “clayer”))
(setlayer “C21”)
(setvar “dimtih”0)
(setvar “dimtoh”0)
(setvar “dimtad”1)
(setvar “dimtxt”3)
(setvar “dimexo”5)
(setvar “dimexe”2)
(setvar “dimdle”2)
(setvar “dimdli”0)
(setvar “dimaltd”1)
(setvar “dimsho”1)
(setvar “dimsoxd”0)
(setvar “dimtix”1)
(setvar “dimtofl”1)
;(SETVAR “DIMASO” 1)
(SETVAR “DIMALTD” 1)
(SETVAR “DIMSE1” 0)
(SETVAR “DIMSE2” 0-;)
(command “insert””c:/cadpower/libr/symb/dimdot””0,0″”” “”””)
(entdel (entlast))
(command “DIM”
“STYLE”
“romans”
“DIMBLK1”
“dimdot”
“DIMBLK2”
“dimdot”
“EXIT”) (princ “>> O.K.!”)
(initget 1 “V H A “)
(if (= zp nil) (setq zp “H”))
(setq zpk (getkword (strcat “n>> ertical/orisontal/ligned ?<"zp "> : “)))
(if (member zpk ‘(“V””H””A”)) (setq zp zpk))
(if (= zp “V”) (setq dimode “ver”)
(if (= zp “A”) (setq dimode )
(setq dimode “hor”)))
(setvar “osmode”1)
(setq bpt (getpoint “n>> First origin point [F.P] <*END*> : “))
(setq pt1 bpt)
(setq pt2 (getpoint “n>> Second origin point [S.P] <*END*> : “pt1))
(setvar “osmode”0)
(setq dimlocpt (getpoint “n>> Dim-location point : “pt1))
(command “dim”dimode (setq pt pt1)(setq pt pt2)(setq pt dimlocpt)”””exit”)
(setvar “osmode”1)
(setq pt (getpoint “n>> To point [T.P] <*END*> : “pt2))
(while pt (setvar “osmode”0)
(command “dim””con”(setq pt pt)”””exit”)
(setvar “osmode”1)
(setq lpt pt)
(setq pt (getpoint “n>> To point [T.P] <*END*> : “pt)))
(setvar “osmode”0)
(initget 1 “S D “)
(if (= zv nil) (setq zv “D”))
(setq zvk (getkword (strcat “n>> ingle / ouble ? <"zv "> : “)))
(if (member zvk ‘(“S””D”))
(setq zv zvk))
(if (/= zv “S”) (progn(setvar “osmode”0)
(command “dim””con”(setq pt lpt)”””exit”) (entdel (entlast))
(SETVAR “DIMDLI”(* (GETVAR ) 4))
(command “dim””bas”(setq pt bpt)”””exit”)
(SETVAR “DIMDLI”0)
(setq ss (ssget “X”(list (cons 0 “Dimension”))))
(setq ls (sslength ss))(setq k 0)(while (/= k ls) (redraw (ssname ss k) 1)
(setq k (1+ k)))))
(SETVAR “DIMASO”1)
(SETVAR “DIMALTD”1)
(COMMAND “LAYER””s”Q:LAINIT “”)
(princ))