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

XDSoft · 发表于 2018-10-23 14:22:14

shchwy 发表于 2018-10-23 13:18
我这所有层开命令不起作用了 9月份版本都用的好好的 10月份的都不行

http://bbs.xdcad.net/thread-669133-1-1.html

去下载更新下通用LISP函数库，把文件拷贝到工具箱SYS目录下覆盖原文件，然后重启CAD

nuomizhu · 发表于 2018-10-26 14:34:29

感谢作者的分享

尹嘉岩 · 发表于 2018-10-27 10:06:50

好东东！多谢分享！

XDSoft · 发表于 2018-10-27 21:22:49

晓东工具箱 2018.10.27日更新

asang1860 · 发表于 2018-10-28 00:20:07

楼主真是辛苦了，很好很强大，谢谢分享。

jalzq793083 · 发表于 2018-10-28 07:51:59

谢谢楼主，辛苦了!

2013127ll · 发表于 2018-10-28 08:20:23

太强悍了，支持支持支持！

humaster · 发表于 2018-10-30 15:02:47

屏幕菜单不能展开是哪个CAD版本下？手工看看OPTIONS里面屏幕菜单开开没？

XDSoft · 发表于 2018-10-30 16:20:20

晓东工具箱 2018.10.30日更新

shchwy · 发表于 2018-11-2 15:14:50

本帖最后由 shchwy 于 2018-11-2 15:16 编辑

图形切割命令使用有什么限制吗？为什么什么都切不出来？选的封闭多段线，然后就 nothing 没有任何变化不能把封闭多段线里面的东西切出来。
用的 win10 cad2019 最新版晓东工具箱求大神解答

newer · 发表于 2018-11-2 15:46:55

shchwy 发表于 2018-11-2 15:14
图形切割命令使用有什么限制吗？为什么什么都切不出来？选的封闭多段线，然后就 nothing 没有任何变化 ...

试了，正常

请把边界做好，醒目，然后压缩，上传下你的DWG到论坛来，看看

newer · 发表于 2018-11-2 15:55:14

shchwy 发表于 2018-11-2 15:14
图形切割命令使用有什么限制吗？为什么什么都切不出来？选的封闭多段线，然后就 nothing 没有任何变化 ...

2019 也没问题

shchwy · 发表于 2018-11-3 08:25:18

我发现好像是图的问题我新建空白图能够使用图形切割要用的图用不了请大神帮我看下还有这个图能够处理吗？

chi2018 · 发表于 2018-11-3 20:12:14

提示：未安装AUTOCAD 我安装的是2008CAD 32位呀

newer · 发表于 2018-11-4 05:33:44

shchwy 发表于 2018-11-3 08:25
我发现好像是图的问题我新建空白图能够使用图形切割要用的图用不了请大神帮我看下还有这个图能够处理 ...

把这个代码拷贝回去加载

(defun c:XDTB_DWGCUT (/ dynpt e lastpnt myerr olderr pts ss ss1 tf)
(defun _callback (dynpt)
(xdrx_entity_move ss lastpnt dynpt)
(setq lastpnt dynpt)
)
(defun _move (ss)
(setq lastpnt (xd::geom:get9pt ss 5))
(xdrx_pointmonitor "_callback" ss)
(initget 1)
(getpoint "\n插入点:")
(xdrx_pointmonitor)
)
(defun myerr (msg)
(princ "\n*cancel")
(xdrx_end)
(vl-cmdf ".undo" 1)
(setq *error* olderr)
(princ)
)
(xdrx_begin)
(setq olderr *error*)
(setq *error* myerr)
(setq pts nil)
(if (setq e (car (xdrx_entsel
"\n请拾取裁剪边界<退出>:"
'((0 . "lwpolyline,circle,ellipse,spline"))
)
)
)
(progn (setq tf (XD::DOC:SafeZoom e))
(setq pts (xdrx_getsamplept e)
ss (ssget "cp" pts)
)
(if (setq ss1 (xdrx_geom_clipboundary ss e t t))
(progn (if tf
(xdrx_document_zoomprevious)
)
(ssadd e ss1)
(_move ss1)
)
)
)
)
(setq *error* olderr)
(xdrx_end)
(princ)
)

(defun c:XDTB_DWGCUT (/ dynpt e lastpnt myerr olderr pts ss ss1 tf) 
  (defun _callback (dynpt) 
    (xdrx_entity_move ss lastpnt dynpt) 
    (setq lastpnt dynpt) 
  ) 
  (defun _move (ss) 
    (setq lastpnt (xd::geom:get9pt ss 5)) 
    (xdrx_pointmonitor "_callback" ss) 
    (initget 1) 
    (getpoint "\n插入点:") 
    (xdrx_pointmonitor) 
  ) 
  (defun myerr (msg) 
    (princ "\n*cancel") 
    (xdrx_end) 
    (vl-cmdf ".undo" 1) 
    (setq *error* olderr) 
    (princ) 
  ) 
  (xdrx_begin) 
  (setq olderr *error*) 
  (setq *error* myerr) 
  (setq pts nil) 
  (if (setq e (car (xdrx_entsel 
                     "\n请拾取裁剪边界<退出>:" 
                     '((0 . "lwpolyline,circle,ellipse,spline")) 
                   ) 
              ) 
      ) 
    (progn (setq tf (XD::DOC:SafeZoom e)) 
           (setq pts (xdrx_getsamplept e) 
                 ss  (ssget "cp" pts) 
           ) 
           (if (setq ss1 (xdrx_geom_clipboundary ss e t t)) 
             (progn (if tf 
                      (xdrx_document_zoomprevious) 
                    ) 
                    (ssadd e ss1) 
                    (_move ss1) 
             ) 
           ) 
    ) 
  ) 
  (setq *error* olderr) 
  (xdrx_end) 
  (princ) 
)

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

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

点评

点评