多行文本添加遮罩wipeout

/db_自贡黄明儒_

1. ;;多行文本添加遮罩wipeout
   
2. (defun C:ww (/ E EN)
   
3.   (setq e (car (entsel)))
   
4.   (setq en (entget e))
   
5.   ;;下面使用图形背景色(63颜色，45偏移因子,90取1or3(1前3后),  
   
6.   (entmod
   
7.     (append en
   
8.             (list '(90 . 3) '(63 . 256) '(45 . 1.5))
   
9.     )
   
10.   )
    
11.   (princ)
    
12. );;尺寸标注添加遮罩wipeout
    
13. (defun C:ww1 (/ E EN)
    
14.   (setq e (car (entsel)))
    
15.   (setq en (entget e))
    
16.   (entmod
    
17.     (append en
    
18.             '((-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070 . 69) (1070 . 1) (1002 . "}"))))
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )
    

;;多行文本添加遮罩wipeout<br /> (defun C:ww (/ E EN)<br />   (setq e (car (entsel)))<br />   (setq en (entget e))<br />   ;;下面使用图形背景色(63颜色，45偏移因子,90取1or3(1前3后),  <br />   (entmod<br />     (append en<br />             (list '(90 . 3) '(63 . 256) '(45 . 1.5))<br />     )<br />   )<br />   (princ)<br /> );;尺寸标注添加遮罩wipeout<br /> (defun C:ww1 (/ E EN)<br />   (setq e (car (entsel)))<br />   (setq en (entget e))<br />   (entmod<br />     (append en<br />             '((-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070 . 69) (1070 . 1) (1002 . "}"))))<br />     )<br />   )<br />   (princ)<br /> )<br />

marting

有时候，多行文字的框的宽度要比实际文字宽很多，这个时候遮罩范围就大了，建议把文字框变动最小，然后在执行，就更完美了

508000096

如果把文字框隐藏就更完美了。

sicky111

学习一下。

yangjian001

谢谢分享谢谢

yoyoho

学习一下,分享谢谢!!!!!!