有几个问题希望高手进行讨论:
1。autocad 中增加用户路径
Public Sub addpath() Dim str1 As String Dim str2 As String Dim newSupportPath As String str1 = acadDoc.Application.Preferences.Files.SupportPath newSupportPath = str1 + Chr(13) + Chr(10) + ";d:\jmpunch" acadDoc.Application.Preferences.Files.SupportPath = newSupportPath End Sub 能不能实现autocad自动加载
2。 用vb 做dll 在运行中注册
regsvr32 d:\uu\wydll.dll
能不能实现autocad自动注册
Declare Sub ZDS_HXJ Lib "d:\jmpunch\baoji.dll" ()
如何找到dll的类
|