关于VB对CAD二次开发的一个小问题

首先是引用了CAD的，然后也声明了CAD对象
我在模块中这样写的：
Public Sub Back_Point (ByRef Arr() as double)
Dim Pointobj as Acadpoint '声明点对象

set PointObj = Acadapp.AvtiveDocument.Modelspace.Addpoint(Arr) '创建点
Acadapp.ActiveDocument.SetVariable "PDMODE", 32 '设置点样式
Acadapp.Zble "PDSIZE", 0.1 '设置点大小
Acadapp.ActiveDocument.SetVariate Acadapp.Caption 'CAD获取焦点
Acadapp.ZoomExtents '极限放大

End sub

然后我在窗口的一个按钮控件中这样写，数组中所包含的值都有

Call Pointobj (Location())

结果是传递参数没问题就是在Set的时候提示

我没有使用With语句。

举报该问题

推荐答案 2013-05-09

ä½ æ³å®ç°å¥åè½åï¼

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/sDi2snnni.html

相似回答

vb二次开发cad的选择集程序的问题,求高手帮忙解答一下答：Private Sub Command1_Click()On Error Resume Next Set acadApp = GetObject(, "AutoCAD.Application")If Err Then Err.Clear Set acadApp = CreateObject("AutoCAD.Application")End If Set acadDoc = acadApp.ActiveDocument Dim FType(0 To 1) As Integer Dim FData(0 To 1) As Variant FT...

用VB做AutoCAD二次开发,程序运行时出现实时错误424,要求对象!但是这个...答：可能是 Acaddoc 没定义吧 Public Acaddoc As AcadApplication Public ThisDrawing As AcadDocument

关于CAD基于VBA二次开发的问题答：这是在VB窗口中调用CAD模块(直接找答案不好找),你可以去找找这类书来看看,方法上,如果是有其它类似的;也可以用

请教VB二次开发CAD中插入多个单行文字操作答：你把单个文件添加的改成自定义过程，然后批量就是一个循环（不知道你的批量文件列表怎么产生的...），将一个一个文件通过自定义过程一个一个添加文字上去就行了。

请教VB二次开发CAD中插入多个单行文字操作!答：加一个循环就是了。但是要设一个循环退出机制。dim i as integer i=0 do i=i+1 。。。loop unitl i=3 上面的省略号前的可以写在 Dim returnPnt As Variant 下一行上面的省略号后的可以写在 End Sub 前一行

大家正在搜

Auto CAD VBA二次开发 CAD二次开发安装 CAD2014二次开发 CAD二次开发插件 cad用什么二次开发 cad二次开发用什么最好 cad二次开发入门 cad二次开发事务 cad二次开发编程