这个cad类模块移植到浩辰cad2025中怎么改
Private Sub Class_Initialize()
Dim AcadVersion As Integer
With ThisDrawing.Application
AcadVersion = Val(Left(.Version, 2))
'根据AutoCAD的版本判断使用的VL库类型
Select Case AcadVersion
Case Is = 15
Set VL = .GetInterfaceObject("VL.Application.1")
Case Is >= 16
Set VL = .GetInterfaceObject("VL.Application.16")
End Select
End With
Set VLF = VL.ActiveDocument.Functions
End Sub
Dim AcadVersion As Integer
With ThisDrawing.Application
AcadVersion = Val(Left(.Version, 2))
'根据AutoCAD的版本判断使用的VL库类型
Select Case AcadVersion
Case Is = 15
Set VL = .GetInterfaceObject("VL.Application.1")
Case Is >= 16
Set VL = .GetInterfaceObject("VL.Application.16")
End Select
End With
Set VLF = VL.ActiveDocument.Functions
End Sub
没有找到相关结果
已邀请:
1 个回复
CAD小苏 - 专注所以信赖！
赞同来自:
这个估计和Visual LISP有关，Visual LISP目前应该是ACAD独有的，这个可能要看您具体需要实现什么功能，我们看下是否可以帮您绕过！