（2024.05.23日更新）晓东工具箱（For ACAD2004-2025）提供下载

天若有情007 · 发表于 2016-4-17 15:12:00

XDSoft 发表于 2016-4-17 15:02
安装程序有BUG，等待新的安装包。
现在你可以用下面方法解决，拽工具箱安装目录SYS目录下的 xdrx.init.1 ...

可以了，多谢老大

iLisp · 发表于 2016-4-17 16:51:01

菜单文件需要中 vlx 中 menuload 一次

XDSoft · 发表于 2016-4-18 10:12:41

晓东工具箱2016.0418提供更新下载。下载0408版本的朋友请更新！，使用遇到问题请发帖，谢谢！

kenm41 · 发表于 2016-4-18 10:25:55

支持一下。。很早就知道这个了，谢谢！

display18 · 发表于 2016-4-19 09:04:13

本帖最后由 display18 于 2016-4-19 09:13 编辑

填充面积不能使用填充面积.png

图层统计曲线不能生成表格
cad2007
图层统计曲线.png

iceorcool · 发表于 2016-4-19 12:13:27

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

iceorcool · 发表于 2016-4-19 12:17:16

本帖最后由 iceorcool 于 2016-4-19 12:27 编辑

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

eachy · 发表于 2016-4-19 12:21:45

iceorcool 发表于 2016-4-19 12:13
关闭最后一个窗口还是会出错

工具箱中常用菜单等使用的是反应器，怀疑这些常驻反应器有BUG

newer · 发表于 2016-4-19 12:26:11

display18 发表于 2016-4-19 09:04
填充面积不能使用
图层统计曲线不能生成表格
cad2007

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

搜狗截图20160419122124.png

