Excel to CAD 绘图技术

905738810

多段线还有三个属性很有用，咱接着讲1.Area属性：多段线围成封闭区域的面积
2.Length属性：多段线的总长
3.Closed属性，多段线是否闭合（布尔值：True闭合，False不闭合）
前两个很简单不解释了，说下第三个。
以之前代码为例
    Dim ptArr(5) As Double '多段线点集合（每2个元素为1个点）
    ptArr(0) = 0: ptArr(1) = 0 '第一点
    ptArr(2) = 100: ptArr(3) = 0 '第二点
    ptArr(4) = 50: ptArr(5) = 100 '第三点
    Set LWPline1 = doct.ModelSpace.AddLightWeightPolyline(ptArr) '绘制优化多段线
    LWPline1.Closed = False

代码画了一条优化多段线，多段线有三个点，Closed = False，画出来是这样

Closed = False时最后一个点画完就停止了

如果改为Closed = True，画出来是这样

最后一个点和第一点自动连起来了，形成了一个闭合区域

1. Sub LWPline2() '优化多段线
   
2.     Dim doct As Object
   
3.     Set doct = doc
   
4.     If doct Is Nothing Then Exit Sub
   
5.     Dim ptArr(5) As Double '多段线点集合（每2个元素为1个点）
   
6.     ptArr(0) = 0: ptArr(1) = 0 '第一点
   
7.     ptArr(2) = 100: ptArr(3) = 0 '第二点
   
8.     ptArr(4) = 50: ptArr(5) = 100 '第三点
   
9.     Set LWPline1 = doct.ModelSpace.AddLightWeightPolyline(ptArr) '绘制优化多段线
   
10.     LWPline1.Closed = False
    
11. '    LWPline1.Closed = True
    
12.     s = LWPline1.Area
    
13.     l = LWPline1.Length
    
14. End Sub

复制代码

戴维351006616

这些东西在CAD VBA都是很基础的  我搞不懂这个和EXCEL有什么关系  

905738810

戴维351006616 发表于 2020-7-14 13:50
所以我说楼主你在水帖  CAD VBA有专门的社区 你发在这里是很奇怪的  除非你有办法将CAD的图元转化成EXCEL ...

对于你可能知道很多地方都有教程，可是eh里的人不一定都是像你一样知道去哪里找，你可以分享出链接来，让我们大家一起学习，只是说我水贴没有任何意义。
我水帖会得到什么吗，对我有没有好处？美女还是金钱？我会获得什么？
我全部手敲这些帖的时间去学习对我来说岂不是更加有意义？
我只是想分享我的知识，共同进步。

905738810

戴维351006616 发表于 2020-7-14 14:33
这些东西在CAD VBA都是很基础的  我搞不懂这个和EXCEL有什么关系

你认为基础的东西，别人就都会吗？看样子你还很年轻,没有想明白一些道理。

戴维351006616

905738810 发表于 2020-7-14 14:47
你认为基础的东西，别人就都会吗？看样子你还很年轻,没有想明白一些道理。

你想歪了  想学这个 就应该去CAD二次开发的社区去学 等学会的 如果真要通过表格来绘制到时候才是引用Set acadApp = GetObject(, "AutoCAD.Application")  然而这有何技术而言？ 我是年轻，但是我不会做这样的事情 我不信想学CAD二次开发的人 会不知道CAD本身就集成了VBA开发模块  何必要绕一层？

905738810

戴维351006616 发表于 2020-7-14 14:53
你想歪了  想学这个 就应该去CAD二次开发的社区去学 等学会的 如果真要通过表格来绘制到时候才是引用Set  ...

在哪里学习并不是重点，重点是学到知识，ExcelHome说是Excel之家，不也同样开发了Word等其他版块？这里是一个大型交流社区，不限制只能交流Excel，可以扩展很多知识。

一缕江风

没有遇过利用Exce VBA处理后的数据，绘制复杂、重复、具备独特的个性化分析图形，是难以体会到此贴的功用

905738810

枯燥的代码怕大家看的太困，发一个实例，分享给贴友们。
客户要求1：根据Excel里的点数据画出折线图。

客户要求2：折线图中可以看出有很多点极值太大，需要在CAD中修改，但同时也要观察Excel中得坐标数值。

实例中后加入了梧叶沙沙的思路将CAD程序放入了Excel窗口。http://club.excelhome.net/forum.php?mod=viewthread&tid=1546864&extra=page%3D1%26filter%3Dtypeid%26typeid%3D12

此实例暂时不做讲解，等遇到实例中的知识再回来解释。
实例1.rar (41.36 KB, 下载次数: 223)

2020-7-15 19:10 上传

点击文件名下载附件

四月星空

905738810 发表于 2020-7-15 19:10
枯燥的代码怕大家看的太困，发一个实例，分享给贴友们。
客户要求1：根据Excel里的点数据画出折线图。

实例好像，没有对应的宏哦

sunny_8848

谢谢楼主分享