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

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

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

wyj7485 发表于 2004-8-13 13:43:00

<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=24476" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=24476</A>

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

多谢了!

<A name=43212><FONT color=#990000><B>lzh741206</B></FONT></A>: 多谢了!
页: [1]
查看完整版本: 如何把 VBA 中的 ThisDrawing 作为参数传递给 VB(或DLL)中?