[求助]：ECS到WCS兼问XdRx_Matrix_ecs2wcs。

eachy · 发表于 2003-2-24 18:35:41

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

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

×

为什么ecs2wcs返回的总是((1.0 0.0 0.0 0.0) (0.0 1.0 0.0 0.0) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))，不论选择的是块还是在UCS中生成的实体。

xdrx_matrix_ecs2wcs
功能：获得对象的ECS(OCS)到WCS下的转换矩阵
调用格式：(xdrx_matrix_ecs2wcs <实体名>)
返回值：矩阵表

复制代码

XDSoft · 发表于 2003-2-24 19:49:09

最初由 eachy 发布
[B]为什么ecs2wcs返回的总是((1.0 0.0 0.0 0.0) (0.0 1.0 0.0 0.0) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))，不论选择的是块还是在UCS中生成的实体。
[CODE]
xdrx_matrix_ecs2wcs

功能：获得对象的ECS(OCS)到WC... [/B]

EA,去看看下面链接的两个帖子，理解下ECS，ECS是保存实体数据时候使用的“局部坐标系”。

大多数情况ECS的原点和WCS原点相同，只有X,Y轴不同的时候，返回的转换矩阵才不是上面的单位矩阵。

XDSoft · 发表于 2003-2-24 22:19:04

贴个图，方便理解下

登录/注册后可看大图

eachy · 发表于 2003-2-25 01:13:59

第二次重新指定了UCS，ECS的转换矩阵还是一样的？

