cadVBA批量更改图纸

CAD/VBA批量打印

打印图纸，不折不扣的体力活。最多一次打了600多张图，打印机都因\体力不支\中途休息了几次，如果不是用程序批打，估计我也得累个半死。

下面贴出打印过程的代码，加个for循环就可以批打了。简单说明一下打印函数 PrinterName - 打印机名称 Styles - 样式表名称 MediaName - 纸张大小 Copies - 打印份数

AutoMedia - 自动纸张开关

AutoRotate - 自动旋转,纵向/横向 AutoClose - 打印完毕关闭文档 AutoFrame - 自动判断图框，主要针对图框为块的情形 打印过程并没有提供全部的AUTO CAD打印选项，因为我一般用不到，比如\打印偏移\、\打印到文件\我从来不用的，如果需要可以添加进去。

程序会根据指定块名查找图框，也可以根据块的纵横比例自动判断是否为图框，然后按块打印，一张图

产品代号 产品名称 更改原因 零件图号 零件名称 更改人

企业有限公司图纸更改通知单更改部门 技术部 审核 更改前 更改后 分区

通知单编号 更改日期 批准 更改处数 库存/在制 及标记 品处理意见

分发部门 外协部 质检部 技术部

同时更改的文件

底图

(会签) (签字) (日期)

编制

校对

审核

工艺

标准化

批准

实施日期 共 页，第 页

对于把ppt的内容拷贝到word中：

对ppt的一页进行复制，然后粘贴到word中

如果要的是ppt运行过程中的内容，在qq运行的情况下，按Ctrl+Alt+A截屏，按勾，然后可以直接粘贴到word中(生成的图片已经在剪贴板中了)

1.图片只需要符合文档大小即可

方法：插入图片，word自动处理图片大小。

t0141e7e297dae5925f

t01604c20e1619c8644

看一下下方的文件名

按Ctrl+A(全选)，图片的顺序按照电脑文件的顺序排列的

t019cf33f87ec56441d

每一次按Ctrl+点击图片，被点击的图片放在首位

t018d15271bf260029c

效果：

t011d69a1dd9781b7d8

2.图片需要修改为具体的大小

把图片复制，直接在word中粘贴，图片以原始大小显示

t010a12bc487d3f640e

按视图

t019b9643f0f772a3a2

按宏，查看宏，输入setpicsize，按创建

t01a473e545b5ce79ac

复制并粘贴以下程序 并按调试+编译，看看程序有没有错误

Sub setpicsize()

Dim i

Dim Height, Weight

Height = 300

Weight = 200

On Erro

虽然使用 Photoshop 的批处理功能也可以批

量处理，但是不仅大材小用不说，而且很多功能Photoshop 的批处理并不好用(比如自动批量添 加 EXIF 信 息 )。 使 用 一 款 名 为

FastStoneImageViewer 的免费软件，可以轻松处

理大量，轻松修改尺寸、添加水印和 EXIF 信息、裁切、修改 DPI、设置边框，为修改颜色增加特 效。:.

不识优美图片真面具。只缘身在最高峰，一览众山小

免费软件 FastStoneImageViewer

WinXP 以上版本操作系统(支持 Win8)照片和:.

在

百

度

上

搜

索

关

键

字

“FastStoneImageViewer”,下载并安装软件。 运行 FastStoneImageViewer 软件，在侧边

不识优美图片真面具。只缘身在最高峰，一览众山小

的文件导航栏中选中需要批量处理的文件夹。

将需要批量处理的选中。点击菜单“工具”→“批量转换选中的图像”

(也可以按键盘快捷键 F3),在弹出的批量转换

图像设置窗口中，设置好批量转换后的输出文件夹。

不识优美图片真面具。只缘身在最高峰，一览众山小

勾选“设置高级属性”选项前的复选框，点

击旁边的“高级属性”按钮。在弹出的“高级属性”设置窗口中的“调整大小”标签

