标注文字处理

KO你

请教个问题，请大佬帮忙修改
http://bbs.mjtd.com/forum.php?mo ... A%D7%A2%CE%C4%D7%D6

(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)
)

以上程序是标注文字填充颜色，怎么改成标注加背景呢，就是标注文字摭挡

KO你

在网上找的，翻译了对话框为中文，有需要的道友可以下载