[原创]检查那个尺寸的值被改动过啦和非1：1画的图

龙龙仔

要有測試圖

(defun KO->DISCHAVAL_ONOROFF
       (ENA MODE TXTCOL MASKCOL / DXF_LST ENA_DATA DATA)
  (if (not (tblobjname "APPID" "ACAD_DSTYLE_DIMTEXT_FILL"))
    (regapp "ACAD_DSTYLE_DIMTEXT_FILL")
  )
  (if MODE
    (progn
      (setq DXF_LST
      (list
        (list '(1070 . 376) '(1070 . 2))
        (list '(1070 . 377)
       (cons 1004 MASKCOL)
        )
      )
      )
      (vlax-put (vlax-ename->vla-object ENA) 'TEXTCOLOR TXTCOL)
    )
    (progn
      ;;(if (setq DATA (KO->GET-DIMDXFVAL ENA 178))
      ;;(vlax-put
      ;;(vlax-ename->vla-object ENA)
      ;;'TEXTCOLOR
      ;;DATA
      ;;)
      (vlax-put
 (vlax-ename->vla-object ENA)
 'TEXTCOLOR
 (if (setq DATA (assoc
    178
    (entget
      (tblobjname
        "dimstyle"
        (cdr (assoc 3 (entget ENA)))
      )
    )
         )
     )
   (cdr DATA)
   (getvar "DIMCLRT")
 )
      )
      ;;)
    )
  )
  (setq ENA_DATA (entget ENA))
  (entmod
    (cons
      (list
 -3
 (apply 'append
        (list (list "ACAD_DSTYLE_DIMTEXT_FILL")
       (apply 'append DXF_LST)
        )
 )
      )
      ENA_DATA
    )
  )
)