新手紧急求教1！！！！！！！！！

wensent

我现在要做一个CAD二次开发的设计，要求达到的效果大致是单击一个按钮，根据输入的不同的参数自动生成一个相应的CAD图形。
VB的部分我已完全做好，现在与CAD的连接我要用VBA作。请问编写相应的VBA程序是在VB中（引用CAD2002的aczd.tlb类型库的前提下）编写，还是在CAD的宏中的VB编辑器之中编写？？？？？？？ 另外，我是新手，希望高手帮忙和交流，我的qq：120664021 ，wensent。请高手留下qq好吗！！！！！我经常看L斑竹在坛上，L斑竹能否告诉我你的QQ，我有问题的话好请教兄弟！！！！！！！！！
谢谢！！！！！！！！！！！

雪山飞狐_lzh

在CAD的宏中的VB编辑器之中编写


不过VBA不需与CAD的连接，因为它只能存在于CAD中

wensent

那我怎样才能实现要求达到的效果大致是单击一个按钮，根据输入的不同的参数自动生成一个相应的CAD图形？？？？？？ 前提是CAD没有打开！！！！！

wensent

另外，哪位高手能留下QQ啊！！！！！发贴太慢！！！！！！！


L斑竹留下QQ啊！！！！！！！！！！！

雪山飞狐_lzh

VB也不能脱离AutoCad，下面是VB打开并获取AutoCad的Application对象的常用手段 Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then Set AcadApp = CreateObject("AutoCAD.Application")
AcadApp.Visible = True
不过学习这东西最好还是看帮助，有VB的底子学VBA不难

wensent

我知道在VB的环境下自动打开一个CAD，可是我在VB的环境下，对一个COMMAND1按钮的程序代码写下： Private Sub Command1_Click()
Dim acdApp As New AcadApplication
acdApp.Visible = True

Dim startPoint(0 To 2) As Double, endPoint(0 To 2) As Double
Dim LineObj As AcadLine
startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0
endPoint(0) = 30: endPoint(1) = 20: endPoint(2) = 0
Set LineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
End Sub 结果自动生成一个CAD窗口，并报错，大意是Set LineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)是没定义的？？？？？ 请问怎没拉？？？怎样自动打开CAD并画一条线啊！！！！？？？？？？

雪山飞狐_lzh

ThisDrawing当然未定义


用set ThisDrawing=acdApp.ActiveDocument再调用


Set LineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)

wensent

谢谢兄弟！！！！搞定了！！！！


恳请兄弟留下qq！！！！！！！！！我还有N个问题，慢慢钻研中，要请教兄弟！！！！！

雪山飞狐_lzh

你可以在3626255群里找到我

wensent

谢谢兄弟，我已经加了，提出申请，还没有得到回复！！！！