找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: XDSoft

[程序发布] (2024.01.21日更新)晓东工具箱(For ACAD2004-2024)提供下载

 火... [复制链接]
发表于 2016-4-17 15:12:00 | 显示全部楼层
XDSoft 发表于 2016-4-17 15:02
安装程序有BUG,等待新的安装包。
现在你可以用下面方法解决,拽工具箱安装目录SYS目录下的 xdrx.init.1 ...

可以了,多谢老大
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 264个

财富等级: 日进斗金

发表于 2016-4-17 16:51:01 | 显示全部楼层
菜单文件需要中 vlx 中 menuload 一次
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

 楼主| 发表于 2016-4-18 10:12:41 | 显示全部楼层
晓东工具箱2016.0418提供更新下载。下载0408版本的朋友请更新!,使用遇到问题请发帖,谢谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2016-4-18 10:25:55 | 显示全部楼层
支持一下。。很早就知道这个了,谢谢!      
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 464个

财富等级: 日进斗金

发表于 2016-4-19 09:04:13 | 显示全部楼层
本帖最后由 display18 于 2016-4-19 09:13 编辑

填充面积不能使用 填充面积.png
图层统计曲线不能生成表格
cad2007  
图层统计曲线.png

点评

图形统计长度那个对话框程序,生成表格的功能还没写完,等工具箱更新吧。  详情 回复 发表于 2016-4-19 12:33
填充面积的,把下面代码拷贝回去用,绘制表格还没写完。先看结果吧。 [attachimg]52941[/attachimg]  详情 回复 发表于 2016-4-19 12:26
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2016-4-19 12:13:27 | 显示全部楼层
关闭最后一个窗口还是会出错

点评

工具箱中常用菜单等使用的是反应器,怀疑这些常驻反应器有BUG  详情 回复 发表于 2016-4-19 12:21
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2016-4-19 12:17:16 | 显示全部楼层
本帖最后由 iceorcool 于 2016-4-19 12:27 编辑

关闭最后一个窗口还是会错误

点评

帮忙测试下,把工具箱SYS目录下的xdrx.lsp改名,然后启动工具箱,看看关闭最后一个窗口还退出不?  详情 回复 发表于 2016-4-19 12:32
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 593个

财富等级: 财运亨通

发表于 2016-4-19 12:21:45 来自手机 | 显示全部楼层
iceorcool 发表于 2016-4-19 12:13
关闭最后一个窗口还是会出错

工具箱中常用菜单等使用的是反应器,怀疑这些常驻反应器有BUG
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-4-19 12:26:11 | 显示全部楼层
display18 发表于 2016-4-19 09:04
填充面积不能使用
图层统计曲线不能生成表格
cad2007

填充面积的,把下面代码拷贝回去用,绘制表格还没写完。先看结果吧。

