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

A4A3框添加文字水印插件

本帖最后由 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 )
(setqObj (vlax-ename->vla-objecten))
(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

很好用，谢谢分享
页: [1]
查看完整版本: A4A3框添加文字水印插件