图纸更改使用审核管理制度

1 目的和适用范围

为规范管理公司的产品图样，本制度规定了公司设计的产品图样、及外来图纸的存档、保管、复制、发放、更改、使用及回收处理。

本制度适用于对公司所有产品图样的管理。

2 职责

技术部是产品图样的归口管理部门，负责产品图样的编制、保管、发放、复制、更改、回收及归档管理。

3 工作程序

3.1.图样和技术文件的编制、发放和管理

3.1.1.设计人员按设计程序完成对产品图样的设计编制，经过审核批准后，交资料管理员进行统一管理，需下发的图纸由资料管理员发放，并做好发放记录。发放的图纸应加盖项目负责人及日期章。

3.1.2.外来图纸经技术负责人审查后，由资料管理员进行统一管理，需下发的由资料管理员发放，并做好发放记录。发放的图纸应加盖项目负责人及日期章。

3.1.3.生产用图如有丢失，应追究其遗失者责任，并按规定办理审批手续审批后，方可补图。

3.1.4.生产用图在产品出公司后由资料管理员如数收回，分类存放，待下次继续使用。

3.2.图样的归档

3.2.1.产品图样底图、归档复印图及外单位提供的副底图均应在资料室统一归档管理。

3.2.2.底图归档应符合下列要求：

a)清晰、无破损、污迹和皱褶；

b)标题栏填写完整，签署齐全；

c)设计文件齐全；

第一课:入门

1.为什么要写这个教程

市面上ACAD VBA的书不多，它的帮助是英文版的，很多人看不懂。其实我转行已经好几年了，而且手艺也慢慢生疏了，写个教程对自己来说也是一次复习。

2.什么是Autocad VBA？

VBA是Visual Basic for Applications的英文缩写，它是一个功能强大的开发工具，学好VBA可以成倍甚至成百、成万倍提高工作效率，在工作中，有很多任务仅用ACAD命令不可能完成的，只要学好VBA就可以做到，相信到时候您一定会得到同事的佩服、老板的器重。

3、VBA有多难？

相信大家都知道Basic是的含义。应该承认，我的水平还不高，错误之处在所难免，如果大家发现错误一定要提出批评，以便及时更正。 4、怎样学习VBA？

介绍大家一个学习公式：信心+恒心=开心。仔细阅读本教程，完成例题，在学习的过程中一定要多思考，多想一些是什么、为什么。本教程将陆续发布在CAD世界论坛上，您不需要付费就可以学习。本作者在此郑重承诺：关于本教程中有任何疑问，可以跟贴提问，只要有时间，本人一定会耐心解答。我不会发到任何人的邮箱中，您自己在论坛上找就可以了，请不要再向我索要这份教程。

5、现在我们开始编写第一个程序：画一百个同心

应 急 预 案

新疆利安伟业机电有限公司

资料撰写：

资料审核： 资料批准： 日 期： 2015年7月 20日 电梯安全事故应急救援预案应急预案

为加强对电梯安全事故的防范，及时做好安全事故发生后的救援处置工作，最大限度地减少事故造成的损失，维护正常的社会秩序和工作秩序，根据《中华人民共和国安全生产法》和《特种设备安全监察条例》的要求，结合本公司实际，特制定本公司电梯安全事故应急救援预案。 一、 本预案的适用范围

本预案所称安全事故，是指在本公司电梯安装软件园创业智能大厦工程现场或维修保养的电梯突然发生的，造成或可能造成人身安全和财物损失的事故，事故类别包括：

(一)电梯困人故障（维护保养的电梯）; (二)由于剪切、坠落等原因造成的人身伤亡事故;

在电梯安装过程中，应严格杜绝安全隐患和危险源的防范。在施工中应注意以下几个方面：

1、

机房预留孔洞：防止工具、杂物人员坠落。

措施：保持机房地面的整

