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

wowan1314

         xshrimp分享的everedit编辑器非常好用。   可以告别记事本了。
今天本人 又根据官网上的“陈海彬”分享的着色文件。 对其进行了整合。感觉蛮好的，特来分享。
主题被我搞成黑色背景的了。不喜欢的可自己在主题里面修改。
还录了几个宏进去，可在macro文件夹删除。

2.9版的编辑器，
    1、最新版的，可以自定义脚本、宏的快捷键。
     2、有的朋友想加入自定义函数。在语法文件中修改即可。

下面是6个脚本的介绍。VBS不了解。 脚本只是勉强能用。
1、一键加载当前lsp
2、一键加载当前选中代码
3、一键查询函数（根据当前函数 打开chm指定内容）
4、一键提取选中函数的局部变量至剪切板（感谢G版，因为你得先加载G版的提取局部变量程序）
5、一键选中括号及括号内容(无论光标在括号的什么位置均可以)
6、这个是别人分享的，拿来凑个数吧。 一键百度当前代码。
本来是想做个脚本借助VLISP编辑器 格式化代码的。不过打开vlisp编辑器后，vbs好像不怎么好使了。。。
有时候可以，有时候卡那里，有时候关错对象，
有时候没变化，大部分时候得手动点下CAD图标才可以（点其他图标没用）。彻底晕了

主要特色
   1、写左括号同时会出现右括号，光标在括号中
   2、函数实时补全, 对于CAD命令，及系统变量 也能实时补全。
           对于CAD命令  变量  应该先输入名称后写“”. 不然不会提示补全了。‘单引号下还是可以的。
   3、光标在括号边上 能亮显与之对应的括号。
   4、代码自动缩进，代码折叠。
   5、选中一行代码 输入左括号， 那么久会在 代码的左右两侧分别加上左右括号。
   6、快捷键C+/加单行注释，只有光标在此行，一键就可以把这一行注释掉，也可以一键还原。

这比记事本好用多了。 主要是实时补全函数、命令、变量。 括号亮显、输入。函数能自动变成小写。

感谢原着色文件作者： xshrimp  与   陈海彬

ctrl+/单行注释。ctrl+shift+/多行注释
有函数列表控件  ctrl+]括号匹配    ctrl+shift+]选择当前括号内容

待修改：1、如果能根据（/） 里面的全局与局部变量 把代码里面的变量也改成一个颜色，
                  那么那些变量没弄进（/）里面就一目了然了
               2、双击括号选中括号内的所有对象。(这个得靠作者)
               3、代码格式化及输出变量名。

wowan1314

EE作者准备专为alisp扩展几个功能。各位有什么好的建议？
1、无论光标在括号内的什么地方，一键选中所在括号及括号内容
2、格式化lisp代码，输出全局及局部变量名 （可参lisplink）
3、光标在括号处时双击选中括号及括号内容

这三个问题。 EE作者已经着手更新了。   期待下个版本吧。
这样一来EE应该算是目前lisp编辑，最好的编辑器了吧？
或者大家有建议可，直接去http://forum.everedit.net/viewforum.php?f=3官方论坛提议！

snsj

不错，LISP就缺这个东西

GFspringwillow

呵呵，好东西啊！

ww822

看着确实非常的实用！

GTJ116600

呵呵，看着确实挺好的，研究研究

zyhandw

非常不错，符合习惯，以后就用这个了，感谢楼主分享！:lol

st788796

试用了一下，智能提示不错，不过在Windows 7 32位，打开AutoCAD 2014的情况下，一键发送没有成功

pengfei2010

厉害 非常方便了 写程序

wowan1314

st788796 发表于 2013-7-10 18:09
试用了一下，智能提示不错，不过在Windows 7 32位，打开AutoCAD 2014的情况下，一键发送没有成功

我自己也做了个 一键发送的 脚本文件。。 也可以吧当前lisp发送至CAD。( 对VBS不了解，乱搞出来的。)

不过同猫的 相比 ，激活CAD至当前需要自定义CAD窗口标题的前缀部分。用法一样的。你再测试看看。下面的代码复制到记事本，后缀为vbs。 加载到自定义工具的默认里面。。 参数选 全路径 那个。。

2. '加载当前lsp到CAD
   
3. '注意CAD的窗口标题 固定的前缀部分要自行修改
   
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.                 Set ws = CreateObject("WScript.Shell")
    
16.                 ws.appactivate "AutoCAD" '此处改为窗口标题固定的前缀
    
17.                 Set WS = Nothing
    
18.                 STR = replace (STR , "" ,"/")
    
19.                 ThisDrawing.SendCommand ("(load """ & STR & """)" & vbCr)
    
20.                 Set ARR = Nothing
    
21.                 Set STR = Nothing
    
22.                 Set ThisDrawing = Nothing
    
23.                 Set objCAD = Nothing
    
24. End If

'加载当前lsp到CAD<br /> '注意CAD的窗口标题 固定的前缀部分要自行修改<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 />                 Set ws = CreateObject("WScript.Shell")<br />                 ws.appactivate "AutoCAD" '此处改为窗口标题固定的前缀<br />                 Set WS = Nothing<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

下面这个是加载当前选中内容发送到CAD的VBS脚本，
下面这个还是有点问题的。 对于带双引号的内容，无法显示双引号

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

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

HLCAD

非常感谢老大的热心！

CadPLus

好东西，谢谢，试一试。可惜颜色与我习惯不一样。

newer

葛老出品必属精品，顶一个。

sicky111

我也试试，谢谢兄弟分享。

zbwei120

下载试试，以后编程应该方便多了。

NET-JOB

everedit2.9(1).zIP 压缩包坏了