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

yzg_208

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

wyj7485

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=24476

yzg_208

2楼的:


        是我没说明白还是你不知道?

雪山飞狐_lzh

Dll里设置一个属性Document


在VBA里按下列方法调用


dim a as new class


set a.document=thisdrawing


......

yzg_208

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

雪山飞狐_lzh

类模块：


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

我是用数据库来完成这个过程,这样可以让数据批量处理,绘图更快,


         这个网站出了一本好书,我也是从中学到的,就是autoCADVBA,开发精彩实例教程,当中有相当好的论述,


                 学了一个星期后,我就会用数据库来开发

yzg_208

lzh741206: 多谢了!