马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
x
本帖最后由 newer 于 2020-8-6 17:14 编辑
可以做边界的实体类型: 块,圆、封闭的多段线
配合“显示边界框”插件:http://bbs.xdcad.net/thread-716868-1-1.html
配合 “排版插件” 进行灵活排版。http://bbs.xdcad.net/thread-716846-1-1.html
一、预览边界框
二、排版进行中
三、排版完毕
 - (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)
- )
|