ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 14328|回复: 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, 下载次数: 639)

lM92p7G0.zip

28.67 KB, 下载次数: 375

[原创]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, 2019-11-14 15:26 , Processed in 1.120701 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

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

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

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