用VB6.0代码加载fas或vlx文件

sunny_8848

如题，请问怎样用VB6.0代码加载fas或vlx文件？

satan421

为什么是VB6.0?
你说的是VBS脚本还是什么?
你说的加载是让fas或vlx文件随CAD自动加载，还是用的时候加载?

sunny_8848

satan421 发表于 2019-9-17 12:53
为什么是VB6.0?
你说的是VBS脚本还是什么?
你说的加载是让fas或vlx文件随CAD自动加载，还是用的时候加载?

谢谢关注。我说的VB是Microsoft Visual Basic 6.0 中文版。(LOAD"C:/资料夹(自定)/XXX")       可以这样加载LSP文件，不知道是否有类似的方法，在需要使用时不必打开对话框就可以加载fas或vlx文件

Kye

sunny_8848 发表于 2019-9-17 13:13
谢谢关注。我说的VB是Microsoft Visual Basic 6.0 中文版。(LOAD"C:/资料夹(自定)/XXX")       可以这样 ...

   dim  acadapp As Object
   dim  Thisdrawing As Object
    Set acadapp = GetObject(, "AutoCAD.Application")
    If Err Then
        Err.Clear
        Set acadapp = CreateObject("AutoCAD.Application")
        If Err Then
            MsgBox Err.Description
            End
            Exit Sub
        End If
    End If
    acadapp.Visible = True
Set Thisdrawing = acadapp.ActiveDocument


Thisdrawing.SendCommand ("(setq  folderlst nil)" & vbCr) ' 将(setq  folderlst nil) 改为(LOAD"C:/资料夹(自定)/XXX")  就可以了'lisp 冒号 " =  vb中 "& """"&"      最后vb中的冒号后再加个& vbCr

sunny_8848

Kye 发表于 2019-9-17 20:04
dim  acadapp As Object
   dim  Thisdrawing As Object
    Set acadapp = GetObject(, "AutoCAD ...

非常感谢帮忙，效果很好。