越飞越高讲堂（2）CAD的API编程指南(上)--DynamicWrapperX

highflybir

英文网站:
http://www.theswamp.org/index.php?topic=37453.0

wangph

这个网址要注册才能进去的

chlh_jd

请教版主，我已经将.dll文件复制指定文件夹，但创建VLA对象仍然提示错误“VLA-OBJCET nil”

2. 
   
3. 
   
4. (startapp (strcat "regsvr32.exe " (getenv "systemdrive")  "//windows//system32//dynwrapx.dll"))
   
5.   (setq *APP (vlax-get-acad-object))
   
6.   (setq *DOC (vla-get-ActiveDocument *APP))
   
7.   (setq hCAD (vla-get-hwnd *APP))
   
8.   (setq hDOC (vla-get-hwnd *DOC))
   
9.   (setq wrap (vlax-create-object "DynamicWrapperX"))
   

<br /> <br /> (startapp (strcat "regsvr32.exe " (getenv "systemdrive")  "//windows//system32//dynwrapx.dll"))<br />   (setq *APP (vlax-get-acad-object))<br />   (setq *DOC (vla-get-ActiveDocument *APP))<br />   (setq hCAD (vla-get-hwnd *APP))<br />   (setq hDOC (vla-get-hwnd *DOC))<br />   (setq wrap (vlax-create-object "DynamicWrapperX"))<br />

用DLL Export Viewer查看器查看后发现函数只有 5个函数
DLLCanUnloadNow
DLLGetClassObject
DllInstall
DllRegisterServer
DllUnregisterServer
是我安装运行错了吗？

highflybird

手动在dos状态下运行可以吗？
开始，运行 regsvr32 dynwrapx.dll 看成功了吗？

chlh_jd

在开始菜单里面运行成功，还是无法创建这个VLA对象，我用的ACAD2004不知道是不是ACAD版本太低的原因

chlh_jd

经过重新启动计算机后，在ACAD2004和ACAD2009测试仍然无法创建dynwrapX.dll的VLA对象，我用的系统是XP SP2(补丁升级为SP3)不知道哪里出错了

highflybird

呵呵，暂时不知道这个原因

highflybird

测试在其他语言呢？譬如VB,VBA,VBS里面看看有没有？

chlh_jd

其他语言，我基本不懂（只能略微看懂）,dynwrap.dll这个文件是系统自带的吗，还是额外加装的呢，金山毒霸网页说这是系统自带的..http://file.ijinshan.com/dll_dynwrap_dll.shtml
搜索了下，发现了可提供下载的地址http://www.script-coding.com/dynwrapx_eng.html不知道和您上传的是否一样?
使用下列语句也是提示一样的错误。

1. (vlax-Import-Type-Library
   
2.    :tlb-filename
   
3.    (strcat (getenv "systemdrive")  "//windows//system32//dynwrapx.dll")
   
4.    :methods-prefix
   
5.    "wm-"
   
6.    :properties-prefix
   
7.    "wp-"
   
8.    :constants-prefix
   
9.    "wc-"
   
10. )

复制代码

highflybird

回复 chlh_jd 的帖子

这个是额外加装的。不要相信金山毒霸这种弱智的软件。
看来可能是你的防火墙阻止。
把下面的代码抄入到txt文本文件，然后改扩展名为.vbs，再运行看看能出现hello,world的消息框吗？

1. 
   
2. Set DX = CreateObject("DynamicWrapperX")
   
3. With DX
   
4. .Register "user32.dll","MessageBox","i=lssl","r=l"
   
5. End With
   
6. DX.MessageBox  0,"Hello,World!","Test",0
   
7. Set DX = nothing
   
8. 
   

<br /> Set DX = CreateObject("DynamicWrapperX") <br /> With DX<br /> .Register "user32.dll","MessageBox","i=lssl","r=l"<br /> End With<br /> DX.MessageBox  0,"Hello,World!","Test",0<br /> Set DX = nothing<br /> <br />