(XD::Entity:Box)获得对齐UCS的实体或者选择集的包围盒

Lispboy · 发表于 2013-7-2 00:09:00

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

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

×

;|
获得实体或者选择集在UCS下的实际包围盒
参数：
ss --- 实体名 or 选择集
返回UCS下的对齐X轴的包围盒（UCS点）
|;
(defun XD::Entity:Box (ss / an box from mat mat0 pj r to)
(xdrx_document_ucsoff)
(setq box (xdrx_entity_box ss))
(if (not (xdrx_document_iswcs))
(progn
(setq an (XD::UCS:Angle)
pj (car box)
mat0 (xdrx_matrix_identity 3)
from (list pj (getvar "ucsxdir") (getvar "ucsydir") (XD::UCS:ZDir))
to (list pj '(1 0 0) '(0 1 0) '(0 0 1))
mat (xdrx_matrix_AlignCoordSystem from to)
)
(xdrx_entity_transform ss Mat)
(setq box (xdrx_entity_box ss))
(xdrx_entity_transform ss (setq r (xdrx_matrix_inverse Mat)))
(setq box (XD::Pnts:WCS2UCS (XD::Pnts:Transform box r)))
)
)
box
)

守仁格竹GM · 发表于 2013-7-2 08:00:15

再这么下去又一个院长诞生了

Free-Lancer · 发表于 2013-7-2 08:07:31

守仁格竹GM 发表于 2013-7-2 08:00
再这么下去又一个院长诞生了

这些还都是在打基础，没有到具体应用地步

/mg爱因思考 · 发表于 2013-7-2 09:43:24

提示: 作者被禁止或删除内容自动屏蔽

Lispboy · 发表于 2013-7-25 18:27:25

代码2013.07.25 更新。

st788796 · 发表于 2013-7-25 18:49:02

Lispboy 发表于 2013-7-25 18:27
代码2013.07.25 更新。

把 transform ss 换成仅 transform box 就可以收关了

st788796 · 发表于 2013-7-25 19:02:30

还是把 xdrx_entity_box 改下，T 是 WCS， nil 是 OCS

Lispboy · 发表于 2013-7-25 19:20:09

st788796 发表于 2013-7-25 18:49
把 transform ss 换成仅 transform box 就可以收关了

最后是BOX收关啊

(setq box (XD::Pnts:Transform box r))

你上面看到的是实体的变换，要先变换下实体求得BOX，再转回去。

ghoust · 发表于 2013-10-22 01:23:38

我只能说无言以对。

kkt123 · 发表于 2015-5-6 13:21:44

:o好东西！！就得顶:P

vlisp2012 · 发表于 2015-5-16 22:04:46

必须顶，:):)

csharp · 发表于 2016-5-8 00:22:46

本帖最后由 csharp 于 2016-5-8 00:50 编辑

函数有 Bug

命令: (apply 'command (cons "_pline" (xd::entity:box (ssget))))

命令: (xd::ucs:angle)
0.699088
修改如下:

(defun xd::entity:box (ss / pts)
(if (xdrx_document_iswcs)
(xdrx_entity_box ss t)
(progn
(xdrx_document_ucsoff)
(xdrx_entity_transform ss (xdrx_matrix_wcs2ucs))
(setq pts (xdrx_entity_box ss t))
(xdrx_entity_transform ss (xdrx_matrix_ucs2wcs))
(xd::pnts:wcs2ucs
(xdrx_points_transform pts (xdrx_matrix_ucs2wcs))
)
)
)
)

newer · 发表于 2016-5-8 02:20:10

本帖最后由 newer 于 2016-5-8 02:23 编辑

csharp 发表于 2016-5-8 00:22
函数有 Bug

命令: (apply 'command (cons "_pline" (xd::entity:box (ssget))))

xdrx_entity_box 直接就能返回UCS下的包围盒子。

csharp · 发表于 2016-5-8 07:34:40

本帖最后由 csharp 于 2016-5-8 07:37 编辑

newer 发表于 2016-5-8 02:20
xdrx_entity_box 直接就能返回UCS下的包围盒子。

我理解错了，xdrx_entity_box 是返回当前 UCS 下的包围盒(WCS坐标)，不过这个 Lisp 函数是不对的
红线
命令: (apply 'xdrx_polyline_make (xd::entity:box (ssget)))

选择对象: 指定对角点: 找到 1 个

选择对象:
<图元名: 7ef036c8>
绿线

命令: (apply 'xdrx_polyline_make (xdrx_entity_box (ssget)))

选择对象: 指定对角点: 找到 1 个

选择对象:
<图元名: 7ef036d0>

newer · 发表于 2016-5-8 13:59:24

csharp 发表于 2016-5-8 07:34
我理解错了，xdrx_entity_box 是返回当前 UCS 下的包围盒(WCS坐标)，不过这个 Lisp 函数是不对的
红线
...

我看了下一楼的代码，可能是当时的XDRX_ENTITY_BOX不能返回UCS下的，所以写的这个函数，里面用了
(setq box (xdrx_entity_box ss))

所以现在就可能错了，现在来说如果参数后面加T也许就对了。

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

/mg爱因思考 /mg爱因思考当前离线 UID 677051 积分 117 精华贡献威望活跃度 D豆在线时间小时注册时间 2013-6-2 最后登录 1970-1-1 窥视卡雷达卡	发表于 2013-7-2 09:43:24 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[实体] (XD::Entity:Box)获得对齐UCS的实体或者选择集的包围盒

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

相关帖子

点评

点评

点评

点评

点评

点评

浏览过的版块