langjs
发表于 2009-3-7 23:42:00
[原创]工具刷合集
本帖最后由 作者 于 2009-3-9 13:56:37 编辑 <br /><br /> <p>《工具刷合集》</p><p><font color="#ff0066">根据网友建议加入减法运算</font><br/>版本：V1.1 <br/>自由软件，欢迎转载<br/>作者：国电南自 郎建山</p><p>使用方法：将文件全部拷贝到CAD安装目录下，在AUTOCADCAD中，"工具"——“加载应用程序”加载“gjs.lsp”，并将“gjs.lsp”添加到“启动组”的内容里。<br/>命令栏输入“menuload”,“菜单组”浏览“gjs.mnu”加载，在“菜单栏”将“工具刷”插入。</p><p>[加一刷]<br/>命令：jy<br/>功能：选一源文本，后续选择的文本依次刷为末尾加1，支持源文本中夹杂字符型式</p><p>[相同刷]<br/>命令：xt<br/>功能：选一源文本，后续选择的文本全部刷为源文本（第一个选择的文本）内容。</p><p>[同变刷]<br/>命令：tb<br/>功能：将选择的多个数字或者尺寸值刷为加上或减去相同的一个数。</p><p>[线宽刷]<br/>命令：xk<br/>功能：将目标线刷成源线的宽度，该功能从网上下载的，非本人原创。</p><p><br/>[计算刷]<br/>命令：js<br/></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">功能：</p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">将某个数刷成前两个数的和。</p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">将某个数刷成前两个数的积。</p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">将某个数刷成前两个数的差。</p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">将某个数刷成前两个数的商。</p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">将某个数刷成前多个数的和。</p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">将某个数刷成前多个数的积。</p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">将某个数刷成前多个数的差。将某个数刷成前多个数的商。</p>
海盗曹
发表于 2019-4-18 10:15:55
MARK一下，以备学习
dbx511
发表于 2009-3-8 14:19:00
好东西,就是美中不足,计算刷,不能算减法的.
bonnyxie
发表于 2009-3-8 16:35:00
<p>好贴啊！！</p>
dinosaurhxe2
发表于 2009-3-8 23:01:00
不错，支持。
dbx511
发表于 2009-3-10 08:50:00
不好意思,其实应该是除法也是需要加进去的,谢谢老大这么好!
小神仙
发表于 2009-3-11 12:28:00
<p>好东西，下了</p>
梁旭武
发表于 2009-3-11 23:17:00
<p>好东东!下载先!大侠,我想问一下,LISP我也会一点,自己也编有一些小程序,只是不懂怎么样才能像你那样可以把它放在CAD菜单工具条那里!忠心请教楼主指点一二!</p>
langjs
发表于 2009-3-12 20:34:00
<p>***MENUGROUP=工具刷</p><p>***POP1<br/>[工具刷]</p><p>[--]<br/>[加一刷]^C^Cjy<br/>[相同刷]^C^Cxt<br/>[同变刷]^C^Ctb<br/>[线宽刷]^C^Cxk<br/>[计算刷]^C^Cjs<br/>[--]<br/>[软件信息]^C^Cjg<br/>[--]</p><p>菜单的制作，将上面的信息拷贝到文本文中，将后缀名.txt更改为.mnu，就可以在cad中加载了。</p>
liyamg
发表于 2009-3-13 12:41:00
好东西,就是美中不足,计算刷,不能算减法的.
iamdjz
发表于 2009-3-13 19:12:00
谢谢。