搜狗截图20160419122124.png

  1. (defun c:XDTB_HATCHAREA (/ c:CClose_OnClicked c:CheckAll_OnClicked
  2.                            c:TypeJS_OnSelChanged c:HatchJD_OnSelChanged
  3.                            HatchAreaForm_OnInitialize
  4.                         )
  5.   (defun $HatchArea_DataCJ ()
  6.     (setq s (getvar "date"))
  7.     (if (not $XDTB_HATCHAREA_TIME)
  8.       (progn
  9.         (setq $XDTB_HATCHAREA_TIME (* 86400.0 (- s (fix s))))
  10.         (setq Grid_DataALL ($get_Grid_Data layALL))
  11.       )
  12.       (progn
  13.         (if (> (- (* 86400.0 (- s (fix s))) $XDTB_HATCHAREA_TIME) 100)
  14.           (progn
  15.             (setq $XDTB_HATCHAREA_TIME (* 86400.0 (- s (fix s))))
  16.             (setq Grid_DataALL ($get_Grid_Data layALL))
  17.           )
  18.         )
  19.       )
  20.     )
  21.     (setq Grid_DataOn nil)
  22.     (foreach n layon
  23.       (if (setq val (assoc n Grid_DataALL))
  24.         (setq Grid_DataON (cons val Grid_DataOn))
  25.       )
  26.     )
  27.     (setq Grid_DataOn (reverse Grid_DataOn))
  28.   )
  29.   (defun c:HatchAreaForm_OnInitialize (/)
  30.     (setq layall ($xdob_layer_getalllayer)
  31.           layon ($xdob_layer_getallonlayer)
  32.     )
  33.     ($HatchArea_DataCJ)
  34.     (if (not $xdtb_global_hatcharea_var)
  35.       (setq $xdtb_global_hatcharea_var (list '("JSFS" 0) '("UNITS" 0) '
  36.                                              ("JD" 1) '("CHECKALL" 1) '
  37.                                              ("ZEROCHECKBOX" 0)
  38.                                        )
  39.       )
  40.     )
  41.     (setq JSFS (cadr (assoc "JSFS" $xdtb_global_hatcharea_var))
  42.           UNITS (cadr (assoc "UNITS" $xdtb_global_hatcharea_var))
  43.           JD (cadr (assoc "JD" $xdtb_global_hatcharea_var))
  44.           CHECKALLBOX (cadr (assoc "CHECKALL" $xdtb_global_hatcharea_var))
  45.           ZEROCHECKbox (cadr (assoc "ZEROCHECKBOX"
  46.                                     $xdtb_global_hatcharea_var
  47.                              )
  48.                        )
  49.     )
  50.     (cond
  51.       ((= UNITS 0)
  52.         (setq js_UNITS 1)
  53.       )
  54.       ((= UNITS 1)
  55.         (setq js_UNITS 10000)
  56.       )
  57.       ((= UNITS 2)
  58.         (setq js_UNITS 666.66667)
  59.       )
  60.     )
  61.     (dcl_Control_SetValue CheckAll CHECKALLBOX)
  62.     (dcl_OptionList_SetCurSel TypeJS JSFS)
  63.     (dcl_ComboBox_SetCurSel HatchJD JD)
  64.     (dcl_ComboBox_SetCurSel AREAUNITS UNITS)
  65.     (dcl_Control_SetValue ZEROCHECK ZEROCHECKbox)
  66.     (if (= JSFS 0)
  67.       (progn
  68.         (Grid_Display Grid_DataON)
  69.         (setq Grid_Curent_Items Grid_DataON)
  70.       )
  71.       (progn
  72.         (Grid_Display Grid_DataALL)
  73.         (setq Grid_Curent_Items Grid_DataALL)
  74.       )
  75.     )
  76.     (if (= (length Grid_DataAll) (length Grid_DataOn))
  77.       (progn
  78.         (dcl_OptionList_SetCurSel TypeJS 1)
  79.         (dcl_Control_SetEnabled TypeJS nil)
  80.       )
  81.     )
  82.   )
  83.   (defun Grid_Display (val)
  84.     (dcl_Grid_Clear HatchArea_Grid)
  85.     (setq i 1)
  86.     (setq TotalVal1 0)
  87.     (foreach n val
  88.       (if (= ZEROCHECKbox 1)
  89.         (progn
  90.           (if (/= (caddr n) 0.0)
  91.             (progn
  92.               (setq intRow (dcl_Grid_AddString HatchArea_Grid
  93.                                                (strcat (itoa i) "\t \t"
  94.                                                        (car n) "\t"
  95.                                                        (cadr n) "\t"
  96.                                                        (setq val1
  97.                                                              ($xdlsp_string_format
  98.                                                                                    (/
  99.                                                                                       (caddr n) js_UNITS
  100.                                                                                    ) JD
  101.                                                              )
  102.                                                        )
  103.                                                )
  104.                            )
  105.               )
  106.               (dcl_Grid_SetCellCheckState HatchArea_Grid intRow 1 1)
  107.               (setq TotalVal1 (+ TotalVal1 (atof val1)))
  108.               (setq i (1+ i))
  109.             )
  110.           )
  111.         )
  112.         (progn
  113.           (setq intRow (dcl_Grid_AddString HatchArea_Grid (strcat
  114.                                                                   (itoa i)
  115.                                                                   "\t \t"
  116.                                                                   (car n)
  117.                                                                   "\t"
  118.                                                                   (cadr n)
  119.                                                                   "\t"
  120.                                                                   (setq val1
  121.                                                                         ($xdlsp_string_format
  122.                                                                                               (/
  123.                                                                                                  (caddr n) js_UNITS
  124.                                                                                               ) JD
  125.                                                                         )
  126.                                                                   )
  127.                                                           )
  128.                        )
  129.           )
  130.           (dcl_Grid_SetCellCheckState HatchArea_Grid intRow 1 1)
  131.           (setq TotalVal1 (+ TotalVal1 (atof val1)))
  132.           (setq i (1+ i))
  133.         )
  134.       )                                       ;       (dcl_Grid_SetCurCell
  135.                                        ; HatchArea_Grid intRow -1)

  136.     )
  137.     (dcl_Control_SetCaption TotalVal ($xdlsp_string_format TotalVal1 JD))
  138.     (dcl_Control_SetCaption TotalUnit (dcl_ComboBox_GetEBText AREAUNITS))
  139.     (dcl_Control_SetFontBold TotalVal t)
  140.   )
  141.   (defun $get_Grid_Data (lay / carea datal e i n ss)
  142.     (acet-ui-progress "数据采集中" (length lay))
  143.     (setq l 0)
  144.     (foreach n lay
  145.       (acet-ui-progress l)
  146.       (if (setq ss (ssget "x" (list (cons 8 n) (cons 0 "HATCH"))))
  147.         (progn
  148.           (setq carea (car (xdrx_getarea ss))
  149.                 i (sslength ss)
  150.           )
  151.           (setq datal (cons (list n (itoa i) carea) datal))
  152.         )
  153.         (progn
  154.           (setq datal (cons (list n "0" 0.0) datal))
  155.         )
  156.       )
  157.       (setq l (1+ l))
  158.     )
  159.     (acet-ui-progress)
  160.     (setq datal (reverse datal))
  161.     (setq Grid_Curent_Items datal)
  162.   )
  163.   (defun c:ZeroCheck_OnClicked (Value /)
  164.     (setq ZEROCHECKbox value)
  165.     (setq UNITS (dcl_ComboBox_GetCurSel AREAUNITS))
  166.     (cond
  167.       ((= UNITS 0)
  168.         (setq js_UNITS 1)
  169.       )
  170.       ((= UNITS 1)
  171.         (setq js_UNITS 10000)
  172.       )
  173.       ((= UNITS 2)
  174.         (setq js_UNITS 666.66667)
  175.       )
  176.     )
  177.     (Grid_Display Grid_Curent_Items)
  178.   )
  179.   (defun c:AREAUNITS_OnSelChanged (ItemIndexOrCount Value /)
  180.     (setq UNITS (dcl_ComboBox_GetCurSel AREAUNITS))
  181.     (cond
  182.       ((= UNITS 0)
  183.         (setq js_UNITS 1)
  184.       )
  185.       ((= UNITS 1)
  186.         (setq js_UNITS 10000)
  187.       )
  188.       ((= UNITS 2)
  189.         (setq js_UNITS 666.66667)
  190.       )
  191.     )
  192.     (Grid_Display Grid_Curent_Items)
  193.   )
  194.   (defun c:HatchJD_OnSelChanged (ItemIndexOrCount Value /)
  195.     (setq jd ItemIndexOrCount)
  196.     (Grid_Display Grid_Curent_Items)
  197.   )
  198.   (defun c:TypeJS_OnSelChanged (ItemIndexOrCount Value /)
  199.     (if (= ItemIndexOrCount 1)
  200.       (progn
  201.         (Grid_Display Grid_DataALL)
  202.         (setq Grid_Curent_Items Grid_DataALL)
  203.       )
  204.       (progn
  205.         (Grid_Display Grid_DataOn)
  206.         (setq Grid_Curent_Items Grid_DataOn)
  207.       )
  208.     )
  209.   )
  210.   (defun c:CheckAll_OnClicked (Value /)
  211.     (dcl_MessageBox "To Do: code must be added to event handler\r\nc:CheckAll_OnClicked"
  212.                     "To do"
  213.     )
  214.   )
  215.   (defun c:CClose_OnClicked (/)
  216.     (setq $xdtb_global_hatcharea_var (list (list "JSFS"
  217.                                                  (dcl_OptionList_GetCurSel TypeJS)
  218.                                            ) (list "UNITS"
  219.                                                    (dcl_ComboBox_GetCurSel AREAUNITS)
  220.                                              ) (list "JD"
  221.                                                      (dcl_ComboBox_GetCurSel HatchJD)
  222.                                                ) (list "CHECKALL"
  223.                                                        (dcl_Control_GetValue CheckAll)
  224.                                                  ) (list "ZEROCHECKBOX"
  225.                                                          (dcl_Control_GetValue ZeroCheck)
  226.                                                    )
  227.                                      )
  228.     )
  229.     (dcl_Form_Close HatchAreaForm)
  230.   )
  231.   (defun c:DrawTable_OnClicked (/)
  232.     (setq $xdtb_global_hatcharea_var (list (list "JSFS"
  233.                                                  (dcl_OptionList_GetCurSel TypeJS)
  234.                                            ) (list "UNITS"
  235.                                                    (dcl_ComboBox_GetCurSel AREAUNITS)
  236.                                              ) (list "JD"
  237.                                                      (dcl_ComboBox_GetCurSel HatchJD)
  238.                                                ) (list "CHECKALL"
  239.                                                        (dcl_Control_GetValue CheckAll)
  240.                                                  ) (list "ZEROCHECKBOX"
  241.                                                          (dcl_Control_GetValue ZeroCheck)
  242.                                                    )
  243.                                      )
  244.     )
  245.     (dcl_Form_Close HatchAreaForm)
  246.   )

  247.   (xdrx_begin)
  248.   (xdrx_sysvar_push "osmode" "cmdecho")
  249.   (setvar "cmdecho" 0)
  250.   (setvar "osmode" 0)                       ; ($HatchArea_DataCJ)
  251.   (command "_opendcl")
  252.   (setq lxd (dcl_Project_Load (*ODCL:Samples:FindFile "XDOB_DCL.odcl")))
  253.   (dcl_Form_Show HatchAreaForm)
  254.   (xdrx_end)
  255.   (xdrx_sysvar_pop)
  256.   (princ)
  257. )



