ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 16538|回复: 29

[原创]WORD中的AUTOCAD技术

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-8-30 09:02 | 显示全部楼层 |阅读模式

Word 中的AutoCAD技术:

本程序是建立在WORD绘图功能基础上的一个功能开发,它借鉴了CAD绘图技术中的坐标轴定位,根据设置的坐标,进行以两点定一线,并根据设置坐标,能自动标注出该线条的长度。

在状态栏中,你可以很清晰地看出当前选定点所在的相对位置,绝对位置,和页面中的位置。

受设计初期影响,在本程序中X轴方向是从左向右为增大;Y轴方向是从上到下为增大(Y轴方向与数字坐标相反)。

WORD绘图功能的影响,其最小精度为0.1毫米;

WORD内置功能限制,必需将毫米转换为磅值再进行定位,因此在度量单位的转换过程中,会出现系统误差。

操作方法:

点击工具栏中的坐标输入,定位一个原点,然后所有以后录入的数据,皆以此点为依据,进行点定位;如果你觉得要改变原点位置,或者找到图中另外一个点重设为原点,可以按下窗体中的RestZero命令按钮或者It'sZero,本程序将重新进行坐标计算。

选中定位好的两个点,(两点成一线),按下“连线并测长”命令,将自动连成一线,并计算出其长度,标注在适当位置。

由于是初次涉及精确绘图,并且本人尚未接触过AutoCad,请各位测试并多提建议,以便修改。

VBA pw:shourou

本程序在WIN2KOFFICEXP中通过。

在计算坐标原点时有一个误差,现已更正。

Uc4waJNc.zip (28.58 KB, 下载次数: 661)

[此贴子已经被作者于2004-8-30 15:53:42编辑过]

lM92p7G0.zip

28.67 KB, 下载次数: 389

[原创]WORD中的AUTOCAD技术

TA的精华主题

TA的得分主题

发表于 2004-8-30 11:25 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-8-30 11:30 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-8-31 11:10 | 显示全部楼层

太经典了,在此之前还从没想过,Word能做到这样的效果。

TA的精华主题

TA的得分主题

发表于 2004-8-31 11:31 | 显示全部楼层

PUP2000和PUP5中有些代码也有类似功能.

[此贴子已经被作者于2004-8-31 11:33:44编辑过]

TA的精华主题

TA的得分主题

发表于 2004-8-31 16:20 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-9-1 07:36 | 显示全部楼层

谢谢几位的支持!

其实EXCEL中也一样,都是调用的绘图工具。只是APPLICATION对象不同,编程过程中略有差别的。

TA的精华主题

TA的得分主题

发表于 2004-9-5 00:03 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-9-5 00:14 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-9-1 01:16 | 显示全部楼层
很好!我想同样原理,在Excel也能达到吧?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-22 14:37 , Processed in 0.036711 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表