lisp工具箱for中望_实用小工具箱更新版 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 工具箱,新版 - Powered by Discuz!...

这个比较容易实现。

我将其原码贴出来吧。

文件名JBox.dcl

JBox:dialog{

label="建承CAD工具箱V1.0版";

fixed_width=true;

:row{

:boxed_column{

fixed_width=true;

label="图层类";

:button{

label="当前层置0(&1)";

key="T51";

width=8;

}

:button{

label="图层全打开(&2)";

key="T52";

width=8;

}

:button{

label="图层全解锁(&3)";

key="T53";

width=8;

}

:button{

label="图层全解冻(&4)";

key="T54";

width=8;

}

:button{

label="图层全关闭(&5)";

key="T55";

width=8;

}

:button{

label="关单个图层(&6)";

key="T56";

width=8;

}

:button{

label="关多个图层(&7)";

key="T57";

width=8;

}

:button{

label="图层锁定  (&8)";

key="T58";

width=8;

}

:button{

label="图层解锁  (&9)";

key="T59";

width=8;

}

:button{

label="冻结单个层(&A)";

key="T60a";

width=8;

}

:button{

label="冻结多个层(&B)";

key="T60";

width=8;

}

:button{

label="置入当前层(&C)";

key="T61";

width=8;

}

:button{

label="设置当前层";

key="T62";

width=8;

}

:button{

label="关闭其它层";

key="T63";

width=8;

}

:button{

label="冻结其它层";

key="T65";

width=8;

}

:button{

label="对象随图层";

key="T66";

width=8;

}

}

:boxed_column{

label="文字类";

fixed_width=true;

:button{

label="文字转小写(&D)";

key="T1";

width=8;

}

:button{

label="文字转大写(&E)";

key="T2";

width=8;

}

:button{

label="文字加括号(&F)";

key="T3";

width=8;

}

:button{

label="文字减括号(&G)";

key="T4";

width=8;

}

:button{

label="文字内容刷(&H)";

key="T5";

width=8;

}

:button{

label="文字前后辍(&I)";

key="T6";

width=8;

}

:button{

label="数字转中文(&J)";

key="T7";

width=8;

}

:button{

label="文字加外圆(&K)";

key="T8";

width=8;

}

:button{

label="文字下划线(&L)";

key="T9";

width=8;

}

:button{

label="清除空文字(&M)";

key="T10";

width=8;

}

:button{

label="文字相互换(&N)";

key="T11";

width=8;

}

:button{

la