【标注处理】尺寸标注--文字外框添加/去除

二更更二

大佬就是牛！

XPG

感谢分享。。。

lml2023

给你的钻研精神点赞

scmice

试了一下，相当可以。

shirker

谢谢楼主分享。

zhangrunze

maiko 发表于 2022-4-14 15:24

2. ;;;标注删除框
   
3. (defun c:DJ ( / i s1 ss )
   
4.   (while (setq ss (ssget ":S" '((0 . "DIMENSION"))))
   
5.     (repeat (setq i (sslength ss))
   
6.       (setq s1 (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
   
7.       (if (eq (vla-get-tolerancedisplay s1) 0)
   
8.         (vla-put-tolerancedisplay s1 2)
   
9.         (vla-put-tolerancedisplay s1 0)
   
10.       )
    
11.     )
    
12.   )
    
13. )
    

;;;标注删除框<br /> (defun c:DJ ( / i s1 ss )<br />   (while (setq ss (ssget ":S" '((0 . "DIMENSION"))))<br />     (repeat (setq i (sslength ss))<br />       (setq s1 (vlax-ename->vla-object (ssname ss (setq i (1- i)))))<br />       (if (eq (vla-get-tolerancedisplay s1) 0)<br />         (vla-put-tolerancedisplay s1 2)<br />         (vla-put-tolerancedisplay s1 0)<br />       )<br />     )<br />   )<br /> )<br />

yefei812678

感谢分享
感谢分享
感谢分享

菜鸟初来乍到

感谢楼主分享

wide

maiko 发表于 2022-4-14 15:24

怎么让加的框变颜色呢？