API应用 AcDbBlockReference 准确包围盒

st788796 · 发表于 2014-12-5 07:42:24

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

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

×

本帖最后由 st788796 于 2014-12-5 07:49 编辑

以前考虑过一直没有动手写，看到老大发了个 ARX 帖子 http://bbs.xdcad.net/thread-677895-1-1.html，就把这个这个代码也写出来试试

(defun c:tt (/ e el pts mat)
(if (setq e (car (xdrx_entsel "\nPick Insert: " '((0 . "insert")))))
(progn
(setq el (xdrx_getpropertyvalue
(cadr (xdrx_getpropertyvalue e "blockTableRecord"));_取出块定义
"allEntities"
)
mat (xdrx_getpropertyvalue e "blocktransform");_insert 的变换矩阵
pts (apply 'append (mapcar 'xdrx_entity_box el));_块定义单个实体的 box 构造一个点集
pts (apply 'xdrx_points_box pts);_对点集找一个 Box
pts (xdrx_points_transform pts mat);_对这个点集BOX变换到 Insert 位置
)
(apply 'xdrx_polyline_make (cons t pts))
)
)
(princ)
)

Insert 可以拥有 X/Y 方向的不同比例，也可以有角度旋转，同时也可以位于不同的平面，但是单纯的 AcDbEntity 都有其 getGeomExtents()，实体变换其getGeomExtents() 也进行了相同的变换，尽管部分实体不支持非等比变换，但点的变换不受限制

API 的实现过程也就是 ARX 的实现过程

说明：对于嵌套块，应该再有递归处理，将 BlockDef 内的引用同样方法处理

Lisphk · 发表于 2014-12-5 08:46:52

试了一个只有一个文字的块，提示错误
命令: tt

Pick Insert: ; 错误: 参数类型错误: listp <图元名: -168b60>

st788796 · 发表于 2014-12-5 09:05:55

本帖最后由 st788796 于 2014-12-5 09:07 编辑

Lisphk 发表于 2014-12-5 08:46
试了一个只有一个文字的块，提示错误
命令: tt

可能是api的allentites对单个实体时返回的不是表，出现过类似问题
你用两个实体以上的块试试

Lisphk · 发表于 2014-12-5 09:13:06

st788796 发表于 2014-12-5 09:05
可能是api的allentites对单个实体时返回的不是表，出现过类似问题
你用两个实体以上的块试试

是的，两个实体就没事了{:soso_e122:}

另外大师，对文字怎么能获得实际随着文字方向的包围盒呢，用API怎么写？

QQ截图20141205091234.png

st788796 · 发表于 2014-12-5 09:24:57

Lisphk 发表于 2014-12-5 09:13
是的，两个实体就没事了

另外大师，对文字怎么能获得实际随着文字方向的包围盒呢，用API ...

这个用textbox求正放的再加个旋转即可，另外eachy写过求文字实际长度函数，里面加几句代码就可以返回box

Lisphk · 发表于 2014-12-5 09:42:26

st788796 发表于 2014-12-5 09:24
这个用textbox求正放的再加个旋转即可，另外eachy写过求文字实际长度函数，里面加几句代码就可以返回box

大师，帮直接写个函数呗{:soso_e163:}

st788796 · 发表于 2014-12-5 10:16:49

Lisphk 发表于 2014-12-5 09:42
大师，帮直接写个函数呗

仅需要text 和 attrib吧

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

[教学] API应用 AcDbBlockReference 准确包围盒

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

点评

点评