实用小工具箱更新版
我的实用小具箱更新版啊。这两天有空，又写了一两个小功能。 也许不是很合全部人的味口。
重口味的朋友可绕道了。
不多说，先来图吧。
首先申明我不是高手，因为你找高手要东西可是数money的。
附上附件吧。
这个代码，加一个工具进去，要修改的地方比较多，不太好用。 你的工具箱网页跳出来乱七八糟的网页，你不看下吗 收藏起来学习下！谢谢楼主了！ 自已顶一个吧。 支持你这样的小工具！ 可否公开原代码？ 上面的朋友，这种小工具网上真的是大把有，并且已开源，而我写这个小工具的目的是用来鞭策自已，代码写的非常之乱，不敢拿出来献丑。呵呵。 ; 错误: 发生未知意外
; 警告: 忽略展开 未知异常
呵呵DCL有问题。 还有情况，我这没有发现有。 楼主请问你这分类面板如何做的，能发个面板源码吗？8240891@qq.com谢谢 这个比较容易实现。
我将其原码贴出来吧。
文件名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{
label="特殊的字符(&O)";
key="T12";
width=8;
}
:button{
label="旋转字角度(&P)";
key="T13";
width=8;
}
:button{
label="合并文字";
key="T15";
width=8;
}
:button{
label="改文本高度";
key="T16";
width=8;
}
:button{
label="改文本内容";
key="T17";
width=8;
}
}
:column{
:boxed_column{
label="工具类";
fixed_width=true;
:button{
label="记事本";
key="T111";
}
:button{
label="画图板";
key="T112";
width=8;
}
:button{
label="计算器";
key="T113";
width=8;
}
:button{
label="Dos命令行";
key="T114";
width=8;
}
:button{
label="注册表编辑";
key="T115";
width=8;
}
:button{
label="IE浏览器";
key="T116";
width=8;
}
}
:boxed_column{
label="修改类";
:button{
label="线段加夹点";
key="T201";
width=8;
}
:button{
label="填充生边界";
key="T202";
width=8;
}
:button{
label="绘弧圆形心";
key="T203";
width=8;
}
:button{
label="属值同属名";
key="T204";
width=8;
}
:button{
label="Z轴归0";
key="T205";
width=8;
}
:button{
label="改圆弧半径";
key="T206";
width=8;
}
:button{
label="圆弧半径刷";
key="T207";
width=8;
}
:button{
label="弧转圆对象";
key="T208";
width=8;
}
:button{
label="对象转云线";
key="T209";
width=8;
}
:button{
label="改对象颜色";
key="T210";
width=8;
}
:button{
label="改对象宽度";
key="T211";
width=8;
}
:button{
label="刷对象宽度";
key="T212";
width=8;
}
}
}
:column{
:boxed_column{
label="修改类";
alignment=top;
:button{
label="块原位缩放";
key="T213";
width=8;
}
:button{
label="对象置顶底";
key="T215";
width=8;
}
:button{
label="等分线";
key="T216";
width=8;
}
:button{
label="标注解关联";
key="T217";
width=8;
}
:button{
label="标注字归位";
key="T218";
width=8;
}
}
:boxed_column{
label="绘制类";
alignment=top;
:button{
label="绘制表格";
key="T301";
width=8;
}
:button{
label="绘制五角星";
key="T302";
width=8;
}
:button{
label="绘剖断线";
key="T303";
width=8;
}
:button{
label="矩形速填充";
key="T304";
width=8;
}
}
:boxed_column{
label="建筑结构类";
:button{
fixed_width=true;
label="SATWE梁配筋";
key="T1001";
width=8;
}
:button{
fixed_width=true;
label="SATWE梁截面";
key="T1002";
width=8;
}
:button{
fixed_width=true;
label="配筋转面积";
key="T1003";
width=8;
}
:button{
fixed_width=true;
label="筛梁配筋率";
key="T1004";
width=8;
}
}
:boxed_column{
label="关于";
fixed_width=true;
alignment=centered;
:button{label="建承主页(&U)";is_default = true;key="HH_web";width=8;fixed_width=true;}
:button{label=" 帮助(&V) ";key="accept";width=8;fixed_width=true;}
:button{label=" 退出(&X) ";is_cancel=true; key="cancel"; width=8;fixed_width=true;}
}
}
}
}
JBox.lsp
;;;建承CAD工具箱
(Defun ErrorJBox(msg)
(prin1)
)
(prin1)
(setq MY_HH (princ "\n输入\"JBox\"或\"JJ\"启动建承CAD工具箱!"))
(Defun HHWebGo(/ IE)
(setq IE (Vlax-Get-Or-Create-Object "InternetExplorer.Application"))
(Vlax-Put-PropertyIE 'Visible '1 )
(Vlax-Put-PropertyIE 'Silent '1 )
(Vlax-Invoke-Method IE 'Navigate "www.webapj.com")
(vlax-release-object IE)
)
(HHWebGo)
(Defun C:JBox()
(setvar "Cmdecho" 0)
(setq *error* ErrorJBox)
(princ "\n建承CAD工具箱，欢迎使用!\n")
(setq MyDcl (load_dialog "JBox.Dcl"))
(if (null (new_dialog "JBox" MyDcl)) (exit))
;;;文字类
(action_tile "T1" "(done_dialog 1)")
(action_tile "T2" "(done_dialog 2)")
(action_tile "T3" "(done_dialog 3)")
(action_tile "T4" "(done_dialog 4)")
(action_tile "T5" "(done_dialog 5)")
(action_tile "T6" "(done_dialog 6)")
(action_tile "T7" "(done_dialog 7)")
(action_tile "T8" "(done_dialog 8)")
(action_tile "T9" "(done_dialog 9)")
(action_tile "T10" "(done_dialog 10)")
(action_tile "T11" "(done_dialog 11)")
(action_tile "T12" "(done_dialog 12)")
(action_tile "T13" "(done_dialog 13)")
(action_tile "T15" "(done_dialog 15)")
(action_tile "T16" "(done_dialog 16)")
(action_tile "T17" "(done_dialog 17)")
;;;图层类
(action_tile "T51" "(done_dialog 51)")
(action_tile "T52" "(done_dialog 52)")
(action_tile "T53" "(done_dialog 53)")
(action_tile "T54" "(done_dialog 54)")
(action_tile "T55" "(done_dialog 55)")
(action_tile "T56" "(done_dialog 56)")
(action_tile "T57" "(done_dialog 57)")
(action_tile "T58" "(done_dialog 58)")
(action_tile "T59" "(done_dialog 59)")
(action_tile "T60a" "(done_dialog 601)")
(action_tile "T60" "(done_dialog 60)")
(action_tile "T61" "(done_dialog 61)")
(action_tile "T62" "(done_dialog 62)")
(action_tile "T63" "(done_dialog 63)")
(action_tile "T65" "(done_dialog 65)")
(action_tile "T66" "(done_dialog 66)")
;;;工具类
(action_tile "T111" "(done_dialog 111)")
(action_tile "T112" "(done_dialog 112)")
(action_tile "T113" "(done_dialog 113)")
(action_tile "T114" "(done_dialog 114)")
(action_tile "T115" "(done_dialog 115)")
(action_tile "T116" "(done_dialog 116)")
;;;修改类
(action_tile "T201" "(done_dialog 201)")
(action_tile "T202" "(done_dialog 202)")
(action_tile "T203" "(done_dialog 203)")
(action_tile "T204" "(done_dialog 204)")
(action_tile "T205" "(done_dialog 205)")
(action_tile "T206" "(done_dialog 206)")
(action_tile "T207" "(done_dialog 207)")
(action_tile "T208" "(done_dialog 208)")
(action_tile "T209" "(done_dialog 209)")
(action_tile "T210" "(done_dialog 210)")
(action_tile "T211" "(done_dialog 211)")
(action_tile "T212" "(done_dialog 212)")
(action_tile "T213" "(done_dialog 213)")
(action_tile "T215" "(done_dialog 215)")
(action_tile "T216" "(done_dialog 216)")
(action_tile "T217" "(done_dialog 217)")
(action_tile "T218" "(done_dialog 218)")
;;;绘制类
(action_tile "T301" "(done_dialog 301)")
(action_tile "T302" "(done_dialog 302)")
(action_tile "T303" "(done_dialog 303)")
(action_tile "T304" "(done_dialog 304)")
;;;结构类
(action_tile "T1001" "(done_dialog 1001)")
(action_tile "T1002" "(done_dialog 1002)")
(action_tile "T1003" "(done_dialog 1003)")
(action_tile "T1004" "(done_dialog 1004)")
(action_tile "accept" "(done_dialog 100)")
(action_tile "HH_web" "(done_dialog 101)")
(setq MyHH (start_dialog))
(cond
((= MyHH 100) (HHHelp))
((= MyHH 101) (HHWebGo))
((= MyHH 1) (C:LTX))
((= MyHH 2) (C:UTX))
((= MyHH 3) (C:CTX))
((= MyHH 4) (C:UCT))
((= MyHH 5) (C:RRT))
((= MyHH 6) (C:TxtHZ))
((= MyHH 7) (C:NTC))
((= MyHH 8) (C:TDC))
((= MyHH 9) (C:UL))
((= MyHH 10) (C:DTX))
((= MyHH 11) (C:TXF))
((= MyHH 12) (C:TSZ))
((= MyHH 13) (C:AGT))
((= MyHH 15) (C:HBT))
((= MyHH 16) (C:CHT))
((= MyHH 17) (C:CHG))
((= MyHH 51) (C:LL0))
((= MyHH 52) (C:LL1))
((= MyHH 53) (C:LL2))
((= MyHH 54) (C:LL3))
((= MyHH 55) (C:LL4))
((= MyHH 56) (C:LL5))
((= MyHH 57) (C:LL6))
((= MyHH 58) (C:LL7))
((= MyHH 59) (C:LL8))
((= MyHH 601) (C:LL9a))
((= MyHH 60) (C:LL9))
((= MyHH 61) (C:LL10))
((= MyHH 62) (C:LL11))
((= MyHH 63) (C:LL12))
((= MyHH 65) (C:LL13))
((= MyHH 66) (C:LL15))
((= MyHH 111) (C:TT1))
((= MyHH 112) (C:TT2))
((= MyHH 113) (C:TT3))
((= MyHH 114) (C:TT4))
((= MyHH 115) (C:TT5))
((= MyHH 116) (C:TT6))
((= MyHH 201) (C:JAD))
((= MyHH 202) (C:CRB))
((= MyHH 203) (C:DOT))
((= MyHH 204) (C:Deft))
((= MyHH 205) (C:ZQ))
((= MyHH 206) (C:CRC))
((= MyHH 207) (C:RRC))
((= MyHH 208) (C:AZC))
((= MyHH 209) (C:CHC))
((= MyHH 210) (C:CCL))
((= MyHH 211) (C:CHW))
((= MyHH 212) (C:RRW))
((= MyHH 213) (C:BSC))
((= MyHH 215) (C:DRO))
((= MyHH 216) (C:DVB))
((= MyHH 217) (C:DUA))
((= MyHH 218) (C:DHM))
((= MyHH 301) (C:DTB))
((= MyHH 302) (C:WJX))
((= MyHH 303) (C:BKL))
((= MyHH 304) (C:RCH))
((= MyHH 1001) (C:RFD))
((= MyHH 1002) (C:RFP))
((= MyHH 1003) (C:Bta))
((= MyHH 1004) (C:PJL))
)
(unload_dialog MyDcl)
(prin1)
)
(Defun C:JJ()
(C:JBox)
)
(Defun HHhelp()
(command "._TextScr")
(princ
"建承CAD工具箱V1.0版：\n
LTX 文字转大写\n
UTX 文字转小写\n
CTX 文字加括号\n
UTX 文字减括号\n
RRT 文字内容刷\n
TxtHZ文字前后辍\n
NTC 数字转中文\n
TDC 文字加括号\n
UL 文字下划线\n
DTX 清除空文字\n
TXF 文字相互换\n
TSZ 特殊的字符\n
AGT 旋转字角度\n
HBT 合并文字\n
CHT 改文本高度\n
\n
LL0 当前层置0 \n
LL1 图层全打开\n
LL2 图层全解锁\n
LL3 图层全解冻\n
LL4 图层全关闭\n
LL5 关单个图层\n
LL6 关多个图层\n
LL7 图层锁定\n
LL8 图层解锁\n
LL9a 冻结单个层\n
LL9 冻结多个层\n
LL10 置入当前层\n
LL11 设置当前层\n
LL12 关闭其它层\n
LL13 冻结其它层\n
LL15 对象随图层\n
\n
TT1 记事本\n
TT2 画图板\n
TT3 记算器\n
TT4 Dos命令行\n
TT5 注册表编辑\n
TT6 IE浏览器\n
\n
Jad 线段加夹点\n
CRB 填充生边界\n
DOT 绘弧圆形心\n
Deft 属性转文本\n
ZQ Z轴归0\n
CRC 改圆弧半径\n
RRC 圆弧半径刷\n
AZC 弧转圆对象\n
CHC 对象转云线\n
CCL 改对象颜色\n
CHW 改对象宽度\n
RRW 刷对象宽度\n
BSC 块原位缩放\n
DRO 对象置顶底\n
DVB 等分线\n
DUA 标注解关联\n
DHM 标注字归位\n
\n
DTB 绘制表格\n
WJX 绘制五角星\n
BKL 绘剖断线\n
RCH 矩形速填充\n
\n
RFD SATWE梁配筋\n
RFP SATWE梁截面\n
BTA 配筋转面积\n
PJL 筛梁配筋率\n
www.webapj.com\n
QQ:329049205\n
")
)
(Defun HHRunTool(str)
(setq Run (Vlax-Get-Or-Create-Object "WScript.Shell"))
(Vlax-Invoke-Method Run 'Exec str)
(vlax-release-object Run)
)
(Defun C:TT1()
(setq str "NotePad")
(HHRunTool str)
(prin1)
)
(Defun C:TT2()
(setq str "mspaint")
(HHRunTool str)
(prin1)
)
(Defun C:TT3()
(setq str "calc")
(HHRunTool str)
(prin1)
)
(Defun C:TT4()
(startapp "cmd.exe" "%Comspec%")
(prin1)
)
(Defun C:TT5()
(setq str "Regedit")
(HHRunTool str)
(prin1)
)
(Defun C:TT6()
(setq IE (Vlax-Get-Or-Create-Object "InternetExplorer.Application"))
(Vlax-Put-PropertyIE 'Visible '1 )
(Vlax-Put-PropertyIE 'Silent '1 )
(Vlax-Invoke-Method IE 'Navigate)
(vlax-release-object IE)
) 代码有些长。一个Jbox.dcl , 一个是Jbox.lsp