yuun 发表于 2021-2-9 13:33:02

EXCEL复制,CAD中粘贴,生成图形

EXCEL的妙用

EXCEL简单易用,可编辑性强,为常用办公软件,人人都会,是工程师不可多得的帮手。那么有没有可以有方法,在EXCEL中输入数据,到Autocad中去画图呢?
熟悉公众号文章的会问:
难道是这篇文章的方法?
不写代码,EXCEL批量参数化画图

当然不是,这个方法,只用excel和cad,不借助任何其它第三方编译程序。
原理解析
我们知道,在Autocad中,可以在命令行中输入命令,然后按照提示绘图。

由于EXCEL中下一行用的是回车,Autocad中输入命令后也是回车,所以理论上只要在EXCEL中输入内容能和CAD命令行中的提示一一对应,那么就可以在EXCEL中输入并复制,在CAD命令行中粘贴,生成图形。

理论存在,实践开始。

我们先在命令行中输入如下字符,其命令和注释如下:https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mxRCE1xWoZBNb8wTiaWBUSE0CCvWJTmAvHypc3tSvWrR5mbSXts2PB953STCicSvbvrE5QuGsxZlQg/640?wx_fmt=png
复制其黄色背景的文字,并粘贴到CAD的命令行里。
https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mxRCE1xWoZBNb8wTiaWBUSEIiaa1U2P73DtXRz3iay9Vf8icK01ibwTCIgyiaP7Q9Zg0IpjjppJliaO2ibbQ/640?wx_fmt=png
果不其然,绘制了一根从(0,0)到(10,10)坐标的直线。
基础图
1.画个正方形:https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mxRCE1xWoZBNb8wTiaWBUSEp60w3oEdoYHkbPN2gMrDUu44mEFVqsl9sQ8vX9u21RLSv0aNN0icsNQ/640?wx_fmt=png
2.画个PL线https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mxRCE1xWoZBNb8wTiaWBUSEq8Qa3JPFoIozibzjP4U2ozJZictoOxoiasBibvUPY6t0Idv72owbsR1FlQ/640?wx_fmt=png图形如下:https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mxRCE1xWoZBNb8wTiaWBUSEfUibTykW6UQNasQYfLPxPTTicRBDoLibFgVQtlx0E10ht6ibhYB3fRqjRA/640?wx_fmt=png
3. 画个圆https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mxRCE1xWoZBNb8wTiaWBUSExNNO7qLEP8fUgibq9HXvm7NFZKG885ZDYWTrCAyDemicgKO4hXDyrkrQ/640?wx_fmt=png效果如下:https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mxRCE1xWoZBNb8wTiaWBUSEoI98nfDAuIPjInzYV00EYjackzBy4ABVPkZsUYribApUca6Ysjgm9Bg/640?wx_fmt=png

4. 画圆弧
https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mxRCE1xWoZBNb8wTiaWBUSEWgWWLIjm9aWkLmRyicWhUJicPhRSyWbfU2icNXC2KibicDlEN6hcoSyKxWw/640?wx_fmt=png效果如下,可以通过调整p2,p3点的先后顺序,绘制优弧或者劣弧。https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mxRCE1xWoZBNb8wTiaWBUSE0K5EibaceqLWlrj5eKt0bXDhls9p5nCiaia4HjGJG2KmmHL1TNkrxXSkw/640?wx_fmt=png
5. 绘制椭圆弧

https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mxRCE1xWoZBNb8wTiaWBUSE02VWiczzKiaqnlugO74WaPykKNMaK2TSzcBUuElegSDwuTUTv5VFIyhg/640?wx_fmt=png效果如下

https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mxRCE1xWoZBNb8wTiaWBUSEQVRM7GWGBn3Gyz4kmtavRUF8x1qOuWBrTH3zoY4iaJ70iag5q4pPpOgQ/640?wx_fmt=png
6. 画一个椭圆封头https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mxRCE1xWoZBNb8wTiaWBUSE9zJ9fWtu2J7JRWzqPJzMMGacauK1R5SunEeXT6PnE2W0nZlw7c6K6A/640?wx_fmt=png为了方便测试,可以复制如下的文字:

命令注释
ellipse画椭圆弧
a选择圆弧
c椭圆中心
0,0中心坐标
100,0长轴坐标
50短轴长度
0椭圆弧起始点
180椭圆弧结束点
offset偏移命令
10偏移10mm
(entlast)选择刚画的线
0,100偏移方向
结束偏移
line画直线
110,0坐标
-110,0坐标
-110,-25坐标
110,-25坐标
110,0坐标

