[原创]工具刷合集

langjs

《工具刷合集》

根据网友建议加入减法运算
版本：V1.1
自由软件，欢迎转载
作者：国电南自 郎建山

使用方法：将文件全部拷贝到CAD安装目录下，在AutoCADCAD中，"工具"——“加载应用程序”加载“gjs.lsp”，并将“gjs.lsp”添加到“启动组”的内容里。
命令栏输入“menuload”,“菜单组”浏览“gjs.mnu”加载，在“菜单栏”将“工具刷”插入。

[加一刷]
命令：jy
功能：选一源文本，后续选择的文本依次刷为末尾加1，支持源文本中夹杂字符型式

[相同刷]
命令：xt
功能：选一源文本，后续选择的文本全部刷为源文本（第一个选择的文本）内容。

[同变刷]
命令：tb
功能：将选择的多个数字或者尺寸值刷为加上或减去相同的一个数。

[线宽刷]
命令：xk
功能：将目标线刷成源线的宽度，该功能从网上下载的，非本人原创。

[计算刷]
命令：js

功能：

将某个数刷成前两个数的和。

将某个数刷成前两个数的积。

将某个数刷成前两个数的差。

将某个数刷成前两个数的商。

将某个数刷成前多个数的和。

将某个数刷成前多个数的积。

将某个数刷成前多个数的差。将某个数刷成前多个数的商。

海盗曹

MARK一下，以备学习

dbx511

好东西,就是美中不足,计算刷,不能算减法的.

bonnyxie

好贴啊！！

dinosaurhxe2

不错，支持。

dbx511

不好意思,其实应该是除法也是需要加进去的,谢谢老大这么好!

小神仙

好东西，下了

梁旭武

好东东!下载先!大侠,我想问一下,LISP我也会一点,自己也编有一些小程序,只是不懂怎么样才能像你那样可以把它放在CAD菜单工具条那里!忠心请教楼主指点一二!

langjs

***MENUGROUP=工具刷

***POP1
[工具刷]

[--]
[加一刷]^C^Cjy
[相同刷]^C^Cxt
[同变刷]^C^Ctb
[线宽刷]^C^Cxk
[计算刷]^C^Cjs
[--]
[软件信息]^C^Cjg
[--]

菜单的制作，将上面的信息拷贝到文本文中，将后缀名.txt更改为.mnu，就可以在cad中加载了。

liyamg

好东西,就是美中不足,计算刷,不能算减法的.

iamdjz

谢谢。