设置排版边界框

newer · 发表于 2018-7-29 00:36:46

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2020-8-6 17:14 编辑

可以做边界的实体类型：块，圆、封闭的多段线

配合“显示边界框”插件：http://bbs.xdcad.net/thread-716868-1-1.html

配合 “排版插件” 进行灵活排版。http://bbs.xdcad.net/thread-716846-1-1.html

一、预览边界框

设置排版边界框-1.jpg

二、排版进行中

设置排版边界框-2.jpg

三、排版完毕

设置排版边界框-3.jpg

(defun c:xdtb_paibansetgroup (/ ss) (if (and (xdrx_initssget
"\n选择排版组最外的边界实体(块、封闭多段线、圆)<退出>:"
)
(setq ss (xdrx_ssget '((-4 . "<or")
(0 . "INSERT,CIRCLE")
(-4 . "<and")
(0 . "*POLYLINE")
(-4 . "&=")
(70 . 1)
(-4 . "and>")
(-4 . "or>")
)
)
)
)
(progn (xdrx-begin)
(xdrx-sysvar-push '("xdataWriteMode" 2))
(mapcar '(lambda (x) (xdrx_xdata_set x "XD_LAYOUT_GROUP" 1.0))
(xdrx_pickset->ents ss)
)
(xdrx_prompt "\n设置了" (sslength ss) "个排版组边界.")
(xdrx-end)
)
)
(princ)
)

(defun c:xdtb_paibansetgroup (/ ss)  (if (and (xdrx_initssget 
             "\n选择排版组最外的边界实体(块、封闭多段线、圆)<退出>:" 
           ) 
           (setq ss (xdrx_ssget        '((-4 . "<or") 
                                  (0 . "INSERT,CIRCLE") 
                                  (-4 . "<and") 
                                  (0 . "*POLYLINE") 
                                  (-4 . "&=") 
                                  (70 . 1) 
                                  (-4 . "and>") 
                                  (-4 . "or>") 
                                 ) 
                    ) 
           ) 
      ) 
    (progn (xdrx-begin) 
           (xdrx-sysvar-push '("xdataWriteMode" 2)) 
           (mapcar '(lambda (x) (xdrx_xdata_set x "XD_LAYOUT_GROUP" 1.0)) 
                   (xdrx_pickset->ents ss) 
           ) 
           (xdrx_prompt "\n设置了" (sslength ss) "个排版组边界.") 
           (xdrx-end) 
    ) 
  ) 
  (princ) 
)

zhangfaren · 发表于 2018-7-29 09:30:29

哇，版主大大太厉害了，谢谢！

2767836360 · 发表于 2018-12-11 22:31:59

很好，变成组后在排班板。

混也是种生活 · 发表于 2019-6-28 11:34:32

没有下载地址咋弄

toil · 发表于 2020-9-20 13:56:44

联合使用不要太爽！

qq787116960 · 发表于 2022-9-20 22:20:25

版主大大太厉害了，谢谢

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

[布局、排版] 设置排版边界框

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。