如何给尺寸标注文字加外边框

uditx · 发表于 2012-1-8 09:19:31

各位大侠，怎么样给尺寸标注加外边框呀用LISP程序，不用标注样式里面的！

byghbcx · 发表于 2012-1-8 09:44:39

用DIMGAP 系统变量看看

vormittag · 发表于 2012-1-8 10:23:18

一段不十分健壮的代码,可以参考.

(defun draw_dimtextframe (ename / nel l ll)
(setq ll (list (cons 1002 "}"))
l (cons 1040 (* -1.0 (abs (cdr(assoc 147 (entget (tblobjname "DIMSTYLE" (cdr (assoc 3 (entget ename))))))))))
ll (cons l ll)
l (cons 1070 147)
ll (cons l ll)
l (cons 1002 "{")
ll (cons l ll)
l (cons 1000 "DSTYLE")
ll (cons l ll)
ll (list -3 (cons "ACAD" ll))
el (entget ename)
nel (cons ll el)
);setq
(regapp "ACAD")
(entmod nel)
)

laoqian123 · 发表于 2012-1-8 21:59:25

(defun c:fk()
(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)
)

yoyoho · 发表于 2012-1-9 08:45:17

感谢 vormittag与laoqian123 分享学习 !

xotoo · 发表于 2012-2-17 14:39:29

不错
程序使用挺方便

lzg8877 · 发表于 2012-6-1 22:45:03

试用了　程序使用挺方便

fangseng · 发表于 2020-9-29 18:15:29

谢谢，laoqian123的添加或删除尺寸的方框，很实用！！

趣意人生 · 发表于 2021-1-29 22:28:49

感谢 vormittag与laoqian123 分享学习 !

KO你 · 发表于 2022-4-8 22:33:55

laoqian123 发表于 2012-1-8 21:59
(defun c:fk()
(princ "\n【添加或删除尺寸的方框】")
(setq i (getvar "dimscale"))

怎样可以做到批量选择呢

尺寸加的方框感觉比标注默认加的框大了一点，能改成与标注绘制文字边框一致大小吗

账号		自动登录	找回密码
密码			注册

如何给尺寸标注文字加外边框

本帖子中包含更多资源

相关帖子