excel vba代码控制CAD操作需要怎么写代码

zhaoyin 发布于 2022-11-01 20:07， 1460 次点击

只有本站会员才能查看附件，请登录

把下面这段代码复制到CAD中可以运行画线，但是代码在excel 中就指挥不动CAD，要怎么写？本人业余的菜鸟，哪位大神帮忙指导下该怎么写？
Dim pt1(0 To 2) As Double
    Dim pt2(0 To 2) As Double

    pt1(0) = 0
    pt1(1) = 0
    pt1(2) = 0
    pt2(0) = 1000: pt2(1) = 1000: pt2(2) = 0

   ThisDrawing.ModelSpace.AddLine pt1, pt2

3 回复

suzhanpeng2022-11-02 13:56

要先和CAD建立连接，确定操作的对象。

zhaoyin2022-11-02 19:24

回复 2楼 suzhanpeng

具体要怎么连接？

xiangyue05102022-11-10 22:32

首先在引用中添加CAD
Dim acadapp As AcadApplication
Set acadapp = GetObject(, "AutoCAD.Application")
后面的自己研究吧