用VB6进行Autocad的二次开发(原创)

landsat99

经典的vb6，，不支持64位  

永远的痛。。。

henu19

长见识了，感谢楼主的分享。

henu19

zzyong00 发表于 2014-10-25 22:57
2、坐标标注
坐标标注本身很简单，类似的工具满天飞，我这里也贴一个

感谢楼主分享

henu19

zzyong00 发表于 2014-10-25 22:57
2、坐标标注
坐标标注本身很简单，类似的工具满天飞，我这里也贴一个

感谢无私分享

Source_Liu

好东西，其它语言也可以参考。可惜微软逐渐放弃VB6了

楚河

先mark以下，后面来学习

yealor

膜拜大神，更感谢这种奉献精神，感谢感谢

batty

基础小白，学习中

tl319

Private Sub Class_Initialize()
    '根据AutoCAD的版本判断使用的库类型
    If Left(ThisDrawing.Application.Version, 2) = "17" Then   ******这里调试出错 "实时错误'424'"
        Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.17")
    ElseIf Left(ThisDrawing.Application.Version, 2) = "16" Then
        'Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.16") ''原来是这样的
        Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application." & Left(ThisDrawing.Application.Version, 2))
    End If
    Set VLF = VL.ActiveDocument.Functions
End Sub
在WIN7,CAD2008环境下进行调试，无法实现，出现 “实时错误'424'”，请问问题出在哪里？
问题已解决！

tl319

tl319 发表于 2023-9-27 16:33
Private Sub Class_Initialize()
    '根据AutoCAD的版本判断使用的库类型
    If Left(ThisDrawing.Appl ...

稳定性不是很好，标个一公里就有BUG，老美不知咋想的，有功能又有限制!