(defun c:XDTB_HATCHAREA (/ c:CClose_OnClicked c:CheckAll_OnClicked
c:TypeJS_OnSelChanged c:HatchJD_OnSelChanged
HatchAreaForm_OnInitialize
)
(defun $HatchArea_DataCJ ()
(setq s (getvar "date"))
(if (not $XDTB_HATCHAREA_TIME)
(progn
(setq $XDTB_HATCHAREA_TIME (* 86400.0 (- s (fix s))))
(setq Grid_DataALL ($get_Grid_Data layALL))
)
(progn
(if (> (- (* 86400.0 (- s (fix s))) $XDTB_HATCHAREA_TIME) 100)
(progn
(setq $XDTB_HATCHAREA_TIME (* 86400.0 (- s (fix s))))
(setq Grid_DataALL ($get_Grid_Data layALL))
)
)
)
)
(setq Grid_DataOn nil)
(foreach n layon
(if (setq val (assoc n Grid_DataALL))
(setq Grid_DataON (cons val Grid_DataOn))
)
)
(setq Grid_DataOn (reverse Grid_DataOn))
)
(defun c:HatchAreaForm_OnInitialize (/)
(setq layall ($xdob_layer_getalllayer)
layon ($xdob_layer_getallonlayer)
)
($HatchArea_DataCJ)
(if (not $xdtb_global_hatcharea_var)
(setq $xdtb_global_hatcharea_var (list '("JSFS" 0) '("UNITS" 0) '
("JD" 1) '("CHECKALL" 1) '
("ZEROCHECKBOX" 0)
)
)
)
(setq JSFS (cadr (assoc "JSFS" $xdtb_global_hatcharea_var))
UNITS (cadr (assoc "UNITS" $xdtb_global_hatcharea_var))
JD (cadr (assoc "JD" $xdtb_global_hatcharea_var))
CHECKALLBOX (cadr (assoc "CHECKALL" $xdtb_global_hatcharea_var))
ZEROCHECKbox (cadr (assoc "ZEROCHECKBOX"
$xdtb_global_hatcharea_var
)
)
)
(cond
((= UNITS 0)
(setq js_UNITS 1)
)
((= UNITS 1)
(setq js_UNITS 10000)
)
((= UNITS 2)
(setq js_UNITS 666.66667)
)
)
(dcl_Control_SetValue CheckAll CHECKALLBOX)
(dcl_OptionList_SetCurSel TypeJS JSFS)
(dcl_ComboBox_SetCurSel HatchJD JD)
(dcl_ComboBox_SetCurSel AREAUNITS UNITS)
(dcl_Control_SetValue ZEROCHECK ZEROCHECKbox)
(if (= JSFS 0)
(progn
(Grid_Display Grid_DataON)
(setq Grid_Curent_Items Grid_DataON)
)
(progn
(Grid_Display Grid_DataALL)
(setq Grid_Curent_Items Grid_DataALL)
)
)
(if (= (length Grid_DataAll) (length Grid_DataOn))
(progn
(dcl_OptionList_SetCurSel TypeJS 1)
(dcl_Control_SetEnabled TypeJS nil)
)
)
)
(defun Grid_Display (val)
(dcl_Grid_Clear HatchArea_Grid)
(setq i 1)
(setq TotalVal1 0)
(foreach n val
(if (= ZEROCHECKbox 1)
(progn
(if (/= (caddr n) 0.0)
(progn
(setq intRow (dcl_Grid_AddString HatchArea_Grid
(strcat (itoa i) "\t \t"
(car n) "\t"
(cadr n) "\t"
(setq val1
($xdlsp_string_format
(/
(caddr n) js_UNITS
) JD
)
)
)
)
)
(dcl_Grid_SetCellCheckState HatchArea_Grid intRow 1 1)
(setq TotalVal1 (+ TotalVal1 (atof val1)))
(setq i (1+ i))
)
)
)
(progn
(setq intRow (dcl_Grid_AddString HatchArea_Grid (strcat
(itoa i)
"\t \t"
(car n)
"\t"
(cadr n)
"\t"
(setq val1
($xdlsp_string_format
(/
(caddr n) js_UNITS
) JD
)
)
)
)
)
(dcl_Grid_SetCellCheckState HatchArea_Grid intRow 1 1)
(setq TotalVal1 (+ TotalVal1 (atof val1)))
(setq i (1+ i))
)
) ; (dcl_Grid_SetCurCell
; HatchArea_Grid intRow -1)
)
(dcl_Control_SetCaption TotalVal ($xdlsp_string_format TotalVal1 JD))
(dcl_Control_SetCaption TotalUnit (dcl_ComboBox_GetEBText AREAUNITS))
(dcl_Control_SetFontBold TotalVal t)
)
(defun $get_Grid_Data (lay / carea datal e i n ss)
(acet-ui-progress "数据采集中" (length lay))
(setq l 0)
(foreach n lay
(acet-ui-progress l)
(if (setq ss (ssget "x" (list (cons 8 n) (cons 0 "HATCH"))))
(progn
(setq carea (car (xdrx_getarea ss))
i (sslength ss)
)
(setq datal (cons (list n (itoa i) carea) datal))
)
(progn
(setq datal (cons (list n "0" 0.0) datal))
)
)
(setq l (1+ l))
)
(acet-ui-progress)
(setq datal (reverse datal))
(setq Grid_Curent_Items datal)
)
(defun c:ZeroCheck_OnClicked (Value /)
(setq ZEROCHECKbox value)
(setq UNITS (dcl_ComboBox_GetCurSel AREAUNITS))
(cond
((= UNITS 0)
(setq js_UNITS 1)
)
((= UNITS 1)
(setq js_UNITS 10000)
)
((= UNITS 2)
(setq js_UNITS 666.66667)
)
)
(Grid_Display Grid_Curent_Items)
)
(defun c:AREAUNITS_OnSelChanged (ItemIndexOrCount Value /)
(setq UNITS (dcl_ComboBox_GetCurSel AREAUNITS))
(cond
((= UNITS 0)
(setq js_UNITS 1)
)
((= UNITS 1)
(setq js_UNITS 10000)
)
((= UNITS 2)
(setq js_UNITS 666.66667)
)
)
(Grid_Display Grid_Curent_Items)
)
(defun c:HatchJD_OnSelChanged (ItemIndexOrCount Value /)
(setq jd ItemIndexOrCount)
(Grid_Display Grid_Curent_Items)
)
(defun c:TypeJS_OnSelChanged (ItemIndexOrCount Value /)
(if (= ItemIndexOrCount 1)
(progn
(Grid_Display Grid_DataALL)
(setq Grid_Curent_Items Grid_DataALL)
)
(progn
(Grid_Display Grid_DataOn)
(setq Grid_Curent_Items Grid_DataOn)
)
)
)
(defun c:CheckAll_OnClicked (Value /)
(dcl_MessageBox "To Do: code must be added to event handler\r\nc:CheckAll_OnClicked"
"To do"
)
)
(defun c:CClose_OnClicked (/)
(setq $xdtb_global_hatcharea_var (list (list "JSFS"
(dcl_OptionList_GetCurSel TypeJS)
) (list "UNITS"
(dcl_ComboBox_GetCurSel AREAUNITS)
) (list "JD"
(dcl_ComboBox_GetCurSel HatchJD)
) (list "CHECKALL"
(dcl_Control_GetValue CheckAll)
) (list "ZEROCHECKBOX"
(dcl_Control_GetValue ZeroCheck)
)
)
)
(dcl_Form_Close HatchAreaForm)
)
(defun c:DrawTable_OnClicked (/)
(setq $xdtb_global_hatcharea_var (list (list "JSFS"
(dcl_OptionList_GetCurSel TypeJS)
) (list "UNITS"
(dcl_ComboBox_GetCurSel AREAUNITS)
) (list "JD"
(dcl_ComboBox_GetCurSel HatchJD)
) (list "CHECKALL"
(dcl_Control_GetValue CheckAll)
) (list "ZEROCHECKBOX"
(dcl_Control_GetValue ZeroCheck)
)
)
)
(dcl_Form_Close HatchAreaForm)
)
(xdrx_begin)
(xdrx_sysvar_push "osmode" "cmdecho")
(setvar "cmdecho" 0)
(setvar "osmode" 0) ; ($HatchArea_DataCJ)
(command "_opendcl")
(setq lxd (dcl_Project_Load (*ODCL:Samples:FindFile "XDOB_DCL.odcl")))
(dcl_Form_Show HatchAreaForm)
(xdrx_end)
(xdrx_sysvar_pop)
(princ)
)