怎么修改图片上的文字（photoshop技巧）（摘）

生活 2009-01-04 10:31:57 阅读562 评论1 字号：大中小 订阅

今天用PS修改一个照片，怎么做也感觉不好，在网上找着这么一段很好的教程，转抄过来，对于作者

深表歉意，未经您的允许私自转载。对于您提供的便利，表示衷心的感谢。

1、打开photoshop，文件/打开。打开一个你收集好的且有文字的美图。（如下图）这张图片有两种情况，一个是颜色上面的文字，去掉就很方便；一种就是图片上面的文字，去掉就有点麻烦。

（图1）：打开有文字图片

2、首先我们要抹掉的是上面的那点文字。因为背景色相对来说比较方便。。不过这不是单一的背景色，有点效果的。所以我们就可以用选取，拉长覆盖的方法。首先我们用选取工具，选中文字前面一点

的色块。如图：

（图2）：选取文字前面的色块

3、按“Ctrl+T”自由变换，然后这个选区就会出现一个有四个节点的选框，我们拖曳右边的那个节点，往有右边有文字的方向拉。这时我们就可以看到图片上的文字就被覆盖掉了。好了，这一区域的文字

就被处理掉了。这是去掉简单的背景图片上面的文字。

（图3）：自由变换覆盖背景上的文字

4、现在我们需要更改图片背景上面的文字。这个就稍微有点难度，有时候抹掉

篇一：发票号更改证明

证明

Xx税务局：

由于我公司财务人员的疏忽（或其他原因），错将发票号码为xxxxx打错成号码为xxxxx，特此证明，同时希望给予改正发票号为xxxxx。

单位名称（加盖公章）：

20xx-x-x

篇二：更改发票申请书

发票退票说明

由于项目申请开发票时发票内容“抗车辙剂材料”写错，导致业主拒收，发票退回，现需重新开具。

1、编号：××××××；名称：××××××路面维修RPS销售项目；开票内容：高模量添加剂；发票开具单位：××××××；开票金额：88万；发票性质：增值税专用发票。

2、编号：××××××；名称：××××××路面维修RPS销售项目；开票内容：高模量添加剂；发票开具单位：××××××；开票金额：① 56.96万元，②14.24万元；发票性质：增值税普通发票。

项目负责人：

分管领导：

合同签订人：

日期：2015年9月2日

篇三：关于更改发票内容的情况说明

关于更改发票内容的情况说明

广西南宁梦之岛水晶城百货有限公司：

我公司于****年***月**日在贵公司购买****，发票号码为：*****，金额为***，现特向贵公司申请换开发票内容，发票抬头更改为：******，发票仅换开一次，由此给贵公司带来不便敬请谅解。

特此说明。

公司名称：****

法院简称更改说明

1、任意连接数据库的内网客户端，点击开始—运行—输入cmd进入dos窗口

2、然后输入isql -Usa -P -Smsrv 回车

出现1> 输入use ecourt 回车 出现2> 输入go 回车

出现1> 输入UPDATE S_FYMC SET FYJC ='法院简称' WHERE FYDM IN (SELECT CODE FROM S_DM WHERE KIND=’TDH’) 回车

注： 贵法院简称见 附件二、《全省法院名称简称表》如杭州市萧山区人民法院为杭萧

出现2> 输入 go回车

出现 (1 row affected) 即表示修改成功，可进行立案测试

注：以上语句输入时请注意大小写、空格，运行成功后请重新登录后开始立案 运行不成功的请联系我公司

下图是以杭州市萧山区人民法院为例。操作说明

案号添加说明

1、系统管理—代码维护—案件类型维护

2、右键-增加

3、打开案件类型维护-点击左侧系统案件类型，选择添加案件类型的适用案件类型，选择好案件类型点击右侧窗口下方的[增加]按钮，在案件简称处更改为所需要的案号。审限月日填写该案件的法定审限，

注：案件类型增加请参照