960322 发表于 2013-5-1 11:55:07

CAD2006标注文字背景填充

本帖最后由 960322 于 2013-5-1 11:57 编辑

      如题,经常标尺寸的时候尺寸后面有线,打印出来后数字容易搞错,需在给一部分标注加背景填充,但是在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你 发表于 2022-4-3 05:14:30

本帖最后由 KO你 于 2022-4-8 23:00 编辑

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

页: [1]
查看完整版本: CAD2006标注文字背景填充