设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1480121|回复: 1454

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

  [复制链接]

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-4-7 16:38:27 | 显示全部楼层
yjf247606 发表于 2016-4-7 16:34
谢谢楼主了,辛苦。

搜狗截图20160407163300.png

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

点评

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-4-7 21:29:30 | 显示全部楼层

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

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

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-4-11 18:29:59 | 显示全部楼层
display18 发表于 2016-4-11 16:55
和浩辰建筑2015不兼容,CAD2007,使用浩辰命令时出现:未定义命令:XD:FASTMENUXDAYER_TOPBARICAXIS!

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

点评

晓东工具箱可以用,是浩辰建筑的命令全部禁用了.  详情 回复 发表于 2016-4-12 08:50
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

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

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

点评

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-4-12 14:42:15 | 显示全部楼层
display18 发表于 2016-4-12 14:38
晓东工具箱卸载后浩辰能正常使用,安装后就不能用浩辰了

CAD启动后第一时间按下F2,你把文本屏幕截图贴上来看看,手里面没有浩辰建筑,判断不了。看现象应该是浩辰的插件没有继续加载。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-4-12 17:32:52 | 显示全部楼层
倾斜的水平 发表于 2016-4-12 17:30
WIN10,CAD2010 X64, 安装完好像未加载,没有发现菜单.

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

点评

换了一台win7的 CAD2010 x64版本还是不行,工具箱是安装在D盘的。还是这个新版工具箱需要安装什么环境吗?  详情 回复 发表于 2016-4-12 22:54
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-4-12 17:42:23 | 显示全部楼层
display18 发表于 2016-4-12 17:36
CAD关闭时出现第二张截图

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

问题应该出现在那个 cancel* 那,后面可能继续加载中断了,你试试看不加载晓东工具箱时候,浩辰启动后的F2截屏,和用appload看看加载了哪些浩辰的程序, 然后加载晓东工具箱,在看看appload 里面,哪些浩辰的程序没加载,然后手工找到浩辰的程序加载下看看浩辰是否能正常使用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-4-13 11:09:07 | 显示全部楼层
iceorcool 发表于 2016-4-13 10:56
其实我最喜欢的是这个工具,之前不能用在2008上面

喜欢连接线段? 看看以前我写过的一个插件,更自动了。http://bbs.xdcad.net/thread-671284-1-1.html
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-4-13 11:19:29 | 显示全部楼层
iceorcool 发表于 2016-4-13 11:04
关闭图形窗口会致命错误,直接关闭CAD则不会出错

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

点评

嘿嘿,经常把窗口关完,CAD不常关,这样方便再开另外的图。  详情 回复 发表于 2016-4-13 11:28
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

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

注册时间不长,没想到是老人啊。看你描述你的工作好神秘的样子,看你描述的工作效率挺低的,如果写程序能更快吧,不如把你的要求到编程申请里面提交下,写个代码,看看能不能让你的工作更快点。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【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豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2021-1-24 12:52 , Processed in 0.231755 second(s), 50 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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