wowan1314 发表于 2013-7-10 19:04:01

本帖最后由 wowan1314 于 2013-7-11 21:23 编辑

乱搞了两个脚本，一个是一键发送LSP到CAD，一个是一键发送当前选中文本到CAD。
脚本文件拷贝进记事本，扩展名改为VBS。加载的方法同猫分享的那个一样。
我搞的这个不会激活CAD至当前窗口（不是不想搞，是不会搞）。'加载当前lsp到CAD

Dim STR , ARR
SET ARR = WScript.Arguments
    For Each s1 In ARR
       STR = STR & " " & S1
    Next
Set objCAD = GetObject(, "AutoCAD.Application")
If Err Then '如果AutoCAD应用程序没有启动，进行下面的处理
    Err.Clear
    MsgBox " 未打开CAD程序:"
      Else
                Set ThisDrawing = objCAD.activedocument
                STR = replace (STR , "\" ,"/")
                ThisDrawing.SendCommand ("(load """ & STR & """)" & vbCr)
                Set ARR = Nothing
                Set STR = Nothing
                Set ThisDrawing = Nothing
                Set objCAD = Nothing
End If'加载当前选中文本内容到CAD
Set objCAD = GetObject(, "AutoCAD.Application")
If ErrThen '如果AutoCAD应用程序没有启动，进行下面的处理
    Err.Clear
    MsgBox " 未打开CAD程序:"
      Else
                Set ThisDrawing = objCAD.activedocument
                Dim STR , ARR
                SET ARR = WScript.Arguments
                For Each s1 In ARR
                  STR = STR & " " & S1
                Next
                If STR="" Then
                MsgBox " 当前未选中:"
                Else
                STR = TRIM(STR)
                ThisDrawing.SendCommand ( STR & vbCr)
                End If
                Set ARR = Nothing
                Set STR = Nothing
                Set ThisDrawing = Nothing
                Set objCAD = Nothing
End If

tianyi1230 发表于 2013-7-10 20:35:35

强悍，顶起，谢谢楼主了

cre8or 发表于 2013-7-10 22:18:00

挺好玩的 不过还是喜欢vlide 执行选定代码的功能

lgttblue 发表于 2013-7-10 22:51:25

楼主牛叉

819534890 发表于 2013-7-10 23:44:25

函数列表控件在哪？

wowan1314 发表于 2013-7-10 23:45:41

819534890 发表于 2013-7-10 23:44 static/image/common/back.gif
函数列表控件在哪？

大纲视图   

USER2128 发表于 2013-7-11 07:29:54

非常感谢老大的热心！

davide888 发表于 2013-7-11 09:36:52

感谢分享   

ggdlove 发表于 2013-7-11 10:09:22

楼主威武，也想找一个好用的编辑器啊，一直找不到。真是有点晕啊

陈亚娣 发表于 2013-7-11 17:18:43

顶一个
页: 1 [2] 3 4 5 6
查看完整版本: 【推荐】everedit编辑器2.9绿色免安装版(另含六个脚本，G版的局部变量也利用上了)