DIMSTYLE 한번에 지정하기

specify_dimstyle.lsp

0.00MB

;;모든 DIMSTYLE의 선형치수 단위에 "," 표시, 문자색상 green으로 지정하기
;;
(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 
  (setvar "DIMCLRT" 3)   
  (command "-dimstyle" "s" !Dimstyle "y")
  (setq !Dimstyle (tblnext "DIMSTYLE"))
)
(princ)
)