[编程交流] 帮助使用entmake

 
(defun c:cdim ()
 (if (null (tblsearch "STYLE" "CCC_Doer"))
   (entmake
     (list
       (cons 0 "STYLE")
       (cons 100 "AcDbSymbolTableRecord")
       (cons 100 "AcDbTextStyleTableRecord")
       (cons 2 "CCC_Doer")
       (cons 3 "Verdana.ttf")
       (cons 40 0)
       (cons 70 0))))
(if (null (tblsearch "DIMSTYLE" "CCC_Doer_Cross_Sections"))
         (entmake
     (list
       (cons 0 "DIMSTYLE")
       (cons 100 "AcDbDIMStyleTableRecord")
       (cons 2 "CCC_Doer_Cross_Sections") ;DimStyleName
       (cons 3 "m")                  ;Dimpost
       (cons 4 "")                  ;Dimapost
       (cons 40 1)                  ;Dimscale
       (cons 41 0.30)               ;Dimasz
       (cons 42 0.20)               ;Dimexo
       (cons 43 0.38)               ;Dimdli
       (cons 44 0.25)               ;Dimexe
       (cons 45 0)                ;Dimrnd
       (cons 46 0)                ;Dimdle
       (cons 47 0)                ;Dimtp
       (cons 48 0)                ;Dimtm
       (cons 140 0.25)               ;Dimtxt
       (cons 141 0.09)               ;Dimcen
       (cons 142 0)                ;Dimtsz
       (cons 143 25.4)               ;Dimaltf
       (cons 144 1.00)               ;Dimlfac
       (cons 145 0)                ;Dimtvp        
       (cons 146 1.00)               ;Dimtfac
       (cons 147 0.09)               ;Dimgap
       (cons 148 0)                ;Dimaltrnd
       (cons 71 0)                ;Dimtol     
       (cons 72 0)                ;Dimlim
       (cons 73 1)               ;Dimtih
       (cons 74 1)               ;Dimtoh
       (cons 75 0)               ;Dimse1
       (cons 76 0)               ;Dimse2
       (cons 77 0)                ;Dimtad
       (cons 78 0)                ;Dimzin
       (cons 79 0)                ;Dimazin
       (cons 170 0)          ;Dimalt
       (cons 171 2)                ;Dimaltd
       (cons 172 0)               ;Dimtofl
       (cons 173 0)               ;Dimsah
       (cons 174 0)               ;Dimtix
       (cons 175 0)               ;Dimsoxd
       (cons 176 256)               ;Dimclrd
       (cons 177 256)               ;Dimclre
       (cons 178 256)               ;Dimclrt
       (cons 179 2)                ;Dimadec
       (cons 271 3)                ;Dimdec
       (cons 272 2)                ;Dimtdec
       (cons 273 2)                ;Dimaltu
       (cons 274 2)                ;Dimalttd
       (cons 275 0)                ;Dimaunit
       (cons 276 0)                ;Dimfrac
       (cons 277 2)                ;Dimlunit
       (cons 278 0)               ;Dimdsep
       (cons 279 0)                ;Dimtmove
       (cons 280 0)                ;Dimjust
       (cons 281 0)               ;Dimsd1
       (cons 282 0)               ;Dimsd2
       (cons 283 1)                ;Dimtolj
       (cons 284 0)                ;Dimtzin
       (cons 285 0)                ;Dimaltz
       (cons 286 0)                ;Dimalttz
       (cons 288 0)               ;Dimupt
       (cons 289 3)                ;Dimatfit
;        (cons 340 "CCC_DOER")              ;Dimtxsty
       (cons 341 0)                ;Dimldrblk
       (cons 342 0)                ;Dimblk
       (cons 343 0)                ;Dimblk1
       (cons 344 0)                ;Dimblk2
       (cons 371 -1)               ;Dimlwd
       (cons 372 -1))))               ;Dimlwe
)

(defun STDLIB_CREATE_DIMSTYLE ([color="Red"]StyleName StyleScale TextStyle Current[/color] / OldDimBlk OldCmdEcho StyleScale TextStyle)

 
(defun c:STBDIM ()
STDLIB_CREATE_TEXTSTYLE ("CCC_DOER" 0.25 "verdana.ttf" T)
STDLIB_CREATE_DIMSTYLE ("CCC_DOER_DIMS" 1 "CCC_DOER" T)
(princ)
)

(defun c:STBDIM ()
(STDLIB_CREATE_TEXTSTYLE [color="red"]([/color]"CCC_DOER" 0.25 "verdana.ttf" T)[color="Red"])[/color]
(STDLIB_CREATE_DIMSTYLE [color="Red"]([/color]"CCC_DOER_DIMS" 1 "CCC_DOER" T)[color="red"])[/color]
(princ)
)

(defun c:STBDIM ()
 (load "STDLIB_CREATE_DIMSTYLE")
 (load "STDLIB_CREATE_TEXTSTYLE")
 (STDLIB_CREATE_TEXTSTYLE "CCC_DOER" 0.25 "verdana.ttf" T)
 (STDLIB_CREATE_DIMSTYLE  "CCC_DOER_DIMS" 1 "CCC_DOER" T)
(princ)
)