明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 8692|回复: 35

实用小工具箱更新版

  [复制链接]
发表于 2013-1-23 12:18 | 显示全部楼层 |阅读模式
我的实用小具箱更新版啊。

这两天有空,又写了一两个小功能。 也许不是很合全部人的味口。
重口味的朋友可绕道了。

不多说,先来图吧。





首先申明我不是高手,因为你找高手要东西可是数money的。
附上附件吧。



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

强制广告插件  发表于 2013-1-23 14:09

评分

参与人数 1明经币 +2 收起 理由
crazylsp + 2 神马都是浮云

查看全部评分

发表于 2022-2-7 19:36 | 显示全部楼层
这个代码,加一个工具进去,要修改的地方比较多,不太好用。
发表于 2019-7-2 21:33 | 显示全部楼层
你的工具箱网页跳出来乱七八糟的网页,你不看下吗
发表于 2021-1-11 21:14 | 显示全部楼层
收藏起来学习下!谢谢楼主了!
 楼主| 发表于 2013-1-23 13:00 | 显示全部楼层
自已顶一个吧。
发表于 2013-1-23 13:13 | 显示全部楼层
支持你这样的小工具!
发表于 2013-1-23 13:42 | 显示全部楼层
可否公开原代码?
 楼主| 发表于 2013-1-23 14:14 | 显示全部楼层
上面的朋友,这种小工具网上真的是大把有,并且已开源,而我写这个小工具的目的是用来鞭策自已,代码写的非常之乱,不敢拿出来献丑。呵呵。
发表于 2013-1-23 14:34 | 显示全部楼层
; 错误: 发生未知意外
; 警告: 忽略展开 未知异常
呵呵DCL有问题。
 楼主| 发表于 2013-1-23 15:04 | 显示全部楼层
还有情况,我这没有发现有。
发表于 2013-1-24 13:13 | 显示全部楼层
楼主请问你这分类面板如何做的,能发个面板源码吗?8240891@qq.com谢谢
 楼主| 发表于 2013-1-24 16:31 | 显示全部楼层
这个比较容易实现。
我将其原码贴出来吧。
文件名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-Property  IE 'Visible '1 )  
  (Vlax-Put-Property  IE '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-Property  IE 'Visible '1 )  
  (Vlax-Put-Property  IE 'Silent '1 )
  (Vlax-Invoke-Method IE 'Navigate)
  (vlax-release-object IE)
)
 楼主| 发表于 2013-1-24 21:21 | 显示全部楼层
代码有些长。一个Jbox.dcl , 一个是Jbox.lsp
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-6-16 06:05 , Processed in 0.167893 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表