帮忙修改一下文字框

lzg8877

    请帮忙看看  这个方框 改成椭圆或 圆 要怎么改 颜色改成红色改哪里？
(defun c:tt()
(princ "\n【添加或删除尺寸的方框】")
(setq i (getvar "dimscale"))
(setvar "regenmode" 1)
(setvar "cmdecho" 0)
(while (setq s (entsel))
  (setq s (car s))
  (if (= "DIMENSION" (cdr (assoc '0 (setq ss (entget s)))))
    (progn
      (setq vs (vlax-ename->vla-object s))
      (setq flg (vla-get-TextGap vs))
      (if (< flg 0)
      (vla-put-TextGap vs 1)
      (vla-put-TextGap vs -1)
      )
    )
  )
)
(princ)
)

liwen888888

改这个代码，不如去看你回复的那个标注尺寸加圆的帖子。那个代码完全可以用。改这个代码估计很费劲的，思路方法不一样，这个代码是利用了标注样式

lzg8877

哦好的
谢谢