ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[原创并分享]WORD中的AUTOCAD技术

[复制链接]

TA的精华主题

TA的得分主题

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

Word 中的AutoCAD技术:

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

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

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

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

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

操作方法:

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

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

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

源代码将在稍候一段时间公布。

本程序在WIN2KOFFICEXP中通过。

OtV2HkuP.zip (28.58 KB, 下载次数: 625)

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

PW:shourou

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

eiHE4Kep.zip

28.67 KB, 下载次数: 320

[原创并分享]WORD中的AUTOCAD技术

评分

1

查看全部评分

TA的精华主题

TA的得分主题

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

版主好功夫!

这样可以在word 中较精确方便的画出各种直线图形。

在win98+winxP测试通过

TA的精华主题

TA的得分主题

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

回复:(守柔)[原创并分享]WORD中的AUTOCAD技术

我怎么看不懂,对我们这些菜鸟来说简直是天书

TA的精华主题

TA的得分主题

发表于 2004-8-31 10:44 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

怎么出现此画面?

我点"坐标输入"后怎么出现此画面,如附件: 6r8jbspF.rar (42.98 KB, 下载次数: 66)
[此贴子已经被作者于2004-8-31 10:44:22编辑过]

8z7n7Gtn.rar

42.98 KB, 下载次数: 37

[原创并分享]WORD中的AUTOCAD技术

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-8-31 10:55 | 显示全部楼层
本帖最后由 ExcelHome 于 2012-10-6 17:05 编辑

那是因为你当前的设置不是低,更改后,需要退出WORD并重新启动,以便更新注册表项值。

你试一下,OK!

 

TA的精华主题

TA的得分主题

发表于 2004-8-31 10:56 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

在word2003中看不到工具栏

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-8-31 11:02 | 显示全部楼层
可能由于你的工具栏较多,排在后面了,你可点击格式工具栏的右侧小三角,看一下有两个:一个为“连线并测长”,一个为“坐标输入”。

TA的精华主题

TA的得分主题

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

TA的精华主题

TA的得分主题

发表于 2004-9-3 17:26 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
真是高手!

TA的精华主题

TA的得分主题

发表于 2004-9-3 18:23 | 显示全部楼层

确实很高,不过能否应用到PPT里面?

最好是转化为PPA.。

不过可以复制粘贴,已经很不错了。

[此贴子已经被作者于2004-9-3 18:51:55编辑过]
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-14 14:39 , Processed in 0.047168 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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