A4A3框添加文字水印插件

befun · 发表于 2020-4-21 17:05:48

本帖最后由 befun 于 2020-6-12 13:13 编辑

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

jun353835273 · 发表于 2020-4-22 23:38:55

本帖最后由 jun353835273 于 2020-4-22 23:40 编辑

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

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

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

bai2000 · 发表于 2020-4-21 20:19:33

不是源码啊

p-3-ianlcc · 发表于 2020-5-28 15:35:08

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

dd131028 · 发表于 2020-6-22 10:36:47

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

wojiaohuyong · 发表于 2024-9-23 14:27:44

非常好的工具，下载来用用

paulpipi · 发表于 2024-9-23 23:23:10

很好用，谢谢分享

战神凯哥 · 发表于 2024-10-3 22:12:02

文字不是能删掉？

linxiansen1 · 发表于 2024-10-4 00:15:40

很好用，谢谢分享

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

A4A3框添加文字水印插件

本帖子中包含更多资源

本帖子中包含更多资源