henu19 发表于 2022-8-2 16:18:56

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

henu19 发表于 2022-8-3 13:26:23

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



感谢楼主分享

henu19 发表于 2022-8-3 13:30:36

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



感谢无私分享

Source_Liu 发表于 2022-9-24 22:05:47

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

楚河 发表于 2022-11-17 09:46:45

先mark以下，后面来学习

yealor 发表于 2022-12-23 21:29:09

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

batty 发表于 2023-2-20 19:19:23

基础小白，学习中

tl319 发表于 2023-9-27 16:33:02

本帖最后由 tl319 于 2023-9-28 13:44 编辑

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'”，请问问题出在哪里？{:1_1:}
问题已解决！

tl319 发表于 2023-10-13 17:02:40

本帖最后由 tl319 于 2023-10-20 08:18 编辑

tl319 发表于 2023-9-27 16:33
Private Sub Class_Initialize()
    '根据AutoCAD的版本判断使用的库类型
    If Left(ThisDrawing.Appl ...
稳定性不是很好，标个一公里就有BUG，老美不知咋想的，有功能又有限制!

fayadetudou 发表于 2023-10-18 10:03:56

这个也太牛叉了吧，哎
页: 10 11 12 13 14 15 16 17 18 19 [20] 21
查看完整版本: 用VB6进行Autocad的二次开发(原创)