[求助]：求助：怎样把实体坐标系转换为世界坐标

SEASINGLI

我的一幅图中有这么一个实体，用chang改层都改不了，我想是实体坐标的问题，但不知道怎么把这个实体改为世界坐标。((-1 . <图元名: 40066a58>) (0 . "LWPOLYLINE") (330 . <图元名:
4005ed18>) (5 . "1B23") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"59600") (62 . 7) (6 . "Continuous") (100 . "AcDbPolyline") (90 . 7) (70 . 0)
(43 . 0.0) (38 . 505.782) (39 . 0.0) (10 -18426.3 21170.7) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 -18421.4 21173.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
-18411.5 21165.9) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -18393.6 21155.6) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 -18390.3 21148.3) (40 . 0.0) (41 . 0.0) (42 .
0.0) (10 -18377.1 21126.6) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -18381.3
21121.8) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 -5.28746e-005 0.000276673 1.0))

eachy

用entmod将其中的(210 -5.28746e-005 0.000276673 1.0)改为(210 0.0 0.0 1.0)
搜索下，前面有过这个程序。

2. 
   
3. (setq el (entget (car (entsel))))
   
4. (entmod (subst '(210 0.0 0.0 1.0) (assoc 210 el) el))
   
5. (entupd e)
   

<br /> (setq el (entget (car (entsel))))<br /> (entmod (subst '(210 0.0 0.0 1.0) (assoc 210 el) el))<br /> (entupd e)<br />

SEASINGLI

这样是不行的，该实体是通过矩阵旋转的，这么强制的一改，实体就飞了，我不知道是怎么的一个矩阵关系

XDSoft

最初由 SEASINGLI 发布
[B]这样是不行的，该实体是通过矩阵旋转的，这么强制的一改，实体就飞了，我不知道是怎么的一个矩阵关系 [/B]

你的实体飞了，说明矩阵构造的还不对。

通过矩阵转换，肯定可以，这需要了解ACAD对象数据库“任意轴”的算法，以前我给大家写过一个详细的教学，你可以看看下面的链接，最后构造出变换矩阵。

http://www.xdcad.net/forum/showthread.php?postid=52195#post52195

上面的链接详细讲了“任意轴”，并给个例子推导出了WCS,UCS到OCS的变换矩阵。

另外可以使用简单的方法：(trans pt [1 or 0] 实体名) 直接在UCS,WCS到OCS（实体坐标系）变换。

XDSoft

最初由 SEASINGLI 发布
[B]我的一幅图中有这么一个实体，用chang改层都改不了，我想是实体坐标的问题，但不知道怎么把这个实体改为世界坐标。((-1 . <图元名: 40066a58>) (0 . "LWPOLYLINE") (330 . <图元名:
4005ed18>) (5 . "1B23") (100 ... [/B]

连“层”都改不了，说明这个实体有问题，你把图压缩下贴到论坛来吧。

从你给的数据看，平面的LWPOLYLINE实体的法线向量组码210 也不符合常规，应该是实体被做手脚了。