CAD2006标注文字背景填充

960322

      如题，经常标尺寸的时候尺寸后面有线，打印出来后数字容易搞错，需在给一部分标注加背景填充，但是在2006版本下并没有控制标注填充背景的变量，群码中也没有与此相关的项目，请问如何在CAD2006中用lisp实现。


   另外，在论坛已有一个小程序


(defun C:wz (/ ss1 ent1 n)
(vl-load-com)
  (if
    (setq ss1 (ssget '((0 . "DIMENSION"))))
     (progn
       (setq n 0)
       (repeat (sslength ss1)
         (setq ent1 (vlax-ename->vla-object (ssname ss1 n)))
         (vla-put-textfill ent1 :vlax-true)
         (setq n (1+ n))
       )
       (setvar "CMDECHO" 0)
       (command "draworder" ss1 "" "F")
       (setvar "CMDECHO" 1)
     )
  )
  (print)
)



不过在CAD2006中没有vla-put-textfill 函数，CAD2000中我试过可以用。且用vla-put-textfill 填充出来的不是背景色，如何改为背景色。

KO你

标注文字的填充颜色怎么改成背景呢，你的是填充了