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

newer · 发表于 2016-4-7 16:38:27

yjf247606 发表于 2016-4-7 16:34
谢谢楼主了，辛苦。

347个命令，还发现好多隐藏福利

newer · 发表于 2016-4-7 21:29:30

display18 发表于 2016-4-7 18:04
在哪里啊！

你点下常用命令下面的 ”设置“ 就看到了。

newer · 发表于 2016-4-11 18:28:31

米yang 发表于 2016-4-11 12:36
我是win7系统64位的，CAD是2015版本的，CAD安装在J盘,安装晓东工具箱2016.0408默认安装在C盘，怎么启动CAD ...

先试下CAD2008

newer · 发表于 2016-4-11 18:29:59

display18 发表于 2016-4-11 16:55
和浩辰建筑2015不兼容，CAD2007,使用浩辰命令时出现：未定义命令:XD:FASTMENUXDAYER_TOPBARICAXIS!

启动CAD后，按F2，看看文本提示窗口里面有没有XDRX API, OPENDCL,晓东通用LISP函数库加载成功的消息？

newer · 发表于 2016-4-12 12:53:08

display18 发表于 2016-4-12 08:50
晓东工具箱可以用，是浩辰建筑的命令全部禁用了.

你看看是不是浩辰建筑哪个ARX没有加载啊？

newer · 发表于 2016-4-12 14:42:15

display18 发表于 2016-4-12 14:38
晓东工具箱卸载后浩辰能正常使用，安装后就不能用浩辰了

CAD启动后第一时间按下F2，你把文本屏幕截图贴上来看看，手里面没有浩辰建筑，判断不了。看现象应该是浩辰的插件没有继续加载。

newer · 发表于 2016-4-12 17:32:52

倾斜的水平发表于 2016-4-12 17:30
WIN10，CAD2010 X64, 安装完好像未加载，没有发现菜单.

WIN10 别装到C盘，换D盘试试。

newer · 发表于 2016-4-12 17:42:23

display18 发表于 2016-4-12 17:36
CAD关闭时出现第二张截图

这个mini...arx是浩辰的吗？

问题应该出现在那个 cancel* 那，后面可能继续加载中断了，你试试看不加载晓东工具箱时候，浩辰启动后的F2截屏，和用appload看看加载了哪些浩辰的程序，然后加载晓东工具箱，在看看appload 里面，哪些浩辰的程序没加载，然后手工找到浩辰的程序加载下看看浩辰是否能正常使用。

newer · 发表于 2016-4-13 11:09:07

iceorcool 发表于 2016-4-13 10:56
其实我最喜欢的是这个工具，之前不能用在2008上面

喜欢连接线段？看看以前我写过的一个插件，更自动了。http://bbs.xdcad.net/thread-671284-1-1.html

newer · 发表于 2016-4-13 11:19:29

iceorcool 发表于 2016-4-13 11:04
关闭图形窗口会致命错误，直接关闭CAD则不会出错

测试了下，关闭最后的一个窗口时候出现了，希望以后解决，不过不影响使用，关闭最后一个和关闭整个CAD没什么区别了，一般都直接关闭CAD了。

newer · 发表于 2016-4-13 11:23:17

iceorcool 发表于 2016-4-13 11:19
不是以前用过，是一直在用。XD+2004一直用，用了多年了，经常性的需要输坐标画线段，再连接，再剪断，再 ...

注册时间不长，没想到是老人啊。看你描述你的工作好神秘的样子，看你描述的工作效率挺低的，如果写程序能更快吧，不如把你的要求到编程申请里面提交下，写个代码，看看能不能让你的工作更快点。

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

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

newer · 发表于 2016-4-24 12:54:36

jons 发表于 2016-4-24 11:09
*** ≡ AutoCAD 应用程序开发接口XDRX_API For AutoCAD Build 2015.10.24 ≡ ***

本测试版本已经过期 ...

你用的是2016的API吗？**版本已经更新了，你下载下最新的晓东工具箱，里面的2016的API可能更新了，试试。

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

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

点评

点评

点评

点评

点评