A4A3框添加文字水印插件

befun

A4A3框批量添加布满图纸的文字水印，防止被复印，显示问号是因为样式问题，改下样式字体就行了使用:基于打印框的矩形打印框，命令：awd

bai2000

不是源码啊

jun353835273

实际用处不是很大
知道里帮人回答了一个，但刚刚看怎么消失了。

2. (defun c:T2( / ss rete ent pt ptm i n)
   
3. (setvar "cmdecho" 0)
   
4. (princ "选择要添加的矩形图框:")
   
5. (setq ss (ssget (LIST '(0 . "LWPOLYLINE") )));'(8 . "打印框") '(70 . 1)
   
6. (setq rate (getstring "\n输入公司名称:"))
   
7. (if (and rate(/= rate ""))
   
8. (progn
   
9. (setq n 0)
   
10. (repeat (sslength ss)
    
11. (setq ent (ssname ss n))
    
12. (setq pt (getminpo ent ))
    
13. (setq ptm pt)
    
14. (setq i 1)
    
15. (repeat 5
    
16. (setq pt  (polar ptm (* 0.5 pi) (* i 40)))
    
17. (entmaketxt pt rate)
    
18. (repeat 5
    
19. (setq pt  (polar pt 0 100))
    
20. (entmaketxt pt rate)
    
21. )
    
22. (setq i (+ 1 i))
    
23. )
    
24. (setq n (1+ n))
    
25. )
    
26. )
    
27. (princ "公司名不能为空")
    
28. )
    
29. (princ)
    
30. )
    
31. 
    
32. (defun getminpo (en / obj11 maxpo minpo ptmid )
    
33. (setq  Obj (vlax-ename->vla-object  en))
    
34. (vla-GetBoundingBox Obj 'minpo 'maxpo)
    
35. (setq   minpo(vlax-safearray->list minpo)
    
36.         maxpo(vlax-safearray->list maxpo))
    
37. minpo
    
38. )
    
39. (defun entmaketxt(pt txt)
    
40. (entmake(list(cons 0 "TEXT")(cons 10 pt)(cons 40 3 )(cons 1 txt) (cons 50 0.785398)))
    
41.   )

(defun c:T2( / ss rete ent pt ptm i n)<br /> (setvar "cmdecho" 0)<br /> (princ "选择要添加的矩形图框:")<br /> (setq ss (ssget (LIST '(0 . "LWPOLYLINE") )));'(8 . "打印框") '(70 . 1)<br /> (setq rate (getstring "\n输入公司名称:"))<br /> (if (and rate(/= rate ""))<br /> (progn<br /> (setq n 0)<br /> (repeat (sslength ss)<br /> (setq ent (ssname ss n))<br /> (setq pt (getminpo ent ))<br /> (setq ptm pt)<br /> (setq i 1)<br /> (repeat 5<br /> (setq pt  (polar ptm (* 0.5 pi) (* i 40)))<br /> (entmaketxt pt rate)<br /> (repeat 5<br /> (setq pt  (polar pt 0 100))<br /> (entmaketxt pt rate)<br /> )<br /> (setq i (+ 1 i))<br /> )<br /> (setq n (1+ n))<br /> )<br /> )<br /> (princ "公司名不能为空")<br /> )<br /> (princ)<br /> )<br /> <br /> (defun getminpo (en / obj11 maxpo minpo ptmid )<br /> (setq  Obj (vlax-ename->vla-object  en))<br /> (vla-GetBoundingBox Obj 'minpo 'maxpo)<br /> (setq   minpo(vlax-safearray->list minpo)<br />         maxpo(vlax-safearray->list maxpo))<br /> minpo<br /> )<br /> (defun entmaketxt(pt txt)<br /> (entmake(list(cons 0 "TEXT")(cons 10 pt)(cons 40 3 )(cons 1 txt) (cons 50 0.785398)))<br />   )

p-3-ianlcc

请问一下，我运行之后，图框里面还是一样空白
是不是我哪里设置错误呢？

dd131028

怎么我设置后，什么也看不见啊？