[求助]：关于cad开发

gjliang

斑竹你好，我想用vb开发一套关于自己专业的应用程序，通过vb计算后可以直接在cad出图的程序，可不知如何入手，请问斑竹能否给一些指点，谢谢了。

efan2000

考虑一下自己计算后的图形是什么样子，然后想清在CAD中怎么通过简单的各种线条和文字来表现这种图形。如果编程碰到什么问题，可以提出来，大家共同讨论，一起解决。

gjliang

一开始是写的计算程序，可我一想要是计算后直接就在cad里出图那就方便多了，下一步就是vb和cad的结合问题了，请问斑竹能否举一个通过在vb里计算三角形然后和和cad通信出图的例子让我参考一下，我想这会有些帮助。谢谢了，真是不相信在诺大的一个设计院里找不到人问这个问题，在网上却碰到efan2000这样无私而热心的技术高手，希望以后能经常得到您的指点，谢谢了！

efan2000

在明经通道 中有一个关于ActiveX和VBA开发人员手册的电子书，你可以先看看，它介绍了一些关于怎样用VBA开发CAD的知识。
计算出三角形，就相当于三个顶点的坐标已经确定了，那你就可以通过两点过线来作图了。具体的先看一下帮助文件中的例子。

indal

借花献佛，ActiveX和VBA开发人员手册我已传到图纸中心去了，不过没有更新

efan2000

你可以用一下下面的两个函数。
RetVal = AngleFromXAxis(Point1, Point2)
这个函数是返回两点之间与X轴的夹角，这样你就可以求解任意两条直线之间的夹角了。
RetVal = PolarPoint(Point, Angle, Distance)
这个函数是返回相对于一点，知道了与这点的角度（用上面的函数），以及长度，那么就可以知道这一点的位置了。
灵活运用这些函数，将为你的计算带来很大的方便，有些就不用手工计算了，直接让CAD来解决吧。

gjliang

我的意思是用vb来做应用程序，然后再和cad进行通信，可我不知道怎样实现这个步骤：就是在vb里做一个窗体，上面是有两个文本框是用来输入两条边的，然后让vb计算出第三条边，然后编译成可以和cad通信的应用程序，计算程序不成问题，请问能否详细的写以下由写程序到编译，在和cad通信之间的一些步骤吗？也许不能实现这个问题，但这只是我想的而已，开始我也想用vba来做的，可后来发现vba不能把程序编译成可以独立于cad外的应用程序，请斑竹指点一条明路，谢谢了！

lijiao

你最好熟悉以下VBA，VBA 能作到的，VB也能作到。
斑竹说得对，要先看书，一两句话说不清楚。

fjw_ok

最初由 gjliang 发布
[B]我的意思是用vb来做应用程序，然后再和cad进行通信，可我不知道怎样实现这个步骤：就是在vb里做一个窗体，上面是有两个文本框是用来输入两条边的，然后让vb计算出第三条边，然后编译成可以和cad通信的应用程序，计算... [/B]

在VB下调用CAD
你搜索以下论坛，例子多的不记其数

gjliang

对不起，请问能给出详细地址吗？我在本论坛里用关键字“VB下调用CAD”搜索，没有

fjw_ok

Public Function AcadOpen()
    '以下连接AutoCAD R14
    On Error Resume Next
    Set acadObj = GetObject(, "AutoCAD.Application")
    If Err Then
        Set acadObj = CreateObject("AutoCAD.Application")
        Err.Clear
    End If
    acadObj.Visible = True
End Function

gjliang

谢谢了，我已经找到了，我用的是cad2002。

风中的沙粒

老兄不是我说你，在什么都不了解的情况下，就闻别人
这习惯不好，至少你也做作准备工作，买本书看看，至少也看看
cad子代的帮助好不好，要是这样文下去，我看，还不如你受话快

gjliang

谢谢你了朋友，我已经写完了我的程序，挺好的，至少原来我半个月完成的工作，现在一小时就完成了，cad关于vba的帮助文件我读的很好，但我认为学习并不是从头开始，要是那样，来这论坛还有什么用？真的很感谢efan等高手的指点，谢谢了！