回车
line画直线
100,0坐标
100,-25坐标
回车
line画直线
-100,0坐标
-100,-25坐标
回车
生成效果:

https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mxRCE1xWoZBNb8wTiaWBUSEINic9e2Is2ubKZ9YBb69394Wxh1LF0icbgw4LsZ5tmRKQsSxMFliaNNNg/640?wx_fmt=png

进阶版

假设想做个绘制椭圆封头的程序,通过在EXCEL中输入封头的直径,厚度,直边高度,然后在CAD中自动生成一个椭圆封头。
在EXCEL中输入如下界面:
https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mxRCE1xWoZBNb8wTiaWBUSEeauumOW8qYdJE6SYc82qrxLcHt0DA9jgMxDvFItnpFTRtCBX3J4vow/640?wx_fmt=png
将变化的直径,厚度直边高度,都写到与坐标相关的单元格里,单元格坐标内容与输入数据联动。

这里需要用到最常用的一个函数,连接符号“&”。
https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mxRCE1xWoZBNb8wTiaWBUSES1VVz0s146ib1TCic45ql7M6GSpKMY3zzk5KlVU6545aBiaVM1Aeeb73Q/640?wx_fmt=png
在A26行中输入:="-"&B7&",-"&B4即可得到随着直径厚度变化的坐标。

为了方便大家测试,这个例子如下:


绘制椭圆封头数据
封头直径1000
封头厚度10
直边25



长轴长a500
长轴长a+t510
自动生成excel代码
命令注释
ellipse画椭圆弧
a选择圆弧
c椭圆中心
0,0中心坐标
=M2*0.5&",0"长轴坐标
=M2/4短轴长度
0椭圆弧起始点
180椭圆弧结束点
offset偏移命令
10偏移
(entlast)选择刚画的线
="0,"&M2偏移方向
结束偏移
line画直线
=M7&",0"坐标
="-"&M7&",0"坐标
="-"&M7&",-"&M4坐标
=M7&",-"&M4坐标
=M7&",0"坐标
回车
line画直线
=M6&",0"坐标
=M6&",-"&M4坐标
回车
line画直线
="-"&M6&",0"坐标
="-"&M6&",-"&M4坐标
回车

你学会了吗?
往期精彩:
不写代码,EXCEL批量参数化画图
利用EXCEL生成管口表
今天你用EXCEL了吗?
EXCEL编制计算书
EXCEL与Autocad关联程序的应用
CAD转Excel
SW6卡箍计算的一个BUG


欢迎关注公众号:VCAD001, 一个压力容器人的自我修养。

zxk1355114 发表于 2021-2-9 13:33:02

这个有点意思呀,谢谢楼主

whng 发表于 2021-2-9 13:33:02

感谢分享

542925680 发表于 2021-2-9 13:33:02

高手高高手,佩服了

wnw3248 发表于 2021-2-9 13:33:02

楼主,高人!学习了!

edwardlau 发表于 2021-2-9 13:33:02

居然还有这么强大的CAD和OFFICE链接接口


{:524:}

ps122 发表于 2021-2-9 13:33:02

命令分解动作

87737352 发表于 2021-2-9 13:33:02

有点意思,谢谢楼主呀!{:533:}

kinyon 发表于 2021-2-9 13:33:02

这个看上去不错,谢谢风向,下载收藏

wxch99219 发表于 2021-2-9 13:33:02

谢谢楼主分享!

qyf 发表于 2021-2-9 13:33:02

谢谢你的技术

空o城 发表于 2021-2-9 13:33:02

{:534:}{:534:}

太帅不是我的错 发表于 2021-2-9 13:33:02

高手就是高手,想不到还有这功能

zhangyanzcd2009 发表于 2021-2-9 13:33:02

谢谢分享,楼主辛苦

luduo2001 发表于 2021-2-9 13:33:02

楼主高手!还可以这么玩,,,

reichina 发表于 2021-2-9 13:33:02

这是在写BAT批命令呀,有才,赞一个{:524:}

bkqcycyqm 发表于 2021-2-9 13:33:02

楼主是个有心人呀,谢谢了。

biocyte 发表于 2021-2-9 13:33:02

学习了谢谢楼主

wutuxiaoyuan 发表于 2021-2-9 13:33:02

对于一个熟练掌握CAD的人 貌似不需要这样复杂吧!

oath1218 发表于 2021-2-9 13:33:02

厉害,打开新思路,感谢分享
页: [1] 2
查看完整版本: EXCEL复制,CAD中粘贴,生成图形