当前位置

使用VB将CAD中使用VBA编写的DVB文件封装成DLL

时间:2018-12-28 00:51:36 来源: 作者: 浏览:
摘要:目的:使用VB将CAD中使用VBA编写的DVB文件封装成DLL,保护自己的核心代码。步骤:  1、在VB中创建ActiveX DLL,并引用“AutoCAD 库(AutoCAD 2006 Type Library)&rdquo
关键字:CAD,VBA,VBA

  目的:使用VB将CAD中使用VBA编写的DVB文件封装成DLL,保护自己的核心代码

  步骤:

  1、在VB中创建ActiveX DLL,并引用“AutoCAD 库(AutoCAD 2006 Type Library)”

  2、将DVB中的代码(需要保护的)拷贝到VB代码区中,并将所有ThisDrawing全部替换为acadDoc

  3、在VB代码区输入如下代码:

  Dim acadApp As Object

  Dim acadDoc As Object

  Public Sub ChangeColor()

  Set acadApp = GetObject(, "AutoCAD.Application")

  Set acadDoc = acadApp.ActiveDocument

  acadApp.WindowState = acMax

  Call PinkTxtLwP 'PinkTxtLwp就是DVB中的过程(函数)

  End Sub

  4、在VB中,文件——生成**.dll文件

  5、返回VBA界面,引用刚才生成的DLL文件

  6、在VBA代码区中输入如下代码

  'ChangeColor为VB中新创建ActiveX Dll文件后类的名称

  '默认为Class1

  Dim ChgCor As New ChangeColor

  Public Sub TestChangeColor_Dll()

  ChgCor.ChangeColor

  End Sub

  7、OK,运行TestChangeColor_Dll即可,这样就保护了自己的核心代码。

发表评论 共有条评论
用户名:
密    码: 匿名发表(默认匿名发表)
内    容:
验证码:
如果提示“验证码不正确”,请点击验证码刷新一下,输入新的验证码后再提交。
评论列表(共有 条评论)
热点内容
微信扫一扫关注飞之梦