命令: ucs
当前 UCS 名称: *世界*
输入选项
[新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
<世界>: n
指定新 UCS 的原点或 [Z 轴(ZA)/三点(3)/对象(OB)/面(F)/视图(V)/X/Y/Z] <0,0,0>:
30,40
命令:
UCS
当前 UCS 名称: *没有名称*
输入选项
[新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
<世界>: n
指定新 UCS 的原点或 [Z 轴(ZA)/三点(3)/对象(OB)/面(F)/视图(V)/X/Y/Z] <0,0,0>: z
指定绕 Z 轴的旋转角度 <90>: 30
命令:
UCS
当前 UCS 名称: *没有名称*
输入选项
[新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
<世界>: n
指定新 UCS 的原点或 [Z 轴(ZA)/三点(3)/对象(OB)/面(F)/视图(V)/X/Y/Z] <0,0,0>: x
指定绕 X 轴的旋转角度 <90>: 30
命令: cr CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:
指定圆的半径或 [直径(D)]:
命令: li LIST
选择对象: 找到 1 个
选择对象:
CIRCLE Layer: "0"
Space: Model space
Handle = 70
center point, X= 472.0912 Y= -10.7099 Z= 0.0000
radius 95.2802
circumference 598.6634
area 28520.3972
[color=blue]命令: (xdrx_matrix_ecs2wcs (car (entsel)))
选择对象: ((0.866025 -0.433013 0.25 0.0) (0.5 0.75 -0.433013 0.0) (0.0 0.5
0.866025 0.0) (0.0 0.0 0.0 1.0))[/color]
[color=red]命令: ucs
当前 UCS 名称: *没有名称*
输入选项
[新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
<世界>: n
指定新 UCS 的原点或 [Z 轴(ZA)/三点(3)/对象(OB)/面(F)/视图(V)/X/Y/Z] <0,0,0>:[/color]
命令: cr CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:
指定圆的半径或 [直径(D)] <95.2802>:
命令: (xdrx_matrix_ecs2wcs (car (entsel)))
选择对象: ((0.866025 -0.433013 0.25 0.0) (0.5 0.75 -0.433013 0.0) (0.0 0.5
0.866025 0.0) (0.0 0.0 0.0 1.0))

复制代码

LUCAS · 发表于 2003-2-27 10:49:40

;;"ECS的原点和WCS原点相同，只有X,Y轴不同的时候，返回的转换矩阵才不是上面的单位矩阵。"

;;这样说来,Z轴的旋转xdrx_matrix_ecs2wcs并不能求出。

;;也就是说函数XDRX_MATRIX_GETECS，其中法线向量(Z轴)旋转的话,函数并不能把它求出,
那还有甚么方法求Z轴旋转？

;;如能求出Z轴旋转, 就有希望建立对象UCS。

XDSoft · 发表于 2003-2-27 11:01:26

最初由 LUCAS 发布
[B];;"ECS的原点和WCS原点相同，只有X,Y轴不同的时候，返回的转换矩阵才不是上面的单位矩阵。"

;;这样说来,Z轴的旋转xdrx_matrix_ecs2wcs并不能求出。

;;也就是说函数XDRX_MATRIX_GETECS，其中法线向量(Z轴)旋转?.. [/B]

概念还是有点没有明白，Z轴是条件，就是组码210，知道Z轴，就可以求出X轴，然后求出Y轴。Z轴是平面的法向，是已知的。

只要是ACAD里面的实体，就可以用 xdrx_matrix_ecs2wcs 获得转换矩阵。

你说的对象UCS，可以用矩阵，以前给大家讨论的设置POLY的UCS可能是你的问题，看看下面的帖子，设置UCS到POLYLINE的指定段，关于向量的运用：

http://www.xdcad.net/forum/showthread.php?postid=71313#post71313

eachy · 发表于 2003-2-27 13:59:18

对于210组码，就是说只要Z高度一定的实体，不管UCS原点在哪里，其ECS－》WCS矩阵都相同。

LUCAS · 发表于 2003-2-27 14:39:07

;;对region物件无效
(defun c:UCS_Z(/ e)
(if (setq e (car (entsel)))
(progn
(command "._ucs" "n" "ob" e)
(command "._ucs" "n" "za" "" '(0 -1 0))
)
)
(princ)
)
对region物件有效
(defun c:UCS_Z(/ e)
(if (setq e (cadr (entsel)))
(progn
(command "._ucs" "n" "ob" e)
(command "._ucs" "n" "za" "" '(0 -1 0))
)
)
(princ)
)
对region对象有效,是因为有点选动作,但如在选集中,
则对region无效,连双元表也对其无效(可能我对双元表用错了)。
(defun C:UCS_Z (/ E)
(setq E (ssget '((0 . "region"))))
(command "._ucs" "n" "ob" (list (ssname E 0) '(0 0 0)))
)
设 REGION对Z轴旋转30度,再對X轴旋转30度
(不在世界坐标 OR Z不等于0 ),即不能用vla-get-centroid取得质心,
但当对REGION作对象UCS则问题解决。
问题待解:
如何在选集中对REGION作对象UCS???
;;在质心上画点
(defun C:CENTROID (/ HOLDOSMODE SS N CENT KEY KEY1 KEY2 TMP)
(defun DO_IT (ENT)
(setq
CENT
(vlax-get (vlax-ename->vla-object ENT) "centroid")
)
(prompt (strcat "\n矩心= " (vl-princ-to-string CENT)))
(command "_.POINT" CENT)
)
(vl-load-com)
(setq HOLDOSMODE (getvar "osmode"))
(while (= SS NIL)
(prompt "\n选择对象: ")
(setq
SS (ssget
'((0 . "region,lwpolyline,polyline,circle,ellipse,spline"))
)
)
)
(setq N 0)
(setvar "osmode" 0)
(setvar "PDMODE" 35)
(repeat (sslength SS)
(setq KEY1 (ssname SS N))
(setq KEY2 (vlax-ename->vla-object KEY1))
(setq KEY (cdr (assoc 0 (entget KEY1))))
(cond
((= KEY "REGION")
;;(M_UCS KEY2)
(DO_IT KEY1)
(command "_.UCS" "P")
)
((or (= KEY "CIRCLE")
(= KEY "ELLIPSE")
(and
(or (= KEY "LWPOLYLINE")
(= KEY "POLYLINE")
(= KEY "SPLINE")
)
(= :vlax-true (vla-get-closed KEY2))
)
)
(command "_.COPY" KEY1 "" "0,0" "@")
(command "_.REGION" (entlast) "")
(setq TMP (entlast))
;;(M_UCS (vlax-ename->vla-object TMP))
(DO_IT TMP)
(command "_.ERASE" TMP "")
)
)
(setq N (1+ N))
)
(setvar "osmode" HOLDOSMODE)
(princ)
)
(princ)
;;因求不出Z轴旋转或NEWUCS精度不足,故失败
;;-------------------------------------------------------
(defun M_UCS (ENT)
(setq UCS (XDRX_MATRIX_GETECS
(vlax-safearray->list
(vlax-variant-value (vla-get-normal ENT))
)
)
)
(setq NEWUCS (vla-add (vla-get-usercoordinatesystems
(setq DOC (vla-get-activedocument
(vlax-get-acad-object)
)
)
)
(vlax-3d-point '(0 0 0))
(vlax-3d-point (nth 0 UCS))
(vlax-3d-point (nth 1 UCS))
"New_UCS"
)
)
(vla-put-activeucs DOC NEWUCS)
)
(defun XDRX_MATRIX_GETECS (NORMAL / ECS_X ECS_Y)
(setq NORMAL (xdrx_vector_normalize NORMAL))
(if (and
(< (abs (car NORMAL)) (/ 1 64.0))
(< (abs (cadr NORMAL)) (/ 1 64.0))
)
(setq ECS_X (xdrx_vector_normalize
(xdrx_vector_crossproduct
'(0 1 0)
NORMAL
)
)
)
(setq ECS_X (xdrx_vector_normalize
(xdrx_vector_crossproduct
'(0 0 1)
NORMAL
)
)
)
)
(setq ECS_Y (xdrx_vector_crossproduct NORMAL ECS_X))
(list ECS_X (xdrx_vector_normalize ECS_Y) NORMAL)
)
;;--------------------------------------------------------

;;对region物件无效 
(defun c:UCS_Z(/ e) 
   (if (setq e (car (entsel))) 
     (progn 
        (command "._ucs" "n" "ob" e) 
        (command "._ucs" "n" "za" "" '(0 -1 0)) 
     ) 
   ) 
   (princ) 
) 
 
 
对region物件有效 
(defun c:UCS_Z(/ e) 
   (if (setq e (cadr (entsel))) 
     (progn 
        (command "._ucs" "n" "ob" e) 
        (command "._ucs" "n" "za" "" '(0 -1 0)) 
     ) 
   ) 
   (princ) 
) 
 
对region对象有效,是因为有点选动作,但如在选集中, 
则对region无效,连双元表也对其无效(可能我对双元表用错了)。 
 
(defun C:UCS_Z (/ E) 
  (setq E (ssget '((0 . "region")))) 
  (command "._ucs" "n" "ob" (list (ssname E 0) '(0 0 0))) 
) 
 
设 REGION对Z轴旋转30度,再對X轴旋转30度 
(不在世界坐标 OR  Z不等于0 ),即不能用vla-get-centroid取得质心, 
但当对REGION作对象UCS则问题解决。 
 
 
问题待解: 
如何在选集中对REGION作对象UCS??? 
 
;;在质心上画点 
(defun C:CENTROID (/ HOLDOSMODE SS N CENT KEY KEY1 KEY2 TMP) 
  (defun DO_IT (ENT) 
    (setq 
      CENT 
       (vlax-get (vlax-ename->vla-object ENT) "centroid") 
    ) 
    (prompt (strcat "\n矩心= " (vl-princ-to-string CENT))) 
    (command "_.POINT" CENT) 
  ) 
  (vl-load-com) 
  (setq HOLDOSMODE (getvar "osmode")) 
  (while (= SS NIL) 
    (prompt "\n选择对象: ") 
    (setq 
      SS (ssget 
           '((0 . "region,lwpolyline,polyline,circle,ellipse,spline")) 
         ) 
    ) 
  ) 
  (setq N 0) 
  (setvar "osmode" 0) 
  (setvar "PDMODE" 35) 
  (repeat (sslength SS) 
    (setq KEY1 (ssname SS N)) 
    (setq KEY2 (vlax-ename->vla-object KEY1)) 
    (setq KEY (cdr (assoc 0 (entget KEY1)))) 
    (cond 
      ((= KEY "REGION") 
       ;;(M_UCS KEY2) 
       (DO_IT KEY1) 
       (command "_.UCS" "P") 
      ) 
      ((or (= KEY "CIRCLE") 
           (= KEY "ELLIPSE") 
           (and 
             (or (= KEY "LWPOLYLINE") 
                 (= KEY "POLYLINE") 
                 (= KEY "SPLINE") 
             ) 
             (= :vlax-true (vla-get-closed KEY2)) 
           ) 
       ) 
       (command "_.COPY" KEY1 "" "0,0" "@") 
       (command "_.REGION" (entlast) "") 
       (setq TMP (entlast)) 
       ;;(M_UCS (vlax-ename->vla-object TMP)) 
       (DO_IT TMP) 
       (command "_.ERASE" TMP "") 
      ) 
    ) 
    (setq N (1+ N)) 
  ) 
  (setvar "osmode" HOLDOSMODE) 
  (princ) 
) 
(princ) 
 
 
;;因求不出Z轴旋转或NEWUCS精度不足,故失败 
;;------------------------------------------------------- 
(defun M_UCS (ENT) 
  (setq        UCS (XDRX_MATRIX_GETECS 
              (vlax-safearray->list 
                (vlax-variant-value (vla-get-normal ENT)) 
              ) 
            ) 
  ) 
  (setq        NEWUCS (vla-add        (vla-get-usercoordinatesystems 
                          (setq        DOC (vla-get-activedocument 
                                      (vlax-get-acad-object) 
                                    ) 
                          ) 
                        ) 
                        (vlax-3d-point '(0 0 0)) 
                        (vlax-3d-point (nth 0 UCS)) 
                        (vlax-3d-point (nth 1 UCS)) 
                        "New_UCS" 
               ) 
  ) 
  (vla-put-activeucs DOC NEWUCS) 
) 
 
(defun XDRX_MATRIX_GETECS (NORMAL / ECS_X ECS_Y) 
  (setq NORMAL (xdrx_vector_normalize NORMAL)) 
  (if (and 
        (< (abs (car NORMAL)) (/ 1 64.0)) 
        (< (abs (cadr NORMAL)) (/ 1 64.0)) 
      ) 
    (setq ECS_X        (xdrx_vector_normalize 
                  (xdrx_vector_crossproduct 
                    '(0 1 0) 
                    NORMAL 
                  ) 
                ) 
    ) 
    (setq ECS_X        (xdrx_vector_normalize 
                  (xdrx_vector_crossproduct 
                    '(0 0 1) 
                    NORMAL 
                  ) 
                ) 
    ) 
  ) 
  (setq ECS_Y (xdrx_vector_crossproduct NORMAL ECS_X)) 
  (list ECS_X (xdrx_vector_normalize ECS_Y) NORMAL) 
) 
;;--------------------------------------------------------

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

[求助] [求助]：ECS到WCS兼问XdRx_Matrix_ecs2wcs。

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

相关帖子

Re: [求助]：ECS到WCS兼问XdRx_Matrix_ecs2wcs。