删除排版框

XDSoft

排版相关插件：

• 重磅来袭，动态排版（第三版）
  10 个回复 - 31 次查看
  听从网友建议，第三版，新加入快捷键直接选 对齐方式，全程可以不用鼠标点非模式对话框，效率更高，更灵活。 ==================================================== 第二版链接：http://bbs.xdcad.net/th ...
  2020-5-4 14:43 - XDSoft - 每日插件
•   设置排版边界框
  3 个回复 - 542 次查看
  可以做边界的实体类型： 块，圆、封闭的多段线 配合“显示边界框”插件：http://bbs.xdcad.net/thread-716868-1-1.html 配合 “排版插件” 进行灵活排版。http://bbs.xdcad.net/thread-716846-1-1.html ...
  2018-7-29 00:36 - newer - 每日插件
  
  

1. (defun c:xdtb_paibanremovegroup        (/ ss xdir box box9 ents _callback)
   
2.   (defun _display ()
   
3.     (mapcar '(lambda (x)
   
4.                (setq xdir (cadr (xdrx_entity_getecs x)))
   
5.                (setq box  (xdrx_entity_box x xdir)
   
6.                      box9 (xd::geom:box->9pt box)
   
7.                )
   
8.                (xdrx_grdraw
   
9.                  2
   
10.                  0
    
11.                  (nth 0 box9)
    
12.                  (nth 2 box9)
    
13.                  (nth 8 box9)
    
14.                  (nth 6 box9)
    
15.                  (nth 0 box9)
    
16.                )
    
17.                (xdrx_grdraw 2 0 (nth 0 box9) (nth 8 box9))
    
18.                (xdrx_grdraw 2 0 (nth 2 box9) (nth 6 box9))
    
19.              )
    
20.             ents
    
21.     )
    
22.     t
    
23.   )
    
24.   (defun _callback (dynpt) (_display) (princ))
    
25.   (if (setq ss (xdrx_ssget "x" '((-3 ("XD_LAYOUT_GROUP")))))
    
26.     (progn
    
27.       (xd::doc:safezoom ss)
    
28.       (setq ents (xdrx_pickset->ents ss))
    
29.       (xdrx_prompt "\n设置了" (sslength ss) "个排版组边界.")
    
30.       (xdrx_pointmonitor "_callback")
    
31.       (if (and ents
    
32.                (> (length ents) 0)
    
33.                (_display)
    
34.                (xdrx_initssget "\n选择要删除的排版组<退出>:")
    
35.                (setq ss (xdrx_ssget '((-3 ("XD_LAYOUT_GROUP")))))
    
36.                (setq ents (xdrx_pickset->ents ss))
    
37.           )
    
38.         (progn
    
39.           (mapcar '(lambda (x) (xdrx_xdata_remove x "XD_LAYOUT_GROUP"))
    
40.                   ents
    
41.           )
    
42.           (xdrx_prompt "\n >>删除了" (length ents) "个排版组边界.")
    
43.           (redraw)
    
44.           (if (setq ss (xdrx_ssget "x" '((-3 ("XD_LAYOUT_GROUP")))))
    
45.             (progn (setq ents (xdrx_pickset->ents ss)) (_display))
    
46.           )
    
47.         )
    
48.       )
    
49.       (xdrx_end)
    
50.     )
    
51.     (xdrx_prompt "\n没有发现排版组边界.")
    
52.   )
    
53.   (princ)
    
54. )
    
55. 
    

(defun c:xdtb_paibanremovegroup        (/ ss xdir box box9 ents _callback)<br />   (defun _display ()<br />     (mapcar '(lambda (x)<br />                (setq xdir (cadr (xdrx_entity_getecs x)))<br />                (setq box  (xdrx_entity_box x xdir)<br />                      box9 (xd::geom:box->9pt box)<br />                )<br />                (xdrx_grdraw<br />                  2<br />                  0<br />                  (nth 0 box9)<br />                  (nth 2 box9)<br />                  (nth 8 box9)<br />                  (nth 6 box9)<br />                  (nth 0 box9)<br />                )<br />                (xdrx_grdraw 2 0 (nth 0 box9) (nth 8 box9))<br />                (xdrx_grdraw 2 0 (nth 2 box9) (nth 6 box9))<br />              )<br />             ents<br />     )<br />     t<br />   )<br />   (defun _callback (dynpt) (_display) (princ))<br />   (if (setq ss (xdrx_ssget "x" '((-3 ("XD_LAYOUT_GROUP")))))<br />     (progn<br />       (xd::doc:safezoom ss)<br />       (setq ents (xdrx_pickset->ents ss))<br />       (xdrx_prompt "\n设置了" (sslength ss) "个排版组边界.")<br />       (xdrx_pointmonitor "_callback")<br />       (if (and ents<br />                (> (length ents) 0)<br />                (_display)<br />                (xdrx_initssget "\n选择要删除的排版组<退出>:")<br />                (setq ss (xdrx_ssget '((-3 ("XD_LAYOUT_GROUP")))))<br />                (setq ents (xdrx_pickset->ents ss))<br />           )<br />         (progn<br />           (mapcar '(lambda (x) (xdrx_xdata_remove x "XD_LAYOUT_GROUP"))<br />                   ents<br />           )<br />           (xdrx_prompt "\n >>删除了" (length ents) "个排版组边界.")<br />           (redraw)<br />           (if (setq ss (xdrx_ssget "x" '((-3 ("XD_LAYOUT_GROUP")))))<br />             (progn (setq ents (xdrx_pickset->ents ss)) (_display))<br />           )<br />         )<br />       )<br />       (xdrx_end)<br />     )<br />     (xdrx_prompt "\n没有发现排版组边界.")<br />   )<br />   (princ)<br /> )<br /> <br />

意思哥

最新的吧，头台支持！

LXH刚开始

这么好的资源分享，强烈支持楼主。

toil

三个组合在一起 好东西！！！！！！