如果我已经得到了句柄又怎样？？？

my_computer

在使用vb作的函数库中，如果我已经得到了我当前运行的acad的句柄，我又如何能将它转换为thisdrawng哪？


我现在只能直接将thisdrawing传入到vb中，大侠们你们怎么作的呀？

mccad

可以通过图形的.HWND 属性来判断其对应关系。

my_computer

其实过程是这样的：我使用vba作子程序，将子程序调好以后，将他们复制到vb的一个类模块中，因为在vb的环境中，没有thisdrawing所以子程序中不能含有thisdrawing。如果一定要使用他，可以作为参数传进来。可是由于子程序比较多，每次使用时都将他作为参数来传递，实在有点（!????)。所以我决定使用vb中的api函数直接得到当前正在运行的acad，但是好像仅能得到句柄（我api的水平，还在用别人的程序来改成我的程序的阶段)。我目前的做法是在引用我的自定义函数时，将thisdrawing传入类模块，在类模块中将其设定为全局变量。但是这种方法，仍然感觉有些不妥。

mccad

用

1. Public ThisDrawing As AcadDocument
2. Set ThisDrawing = App.ActiveDocument

复制代码

my_computer

to:mccad


你说的语句应该是写在vba程序里面的吧！？


如果在vba中应该是application.ActiveDocument


我的目的是要在vb里面得到thisdrawing

evaporated

这个确实是写在vb里的。


对于文档级的事件，vba里反而不用写的。


你可以试试

fangjie008

<input type=text name="star" value="asfdasdf">>