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

XDSoft

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

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

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

nuomizhu

感谢作者的分享

尹嘉岩

好东东！多谢分享！

XDSoft

晓东工具箱 2018.10.27日更新

asang1860

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

jalzq793083

谢谢楼主，辛苦了!

2013127ll

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

humaster

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

XDSoft

晓东工具箱 2018.10.30日更新

shchwy

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

newer

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

试了，正常



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

newer

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

2019 也没问题

shchwy

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

chi2018

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

newer

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

把这个代码拷贝回去加载

1. (defun c:XDTB_DWGCUT (/ dynpt e lastpnt myerr olderr pts ss ss1 tf)
   
2.   (defun _callback (dynpt)
   
3.     (xdrx_entity_move ss lastpnt dynpt)
   
4.     (setq lastpnt dynpt)
   
5.   )
   
6.   (defun _move (ss)
   
7.     (setq lastpnt (xd::geom:get9pt ss 5))
   
8.     (xdrx_pointmonitor "_callback" ss)
   
9.     (initget 1)
   
10.     (getpoint "\n插入点:")
    
11.     (xdrx_pointmonitor)
    
12.   )
    
13.   (defun myerr (msg)
    
14.     (princ "\n*cancel")
    
15.     (xdrx_end)
    
16.     (vl-cmdf ".undo" 1)
    
17.     (setq *error* olderr)
    
18.     (princ)
    
19.   )
    
20.   (xdrx_begin)
    
21.   (setq olderr *error*)
    
22.   (setq *error* myerr)
    
23.   (setq pts nil)
    
24.   (if (setq e (car (xdrx_entsel
    
25.                      "\n请拾取裁剪边界<退出>:"
    
26.                      '((0 . "lwpolyline,circle,ellipse,spline"))
    
27.                    )
    
28.               )
    
29.       )
    
30.     (progn (setq tf (XD::DOC:SafeZoom e))
    
31.            (setq pts (xdrx_getsamplept e)
    
32.                  ss  (ssget "cp" pts)
    
33.            )
    
34.            (if (setq ss1 (xdrx_geom_clipboundary ss e t t))
    
35.              (progn (if tf
    
36.                       (xdrx_document_zoomprevious)
    
37.                     )
    
38.                     (ssadd e ss1)
    
39.                     (_move ss1)
    
40.              )
    
41.            )
    
42.     )
    
43.   )
    
44.   (setq *error* olderr)
    
45.   (xdrx_end)
    
46.   (princ)
    
47. )
    
48. 
    

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