如何把 VBA 中的 ThisDrawing 作为参数传递给 VB(或DLL)中?

yzg_208 · 发表于 2004-8-13 11:43:00

yzg_208 · 发表于 2004-8-13 16:11:00

2楼的:
是我没说明白还是你不知道?

雪山飞狐_lzh · 发表于 2004-8-13 20:49:00

Dll里设置一个属性Document
在VBA里按下列方法调用
dim a as new class
set a.document=thisdrawing
......

yzg_208 · 发表于 2004-8-15 17:45:00

还是不太明白,能给段具体的代码吗?

雪山飞狐_lzh · 发表于 2004-8-15 18:47:00

类模块：
Public ACadDoc as Object
public sub addPoint(pnt As Variant)
ACadDoc.addPoint pnt
end sub
调用时
dim a as new class1
dim pnt(2) as Double
set a.ACadDoc=thisdrawing
a.addPoint pnt

suv70 · 发表于 2004-8-16 23:32:00

我是用数据库来完成这个过程,这样可以让数据批量处理,绘图更快,
这个网站出了一本好书,我也是从中学到的,就是autoCADVBA,开发精彩实例教程,当中有相当好的论述,
学了一个星期后,我就会用数据库来开发

yzg_208 · 发表于 2004-8-19 17:50:00

lzh741206: 多谢了!

如何把 VBA 中的 ThisDrawing 作为参数传递给 VB(或DLL)中?

发表回复

精选推荐