sunny_8848 发表于 2019-9-17 10:24:26

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

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

satan421 发表于 2019-9-17 12:53:44

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

sunny_8848 发表于 2019-9-17 13:13:56

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 发表于 2019-9-17 20:04:17

本帖最后由 Kye 于 2019-9-17 20:07 编辑

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

   dimacadapp As Object
   dimThisdrawing 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 ("(setqfolderlst nil)" & vbCr) ' 将(setqfolderlst nil) 改为(LOAD"C:/资料夹(自定)/XXX")就可以了'lisp 冒号 " =vb中 "& """"&"      最后vb中的冒号后再加个& vbCr

sunny_8848 发表于 2019-9-17 21:34:56

本帖最后由 sunny_8848 于 2019-9-17 22:15 编辑

Kye 发表于 2019-9-17 20:04
dimacadapp As Object
   dimThisdrawing As Object
    Set acadapp = GetObject(, "AutoCAD ...
非常感谢帮忙，效果很好。
页: [1]
查看完整版本: 用VB6.0代码加载fas或vlx文件