Topic: DimText background fill

[LUCAS]

Code: [Select]

(R2008~R2010)
Why dxf 70 can’t add to dimstyle

(if (not (tblobjname "APPID" "ACAD_DSTYLE_DIMJAG"))
  (regapp "ACAD_DSTYLE_DIMJAG")
)
(if (not (tblobjname "APPID" "ACAD_DSTYLE_DIMTALN"))
  (regapp "ACAD_DSTYLE_DIMTALN")
)
(setq DST_DATA (entget (tblobjname "DIMSTYLE" "STANDARD")))
(setq PT1 (cdr (member (assoc 44 DST_DATA) DST_DATA)))
(setq PT2 (reverse
    (member (assoc 44 (reverse DST_DATA)) (reverse DST_DATA))
  )
)
(entmod
  (append PT2
  (list (cons 69 2) (cons 70 2)) ; Why dxf 70 can’t add to dimstyle??
  PT1
  (list '(-3
  ("ACAD_DSTYLE_DIMJAG" (1070 . 388) (1040 . 1.5))
  ("ACAD_DSTYLE_DIMTALN" (1070 . 392) (1070 . 0))
)
  )
  )
)


[Krushert]

Is there a question or is this donation?

[T.Willey]

Is there a question or is this donation?

I think it is a question.  He is trying to add a background fill to the dim style through code.  I don't know how to do it.

[Crank]

With DXF I don't know it either, but you can change the variable DIMTFILL (and DIMTFILLCLR) and save the dimstyle again.