显示设置过的排版边界框

newer · 发表于 2018-7-29 00:43:08

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

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

×

配合“设置边界框”插件：http://bbs.xdcad.net/thread-716867-1-1.html

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

一、预览边界框

搜狗截图20180729001128.png

二、排版进行中

搜狗截图20180729002102.png

三、排版完毕

搜狗截图20180729002133.png

(defun c:xdtb_paibandisplaygroup (/ ss xdir box box9)
(if (setq ss (xdrx_ssget "x" '((-3 ("XD_LAYOUT_GROUP")))))
(progn (xd::doc:safezoom ss)
(mapcar '(lambda (x)
(setq xdir (cadr (xdrx_entity_getecs x)))
(setq box (xdrx_entity_box x xdir)
box9 (xd::geom:box->9pt box))
(xdrx_grdraw
1
0
(nth 0 box9)
(nth 2 box9)
(nth 8 box9)
(nth 6 box9)
(nth 0 box9)
)
(xdrx_grdraw 1 0 (nth 0 box9) (nth 8 box9))
(xdrx_grdraw 1 0 (nth 2 box9) (nth 6 box9))
)
(xdrx_pickset->ents ss)
)
(xdrx_prompt "\n设置了" (sslength ss) "个排版组边界.")
)
)
(princ)
)

(defun c:xdtb_paibandisplaygroup (/ ss xdir box box9) 
  (if (setq ss (xdrx_ssget "x" '((-3 ("XD_LAYOUT_GROUP"))))) 
    (progn (xd::doc:safezoom ss) 
           (mapcar '(lambda (x) 
                      (setq xdir (cadr (xdrx_entity_getecs x))) 
                      (setq box (xdrx_entity_box x xdir) 
                            box9 (xd::geom:box->9pt box)) 
                      (xdrx_grdraw 
                        1 
                        0 
                        (nth 0 box9) 
                        (nth 2 box9) 
                        (nth 8 box9) 
                        (nth 6 box9) 
                        (nth 0 box9) 
                      ) 
                      (xdrx_grdraw 1 0 (nth 0 box9) (nth 8 box9)) 
                      (xdrx_grdraw 1 0 (nth 2 box9) (nth 6 box9)) 
                    ) 
                   (xdrx_pickset->ents ss) 
           ) 
           (xdrx_prompt "\n设置了" (sslength ss) "个排版组边界.") 
    ) 
  ) 
  (princ) 
)

zhangfaren · 发表于 2018-7-29 09:53:26

配合7.29最新版的API,插件完美运行！谢谢版主！

ttt123456787 · 发表于 2018-7-29 10:38:55

好东西，值得推推荐，正在熟悉中
来自: 微社区

a1093553560 · 发表于 2018-11-2 11:09:37

这个好谢谢

sxj858688 · 发表于 2020-4-8 13:34:11

好东西，值得拥有

qqp741005 · 发表于 2020-4-9 08:40:03

好东西，值得拥有

tmyaolu · 发表于 2021-3-15 14:54:34

到底怎么用，老是提示错误

qq787116960 · 发表于 2022-9-20 21:53:54

[布局、排版] [插件发布] 显示设置过的排版边界框 [复制链接]

qq787116960 · 发表于 2022-9-20 21:56:09

XDTB_PAIBANDISPLAYGROUP

13174545660 · 发表于 2024-1-7 08:30:17

好东西先收藏

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

[布局、排版] 显示设置过的排版边界框

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