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

chlh_jd

右键点击文件，点击“注册组件”提示“注册失败，可能缺少必要的支持库”，其他.dll文件可以成功注册；
我没有使用金山毒霸，只使用360安全卫士，关闭杀毒和防火墙后，仍然提示注册失败；
从原网站下载下来的dynwrapx.dll文件一样用不了

highflybird

如果注册失败的话，那应该创建不了。你再看看我前面的回帖。

chlh_jd

测试了，可以出现hello world消息框

chlh_jd

奇怪，明经帖子显示滞后，我还以为没回复成功，又发重复了

highflybird

那就奇怪了，为什么在CAD下运行不了呢？

chlh_jd

使用ACAD的VBA编辑器运行也可以

highflybird

用我以前的那个vlx可以吗？先反注册,regsvr32 /u dynwrapx.dll
再注册regsvr32   dynwrapx.dll

chlh_jd

是个

1. c:ysx-use-api

复制代码

吗？我试下

可以的，以前c:ysx-use-api可以正常运行

先反注册再注册还是不行

highflybird

1. 
   
2. ;;; Install DynamicWrapper
   
3. (defun C:InstallDynamicWrapperX (/ wrap name wsh oldVar)
   
4.   (if (null (setq wrap (vlax-create-object "DynamicWrapperX")))
   
5.     (progn
   
6.       ;;(setq name (vl-filename-mktemp "DynWrapX.dll"))
   
7.       ;;(WriteBinary name (vl-get-resource "DynWrapX"))
   
8.       (setq wsh (vlax-Create-Object "wscript.shell"))
   
9.       (vlax-invoke wsh 'Run (strcat "RegSvr32.exe /s " name))
   
10.       (setq oldVar (getvar "CMDECHO"))
    
11.       (setvar "CMDECHO" 0)
    
12.       (command "DELAY" "1000")
    
13.       (setvar "CMDECHO" oldVar)
    
14.       (vlax-release-object wsh)
    
15.       (setq wrap (vlax-create-object "DynamicWrapperX"))
    
16.       (if wrap
    
17. (progn
    
18.    (princ "\nRegistered DynamicWrapperX successfully!\n")
    
19.    wrap
    
20. )
    
21. (alert "\nFailed to register DynamicWrapperX!\n")
    
22.       )
    
23.     )
    
24.     (progn
    
25.       (princ "\nDynamicWrapperX has been registered!")
    
26.       wrap
    
27.     )
    
28.   )
    
29. )
    
30. ;; Install it...
    
31. (if (setq wrap (C:InstallDynamicWrapperX))
    
32.   (progn
    
33.     (vlax-release-object wrap)
    
34.     (setq wrap nil)
    
35.   )
    
36.   (princ)
    
37. )
    

<br /> ;;; Install DynamicWrapper<br /> (defun C:InstallDynamicWrapperX (/ wrap name wsh oldVar)<br />   (if (null (setq wrap (vlax-create-object "DynamicWrapperX")))<br />     (progn<br />       ;;(setq name (vl-filename-mktemp "DynWrapX.dll"))<br />       ;;(WriteBinary name (vl-get-resource "DynWrapX"))<br />       (setq wsh (vlax-Create-Object "wscript.shell"))<br />       (vlax-invoke wsh 'Run (strcat "RegSvr32.exe /s " name))<br />       (setq oldVar (getvar "CMDECHO"))<br />       (setvar "CMDECHO" 0)<br />       (command "DELAY" "1000")<br />       (setvar "CMDECHO" oldVar)<br />       (vlax-release-object wsh)<br />       (setq wrap (vlax-create-object "DynamicWrapperX"))<br />       (if wrap<br /> (progn<br />    (princ "\nRegistered DynamicWrapperX successfully!\n")<br />    wrap<br /> )<br /> (alert "\nFailed to register DynamicWrapperX!\n")<br />       ) <br />     )<br />     (progn<br />       (princ "\nDynamicWrapperX has been registered!")<br />       wrap<br />     )<br />   )<br /> )<br /> ;; Install it...<br /> (if (setq wrap (C:InstallDynamicWrapperX))<br />   (progn<br />     (vlax-release-object wrap)<br />     (setq wrap nil)<br />   )<br />   (princ)<br /> )<br />

chlh_jd

(setq wrap (vlax-create-object "DynamicWrapperX")这个语句返回VLA对象值为nil时
(null wrap) = nil
上面函数总是提示加载成功，实际没有加载成功