lzg8877 发表于 2022-3-20 21:22:36

帮忙修改一下文字框

    请帮忙看看这个方框 改成椭圆或 圆 要怎么改 颜色改成红色改哪里？
(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 发表于 2022-3-21 18:29:35

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

lzg8877 发表于 2022-3-21 19:16:30

哦好的
谢谢
页: [1]
查看完整版本: 帮忙修改一下文字框