EXCEL

的数据导入

CAD

里绘图的方法

这是用

CAD

VBA

(

cad

里的

lisp

功能也可以实现)的方法。此例是要完成如何在

CAD

中画出如下图

所示的坐标的图形——

3D

折线(另画一圆弧)。当然如果学会了此种绘图的办法之后,还可以照葫芦画瓢

地进行更高级的绘图了。这也只是抛砖引玉而已。

一、新建

excel

工作簿

,

命名为

"EAHT",

保存于

D:\cadvba

文件夹内

(

无此文件夹可新建,若存于别处

则需相应修改一下代码中路径代码

)

,将一工作表命名为

"EAT",

并在其相应位置填

入数据

(

文字备注可不填

),

保存备用

.

如图

1.

坐标X

坐标Y

坐标Z

线条数

8

0

0

5

X偏离

12

10

0

5

Y偏离

12

10

20

5

Z偏离

12

0

20

5

0

20

0

10

20

0

10

0

0

0

0

0

画圆弧

半径

起始角

终点角

X

Y

Z

r

α

(弧度)

β

(弧度)

0

0

0

50

0.5236

2.6180

圆心坐标

二、用宏画图

1.

打开

CAD

,单击

CAD

界面工具菜单→宏→

Visual Basic

编辑器,打开

VBA

编辑器。

(

快捷键

alt+F1

,若

一次不行就再按一次

)

2.

单击

Visual Basic

界面插入→模块,主页面会打开模块代码窗口,向其输入如下代码(画折线的):

Dim xlapp As Excel.Application

Dim xlbook As Excel.workbook

Dim xlsheet As Excel.worksheet

Sub zx() '

宏名

-

折线(轴测图或动态观察可见

3D

效果)

Set xlapp = CreateObject("excel.application")

Set xlbook = xlapp.workbooks.Open("D:\cadvba\eaht.xlsx") '

打开

EXCEL

的路径及名称,早期

excel

的扩展名是

xls

xlapp.Visible = False

隐藏工作簿

Set xlsheet = xlbook.worksheets("eat") '

选用

EXCEL

中名为“

eat

”的工作表中的数据

i = xlsheet.Cells(1, 6) 'i

为线条线数

m = xlsheet.Cells(2, 6) '

这里表示第

2

行第

6

列那个单元格里的数值

n = xlsheet.Cells(3, 6)

T = xlsheet.Cells(4, 6)

For p = 0 To i - 2 Step 1

lisp倒入excel数据画图_将excel数据导入CAD画图的方法相关推荐

  1. autocad不能画图_记住这10个cad画图技巧,轻松精通cad

    其实阻碍你成为cad画图高手的是,cad当中的快捷键命令和最重要的绘图技巧. ​​在业余时间,很多同学,朋友都想学一点其他东西来充实自己的业余时间.cad是一个不错的选择. 先学习cad的用途,再对c ...

  2. excel导入数据校验_使用Excel数据验证限制日期范围

    excel导入数据校验 Yesterday, one of my clients emailed to let me know that she was having trouble entering ...

  3. 深度学习数据自动编码器_如何学习数据科学编码

    深度学习数据自动编码器 意见 (Opinion) When I first wanted to learn programming, I coded along to a 4 hour long Yo ...

  4. 游戏或制图用的计算机配置单,画图游戏够了 3000元CAD画图与游戏电脑主机配置推荐...

    昨天有网友"liushijia"在"百事问答"平台提示,想要自己组装一台电脑,预算3000左右组装一台电脑主机,主要用于游戏和工程画图,想从京东选购硬件,然后自 ...

  5. excel使用教程_数据分析Excel必备技能:数据透视表使用教程

    江米小枣tonylua | 作者 掘金 | 来源 处理数量较大的数据时,一般分为数据获取.数据筛选,以及结果展示几个步骤.在 Excel 中,我们可以利用数据透视表(Pivot Table)方便快捷的 ...

  6. excel 两组数据交点_初识Python 数据可视化

    ✨  冒号说:发着小光小热的小点点 ✨    "一图胜千言."          ----Arthur Brisbane 听说这个最近很火!在这个信息爆炸的时代,科技虽然使得数据获 ...

  7. excel处置4000行数据卡_懂Excel就能轻松入门Python数据分析包pandas(三):制作成绩条...

    系列文章: 经常听别人说 Python 在数据领域有多厉害,结果学了很长时间,连数据处理都麻烦得要死.后来才发现,原来不是 Python 数据处理厉害,而是他有数据分析神器-- pandas 前言 很 ...

  8. excel处置4000行数据卡_数十万数据Excel数据不好处理怎么办?几行Python搞定

    电商行业,每月有上百万条订单发货数据需要与仓库的数据进行核对计算,涉及到数据计算,筛选,匹配等步骤,用excel表超级卡,并且经常卡死. 这时如果你会Python,十几行代码就可以搞定. 这里需要两个 ...

  9. excel mysql数据同步_将 Excel 数据导入 MySql

    能承受上万数据量,速度快,并且使用了事务,不会出现某条数据错误而导致部分数据插入(要是全部成功要是一条都不成功,测试过程中没出现失败),需要的朋友可以参考下 1.NPOI 2.MySql.Data 这 ...

最新文章

  1. 字符设备驱动程序 2
  2. 解决Unity协程无法同步返回的问题
  3. 使用MessageFormat格式化数字,日期
  4. SpringBoot的端口配置server.port没办法设置成Linux的环境变量
  5. 玩转GIT系列之【git切换到某个tag之后提示“detached HEAD】
  6. linux系统构架ftp,用Linux系统构建高效FTP服务器
  7. spoj Favorite Dice(概率dp+期望)
  8. 【学习笔记】第二章——时间片轮转RR、优先级调度、多级反馈队列调度算法
  9. C/C++面试题—矩阵中的路径【回溯法应用】
  10. jsonarray转liast_fastjson List转JSONArray以及JSONArray转List
  11. mybaitis动态sql利用bind标签代替%拼接完成模糊查询
  12. 给特定的模拟器/设备实例发送命令
  13. Linux也使用多线程下载
  14. ubuntu 配置 tftp 服务器
  15. Springboot项目中static文件和templates文件的区别
  16. android sqlitelog,如何解决Sqlitelog(13)语句中止在PhoneGap中的68错误android
  17. antd 的form 表单怎么回显数据_antd design Form动态增减表单项(多个),组装数据及编辑回显,选择初始值,控制添加减少表单项数量等...
  18. 火遍全网的2000款热门短视频剪辑素材+经典音效包素材来了
  19. 高德导航是用的北斗卫星吗?
  20. docker MySQL 双主_DockerMysql数据库实现双主同步配置详细·TesterHome

热门文章

  1. 计算机中 符号咋打,乘以符号电脑怎么打_详细教您打出乘以符号的方法
  2. 天池 入门赛-新闻文本分类-单个bert模型分数0.961
  3. Django-模型层
  4. Pytorch的优化器总结归纳
  5. 京瓷1025打印机打印有底灰简单处理
  6. 远程关闭计算机提示拒绝访问权限,如何解决shutdown远程关机win10拒绝访问的问题...
  7. 大数据转型方案:首推数据湖!
  8. ACM入门攻略(紫书入门,不间断更新)
  9. 寒假训练八(优先队列)2020.02.14(7题)
  10. 如何在outlook里面把收件箱分组,以便快速的查看最重要的email。