Set the 'Windows Desktop' Unit format on all dimstyles

;;모든 DIMSTYLE의 선형치수 단위 형식에 "," 가 표시되게 Windows Desktop으로 일괄 지정하기 
;;
(defun c:d,d()
(setq !Dimstyle (tblnext "DIMSTYLE" T))
  (while !Dimstyle
    (setq !Dimstyle (strcase (cdr (assoc 2 !Dimstyle))))
    (command "-dimstyle" "r" !Dimstyle)
       (setvar "DIMLUNIT" 6) ;Linear dimensions Unit format ;6 Windows Desktop ;2 Decimal
    (command "-dimstyle" "s" !Dimstyle "y")
    (setq !Dimstyle (tblnext "DIMSTYLE"))
  )
(princ)
)