(defun c:XDTB_HATCHAREA (/ c:CClose_OnClicked c:CheckAll_OnClicked 
                           c:TypeJS_OnSelChanged c:HatchJD_OnSelChanged 
                           HatchAreaForm_OnInitialize 
                        ) 
  (defun $HatchArea_DataCJ () 
    (setq s (getvar "date")) 
    (if (not $XDTB_HATCHAREA_TIME) 
      (progn 
        (setq $XDTB_HATCHAREA_TIME (* 86400.0 (- s (fix s)))) 
        (setq Grid_DataALL ($get_Grid_Data layALL)) 
      ) 
      (progn 
        (if (> (- (* 86400.0 (- s (fix s))) $XDTB_HATCHAREA_TIME) 100) 
          (progn 
            (setq $XDTB_HATCHAREA_TIME (* 86400.0 (- s (fix s)))) 
            (setq Grid_DataALL ($get_Grid_Data layALL)) 
          ) 
        ) 
      ) 
    ) 
    (setq Grid_DataOn nil) 
    (foreach n layon 
      (if (setq val (assoc n Grid_DataALL)) 
        (setq Grid_DataON (cons val Grid_DataOn)) 
      ) 
    ) 
    (setq Grid_DataOn (reverse Grid_DataOn)) 
  ) 
  (defun c:HatchAreaForm_OnInitialize (/) 
    (setq layall ($xdob_layer_getalllayer) 
          layon ($xdob_layer_getallonlayer) 
    ) 
    ($HatchArea_DataCJ) 
    (if (not $xdtb_global_hatcharea_var) 
      (setq $xdtb_global_hatcharea_var (list '("JSFS" 0) '("UNITS" 0) ' 
                                             ("JD" 1) '("CHECKALL" 1) ' 
                                             ("ZEROCHECKBOX" 0) 
                                       ) 
      ) 
    ) 
    (setq JSFS (cadr (assoc "JSFS" $xdtb_global_hatcharea_var)) 
          UNITS (cadr (assoc "UNITS" $xdtb_global_hatcharea_var)) 
          JD (cadr (assoc "JD" $xdtb_global_hatcharea_var)) 
          CHECKALLBOX (cadr (assoc "CHECKALL" $xdtb_global_hatcharea_var)) 
          ZEROCHECKbox (cadr (assoc "ZEROCHECKBOX" 
                                    $xdtb_global_hatcharea_var 
                             ) 
                       ) 
    ) 
    (cond 
      ((= UNITS 0) 
        (setq js_UNITS 1) 
      ) 
      ((= UNITS 1) 
        (setq js_UNITS 10000) 
      ) 
      ((= UNITS 2) 
        (setq js_UNITS 666.66667) 
      ) 
    ) 
    (dcl_Control_SetValue CheckAll CHECKALLBOX) 
    (dcl_OptionList_SetCurSel TypeJS JSFS) 
    (dcl_ComboBox_SetCurSel HatchJD JD) 
    (dcl_ComboBox_SetCurSel AREAUNITS UNITS) 
    (dcl_Control_SetValue ZEROCHECK ZEROCHECKbox) 
    (if (= JSFS 0) 
      (progn 
        (Grid_Display Grid_DataON) 
        (setq Grid_Curent_Items Grid_DataON) 
      ) 
      (progn 
        (Grid_Display Grid_DataALL) 
        (setq Grid_Curent_Items Grid_DataALL) 
      ) 
    ) 
    (if (= (length Grid_DataAll) (length Grid_DataOn)) 
      (progn 
        (dcl_OptionList_SetCurSel TypeJS 1) 
        (dcl_Control_SetEnabled TypeJS nil) 
      ) 
    ) 
  ) 
  (defun Grid_Display (val) 
    (dcl_Grid_Clear HatchArea_Grid) 
    (setq i 1) 
    (setq TotalVal1 0) 
    (foreach n val 
      (if (= ZEROCHECKbox 1) 
        (progn 
          (if (/= (caddr n) 0.0) 
            (progn 
              (setq intRow (dcl_Grid_AddString HatchArea_Grid 
                                               (strcat (itoa i) "\t \t" 
                                                       (car n) "\t" 
                                                       (cadr n) "\t" 
                                                       (setq val1 
                                                             ($xdlsp_string_format 
                                                                                   (/ 
                                                                                      (caddr n) js_UNITS 
                                                                                   ) JD 
                                                             ) 
                                                       ) 
                                               ) 
                           ) 
              ) 
              (dcl_Grid_SetCellCheckState HatchArea_Grid intRow 1 1) 
              (setq TotalVal1 (+ TotalVal1 (atof val1))) 
              (setq i (1+ i)) 
            ) 
          ) 
        ) 
        (progn 
          (setq intRow (dcl_Grid_AddString HatchArea_Grid (strcat 
                                                                  (itoa i) 
                                                                  "\t \t" 
                                                                  (car n) 
                                                                  "\t" 
                                                                  (cadr n) 
                                                                  "\t" 
                                                                  (setq val1 
                                                                        ($xdlsp_string_format 
                                                                                              (/ 
                                                                                                 (caddr n) js_UNITS 
                                                                                              ) JD 
                                                                        ) 
                                                                  ) 
                                                          ) 
                       ) 
          ) 
          (dcl_Grid_SetCellCheckState HatchArea_Grid intRow 1 1) 
          (setq TotalVal1 (+ TotalVal1 (atof val1))) 
          (setq i (1+ i)) 
        ) 
      )                                       ;       (dcl_Grid_SetCurCell 
                                       ; HatchArea_Grid intRow -1) 
 
    ) 
    (dcl_Control_SetCaption TotalVal ($xdlsp_string_format TotalVal1 JD)) 
    (dcl_Control_SetCaption TotalUnit (dcl_ComboBox_GetEBText AREAUNITS)) 
    (dcl_Control_SetFontBold TotalVal t) 
  ) 
  (defun $get_Grid_Data (lay / carea datal e i n ss) 
    (acet-ui-progress "数据采集中" (length lay)) 
    (setq l 0) 
    (foreach n lay 
      (acet-ui-progress l) 
      (if (setq ss (ssget "x" (list (cons 8 n) (cons 0 "HATCH")))) 
        (progn 
          (setq carea (car (xdrx_getarea ss)) 
                i (sslength ss) 
          ) 
          (setq datal (cons (list n (itoa i) carea) datal)) 
        ) 
        (progn 
          (setq datal (cons (list n "0" 0.0) datal)) 
        ) 
      ) 
      (setq l (1+ l)) 
    ) 
    (acet-ui-progress) 
    (setq datal (reverse datal)) 
    (setq Grid_Curent_Items datal) 
  ) 
  (defun c:ZeroCheck_OnClicked (Value /) 
    (setq ZEROCHECKbox value) 
    (setq UNITS (dcl_ComboBox_GetCurSel AREAUNITS)) 
    (cond 
      ((= UNITS 0) 
        (setq js_UNITS 1) 
      ) 
      ((= UNITS 1) 
        (setq js_UNITS 10000) 
      ) 
      ((= UNITS 2) 
        (setq js_UNITS 666.66667) 
      ) 
    ) 
    (Grid_Display Grid_Curent_Items) 
  ) 
  (defun c:AREAUNITS_OnSelChanged (ItemIndexOrCount Value /) 
    (setq UNITS (dcl_ComboBox_GetCurSel AREAUNITS)) 
    (cond 
      ((= UNITS 0) 
        (setq js_UNITS 1) 
      ) 
      ((= UNITS 1) 
        (setq js_UNITS 10000) 
      ) 
      ((= UNITS 2) 
        (setq js_UNITS 666.66667) 
      ) 
    ) 
    (Grid_Display Grid_Curent_Items) 
  ) 
  (defun c:HatchJD_OnSelChanged (ItemIndexOrCount Value /) 
    (setq jd ItemIndexOrCount) 
    (Grid_Display Grid_Curent_Items) 
  ) 
  (defun c:TypeJS_OnSelChanged (ItemIndexOrCount Value /) 
    (if (= ItemIndexOrCount 1) 
      (progn 
        (Grid_Display Grid_DataALL) 
        (setq Grid_Curent_Items Grid_DataALL) 
      ) 
      (progn 
        (Grid_Display Grid_DataOn) 
        (setq Grid_Curent_Items Grid_DataOn) 
      ) 
    ) 
  ) 
  (defun c:CheckAll_OnClicked (Value /) 
    (dcl_MessageBox "To Do: code must be added to event handler\r\nc:CheckAll_OnClicked" 
                    "To do" 
    ) 
  ) 
  (defun c:CClose_OnClicked (/) 
    (setq $xdtb_global_hatcharea_var (list (list "JSFS" 
                                                 (dcl_OptionList_GetCurSel TypeJS) 
                                           ) (list "UNITS" 
                                                   (dcl_ComboBox_GetCurSel AREAUNITS) 
                                             ) (list "JD" 
                                                     (dcl_ComboBox_GetCurSel HatchJD) 
                                               ) (list "CHECKALL" 
                                                       (dcl_Control_GetValue CheckAll) 
                                                 ) (list "ZEROCHECKBOX" 
                                                         (dcl_Control_GetValue ZeroCheck) 
                                                   ) 
                                     ) 
    ) 
    (dcl_Form_Close HatchAreaForm) 
  ) 
  (defun c:DrawTable_OnClicked (/) 
    (setq $xdtb_global_hatcharea_var (list (list "JSFS" 
                                                 (dcl_OptionList_GetCurSel TypeJS) 
                                           ) (list "UNITS" 
                                                   (dcl_ComboBox_GetCurSel AREAUNITS) 
                                             ) (list "JD" 
                                                     (dcl_ComboBox_GetCurSel HatchJD) 
                                               ) (list "CHECKALL" 
                                                       (dcl_Control_GetValue CheckAll) 
                                                 ) (list "ZEROCHECKBOX" 
                                                         (dcl_Control_GetValue ZeroCheck) 
                                                   ) 
                                     ) 
    ) 
    (dcl_Form_Close HatchAreaForm) 
  ) 
 
  (xdrx_begin) 
  (xdrx_sysvar_push "osmode" "cmdecho") 
  (setvar "cmdecho" 0) 
  (setvar "osmode" 0)                       ; ($HatchArea_DataCJ) 
  (command "_opendcl") 
  (setq lxd (dcl_Project_Load (*ODCL:Samples:FindFile "XDOB_DCL.odcl"))) 
  (dcl_Form_Show HatchAreaForm) 
  (xdrx_end) 
  (xdrx_sysvar_pop) 
  (princ) 
)

