[原创]利用Excel的VBA控制AutoCAD

紫蝶儿菲菲

操练Excel，又能玩好AutoCAD的人实在难找吧？

!!!橄榄树

很好,看看http://club.excelhome.net/dispbbs.asp?boardid=2&replyid=121433&id=120716&page=1&skin=0&Star=2的12楼

!!!橄榄树

AutoCAD是风靡全球的绘图软件,是当代建造师的首选武器。但不是最好的专业绘图软件。

我的应用实例http://club.excelhome.net/viewthread.php?tid=143404&replyID=&skin=0

VLE

楼主演示的必须在CAD中使用，程序操纵的是CAD中的对象，和EXCEL没多大联系。

这个网站专门讨论CAD，楼主不会不知道吧？

http://WWW.MJTD.COM/

sunsoncheng

我不太会CAD，但我自以为关于CAXA的平面画图水平还好（立体图不行！）

与CAXA相连要如何做？

个人以为，对某部分而言，（平面图，并要从不同地方做原点，列出表格式的坐标图的方式），CAXA绝对比CAD好用！

黄玉宏

事实上，CAD可看作是Excel的高级绘图控件，其绘图功能是十分强大的，而且其自带了VBA，我们可以在Excel中读取数据或查询数据然后再将数据发送到CAD中进行绘图。亦可在CAD中直接读取Excel中数据，但该法不如前者，因CAD本身处理数据的功能太差。我就利用了Excel的强大的计算、查询及CAD的绘图功能自编了“多段线绘制公路横断面图”程序。两种软件的兼容性还是较好，值得学习。

黄玉宏

二○○六年七月十三日

feye

16楼的看法和我相同,能否让我欣赏一下你的程序,能否直接计算填挖方面积,包含常见的结构物带图。

 

 

 

 

 

 

[em39][em39][em39][em39][em39][em39][em39]

[em39][em39][em39][em39]

feye

赐教12楼的朋友：

设计人员提供给施工人员的<<横断面设计图>>中,对原地面线仅作了CAD图形,并未提供原始的记录相关数据,希望能从上千张CAD横断面图中提出每一个断面的原地面线数据存入EXCEL中,不要求人工选取地面线。

 

 

 

 

[em39][em39][em39][em39][em39][em39][em39] 

[em39][em39][em39][em39]

feye

LpMul函数

Public Function LpMul(ar() As Pointf, pp As Pointf) As Pointf()
    '给点表数组ar()的每一点坐标分别对应乘以PP点的坐标并返回新点表数组
    Dim i As Integer
    Dim lp() As Pointf
    m = UBound(ar)
    ReDim lp(m)
    For i = 0 To m
        lp(i).i = i
        lp(i).x = ar(i).x * pp.x
        lp(i).y = ar(i).y * pp.y
    Next i
    LpMul = lp

End Function

feye

LpIns（）函数

Public Function LpIns(ar() As Pointf, pp As Pointf, n As Integer) As Pointf()
    '在点表数组ar()的n记录前插入一个点PP,并返回插入的数组,并不修改ar()
    Dim i As Integer, m As Integer, t As Integer
    Dim lp() As Pointf
    t = 0
    m = UBound(ar)
    ReDim lp(m + 1)
    For i = 0 To m
        If i = n Then
            lp(n) = pp: t = 1
        End If
        lp(i + t) = ar(i)
        lp(i + t).i = i + t
    Next i
    LpIns = lp
End Function