论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-4-19 12:32:03 | 显示全部楼层
iceorcool 发表于 2016-4-19 12:17
关闭最后一个窗口还是会错误

帮忙测试下,把工具箱SYS目录下的xdrx.lsp改名,然后启动工具箱,看看关闭最后一个窗口还退出不?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-4-19 12:33:27 | 显示全部楼层
display18 发表于 2016-4-19 09:04
填充面积不能使用
图层统计曲线不能生成表格
cad2007

图形统计长度那个对话框程序,生成表格的功能还没写完,等工具箱更新吧。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 85个

财富等级: 招财进宝

发表于 2016-4-19 17:48:53 | 显示全部楼层
2016晓东给大家最大的惊喜!晓东大神辛苦了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2016-4-20 21:19:19 | 显示全部楼层
为什么晓东工具箱有很多功能用不了,如敏感标高等

点评

请把菜单截图表明下,谢谢!  详情 回复 发表于 2016-4-20 22:39
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

 楼主| 发表于 2016-4-20 22:39:39 | 显示全部楼层
zzyong00@163.co 发表于 2016-4-20 21:19
为什么晓东工具箱有很多功能用不了,如敏感标高等

请把菜单截图表明下,谢谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2016-4-22 17:00:11 | 显示全部楼层
快捷菜单是不能保持关闭状态吗?关闭了以后,再打开CAD2008后这快捷菜单又自动出来了
66.jpg

点评

以后增加系统设置,开关状态保存。  详情 回复 发表于 2016-4-22 19:05
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-19 19:34 , Processed in 0.462983 second(s), 57 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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