newer · 发表于 2016-4-19 12:32:03

iceorcool 发表于 2016-4-19 12:17
关闭最后一个窗口还是会错误

帮忙测试下，把工具箱SYS目录下的xdrx.lsp改名，然后启动工具箱，看看关闭最后一个窗口还退出不？

newer · 发表于 2016-4-19 12:33:27

display18 发表于 2016-4-19 09:04
填充面积不能使用
图层统计曲线不能生成表格
cad2007

图形统计长度那个对话框程序，生成表格的功能还没写完，等工具箱更新吧。

caoliu023 · 发表于 2016-4-19 17:48:53

2016晓东给大家最大的惊喜！晓东大神辛苦了！

zzyong00@163.co · 发表于 2016-4-20 21:19:19

为什么晓东工具箱有很多功能用不了，如敏感标高等

XDSoft · 发表于 2016-4-20 22:39:39

zzyong00@163.co 发表于 2016-4-20 21:19
为什么晓东工具箱有很多功能用不了，如敏感标高等

请把菜单截图表明下，谢谢！

iceorcool · 发表于 2016-4-22 17:00:11

快捷菜单是不能保持关闭状态吗？关闭了以后，再打开CAD2008后这快捷菜单又自动出来了

账号		自动登录	找回密码
密码			立即注册

[程序发布] （2024.05.23日更新）晓东工具箱（For ACAD2004-2025）提供下载

点评

点评

点评

点评

点评