【推荐】everedit编辑器2.9绿色免安装版(另含六个脚本，G版的局部变量也利用上了)

wowan1314

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

2. '加载当前lsp到CAD
   
3. 
   
4. Dim STR , ARR
   
5.   SET ARR = WScript.Arguments
   
6.     For Each s1 In ARR
   
7.        STR = STR & " " & S1
   
8.     Next
   
9. Set objCAD = GetObject(, "AutoCAD.Application")
   
10. If Err Then '如果AutoCAD应用程序没有启动，进行下面的处理
    
11.     Err.Clear
    
12.     MsgBox " 未打开CAD程序:"
    
13.         Else
    
14.                 Set ThisDrawing = objCAD.activedocument
    
15.                 STR = replace (STR , "" ,"/")
    
16.                 ThisDrawing.SendCommand ("(load """ & STR & """)" & vbCr)
    
17.                 Set ARR = Nothing
    
18.                 Set STR = Nothing
    
19.                 Set ThisDrawing = Nothing
    
20.                 Set objCAD = Nothing
    
21. End If

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

2. '加载当前选中文本内容到CAD
   
3. Set objCAD = GetObject(, "AutoCAD.Application")
   
4. If Err  Then '如果AutoCAD应用程序没有启动，进行下面的处理
   
5.     Err.Clear
   
6.     MsgBox " 未打开CAD程序:"
   
7.         Else
   
8.                 Set ThisDrawing = objCAD.activedocument
   
9.                 Dim STR , ARR
   
10.                 SET ARR = WScript.Arguments
    
11.                 For Each s1 In ARR
    
12.                     STR = STR & " " & S1
    
13.                 Next
    
14.                 If STR="" Then
    
15.                 MsgBox " 当前未选中:"
    
16.                 Else
    
17.                 STR = TRIM(STR)
    
18.                 ThisDrawing.SendCommand ( STR & vbCr)
    
19.                 End If
    
20.                 Set ARR = Nothing
    
21.                 Set STR = Nothing
    
22.                 Set ThisDrawing = Nothing
    
23.                 Set objCAD = Nothing
    
24. End If

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

tianyi1230

强悍，顶起，谢谢楼主了

cre8or

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

lgttblue

楼主牛叉

819534890

函数列表控件在哪？

wowan1314

819534890 发表于 2013-7-10 23:44
函数列表控件在哪？

大纲视图     

USER2128

非常感谢老大的热心！

davide888

感谢分享   

ggdlove

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

陈亚娣

顶一个