明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 839|回复: 0

[源码] 分享 -- 使用vbs语言加载 当前目录下的 lsp

[复制链接]
发表于 2019-1-19 22:07 | 显示全部楼层 |阅读模式
本帖最后由 1291500406 于 2019-1-19 22:11 编辑

Public Sub Setup()
    On Error Resume Next
    Set objCAD = GetObject(, "AutoCAD.Application")
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set ws = CreateObject("WScript.Shell")
    path = fs.GetParentFolderName(wsh.ScriptFullName)
    menuPath = path + "\Sys\zhl.mns"
    ws.RegWrite "HKEY_LOCAL_MACHINE\Software\ZHL_SOFT\" _
            & "zhlpath", path
    Err.Clear
    Set app = GetObject(, "autocad.Application")
    If app.Documents.Count = 0 Then
        app.Documents.Add
    End If
    If Err.Number <> 0 Then
        MsgBox "必强提示您,没有发现正在运行中的AutoCAD,请先启动AutoCAD软件!", vbInformation, "必强提示您,请先启动AutoCAD软件!"
        CreateObject ("SAPI.SpVoice").Speak"必强提示您,请先启动AutoCAD软件"
        wsh.quit
    End If
    Set mgrp = app.MenuGroups
    Err.Clear
    Set ThisDrawing = objCAD.activedocument
    path = replace (path , "\" ,"/")
    ThisDrawing.SendCommand ("(load """ & path & "/必强工具箱.lsp"")" & vbCr)
                CreateObject ("SAPI.SpVoice").Speak"必强工具箱成功加载,谢谢使用"
End Sub
Setup
"觉得好,就打赏"
还没有人打赏,支持一下
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 19:35 , Processed in 0.222172 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表