设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：ECS到WCS兼问XdRx_Matrix_ecs2wcs。
返回列表 发新帖
查看: 1258|回复: 7

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

[复制链接]
eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2003-2-24 18:35:41 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
为什么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中生成的实体。

  2. xdrx_matrix_ecs2wcs

  4. 功    能：获得对象的ECS(OCS)到WCS下的转换矩阵

  6. 调用格式：(xdrx_matrix_ecs2wcs <实体名>)

  8. 返 回 值：矩阵表
复制代码
0.0, 矩阵, WCS

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2003-2-24 19:49:09 | 显示全部楼层

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

最初由 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轴不同的时候，返回的转换矩阵才不是上面的单位矩阵。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2003-2-24 22:19:04 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
贴个图，方便理解下


                               
登录/注册后可看大图
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
 楼主| 发表于 2003-2-25 01:13:59 | 显示全部楼层
第二次重新指定了UCS，ECS的转换矩阵还是一样的？
  1. 命令: ucs

  3. 当前 UCS 名称: *世界*
  4. 输入选项
  5. [新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
  6. <世界>: n

  8. 指定新 UCS 的原点或 [Z 轴(ZA)/三点(3)/对象(OB)/面(F)/视图(V)/X/Y/Z] <0,0,0>:
  9. 30,40

  11. 命令:
  12. UCS
  13. 当前 UCS 名称: *没有名称*
  14. 输入选项
  15. [新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
  16. <世界>: n

  18. 指定新 UCS 的原点或 [Z 轴(ZA)/三点(3)/对象(OB)/面(F)/视图(V)/X/Y/Z] <0,0,0>: z

  20. 指定绕 Z 轴的旋转角度 <90>: 30

  22. 命令:
  23. UCS
  24. 当前 UCS 名称: *没有名称*
  25. 输入选项
  26. [新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
  27. <世界>: n

  29. 指定新 UCS 的原点或 [Z 轴(ZA)/三点(3)/对象(OB)/面(F)/视图(V)/X/Y/Z] <0,0,0>: x

  31. 指定绕 X 轴的旋转角度 <90>: 30

  33. 命令: cr CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:
  34. 指定圆的半径或 [直径(D)]:
  35. 命令: li LIST
  36. 选择对象: 找到 1 个

  38. 选择对象:
  39.                   CIRCLE    Layer: "0"
  40.                             Space: Model space
  41.                    Handle = 70
  42.             center point, X= 472.0912  Y= -10.7099  Z=   0.0000
  43.             radius   95.2802
  44.      circumference  598.6634
  45.               area 28520.3972

  47. [color=blue]命令: (xdrx_matrix_ecs2wcs (car (entsel)))

  49. 选择对象: ((0.866025 -0.433013 0.25 0.0) (0.5 0.75 -0.433013 0.0) (0.0 0.5
  50. 0.866025 0.0) (0.0 0.0 0.0 1.0))[/color]

  52. [color=red]命令: ucs
  53. 当前 UCS 名称: *没有名称*
  54. 输入选项
  55. [新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
  56. <世界>: n
  57. 指定新 UCS 的原点或 [Z 轴(ZA)/三点(3)/对象(OB)/面(F)/视图(V)/X/Y/Z] <0,0,0>:[/color]
  58. 命令: cr CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:
  59. 指定圆的半径或 [直径(D)] <95.2802>:
  60. 命令: (xdrx_matrix_ecs2wcs (car (entsel)))

  62. 选择对象: ((0.866025 -0.433013 0.25 0.0) (0.5 0.75 -0.433013 0.0) (0.0 0.5
  63. 0.866025 0.0) (0.0 0.0 0.0 1.0))
复制代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
发表于 2003-2-27 10:49:40 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
;;"ECS的原点和WCS原点相同，只有X,Y轴不同的时候，返回的转换矩阵才不是上面的单位矩阵。"

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

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

;;如能求出Z轴旋转, 就有希望建立对象UCS。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 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
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
 楼主| 发表于 2003-2-27 13:59:18 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
对于210组码，就是说只要Z高度一定的实体，不管UCS原点在哪里，其ECS－》WCS矩阵都相同。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
发表于 2003-2-27 14:39:07 | 显示全部楼层

  3. ;;对region物件无效
  4. (defun c:UCS_Z(/ e)
  5.    (if (setq e (car (entsel)))
  6.      (progn
  7.         (command "._ucs" "n" "ob" e)
  8.         (command "._ucs" "n" "za" "" '(0 -1 0))
  9.      )
  10.    )
  11.    (princ)
  12. )


  15. 对region物件有效
  16. (defun c:UCS_Z(/ e)
  17.    (if (setq e (cadr (entsel)))
  18.      (progn
  19.         (command "._ucs" "n" "ob" e)
  20.         (command "._ucs" "n" "za" "" '(0 -1 0))
  21.      )
  22.    )
  23.    (princ)
  24. )

  26. 对region对象有效,是因为有点选动作,但如在选集中,
  27. 则对region无效,连双元表也对其无效(可能我对双元表用错了)。

  29. (defun C:UCS_Z (/ E)
  30.   (setq E (ssget '((0 . "region"))))
  31.   (command "._ucs" "n" "ob" (list (ssname E 0) '(0 0 0)))
  32. )

  34. 设 REGION对Z轴旋转30度,再對X轴旋转30度
  35. (不在世界坐标 OR  Z不等于0 ),即不能用vla-get-centroid取得质心,
  36. 但当对REGION作对象UCS则问题解决。


  39. 问题待解:
  40. 如何在选集中对REGION作对象UCS???

  42. ;;在质心上画点
  43. (defun C:CENTROID (/ HOLDOSMODE SS N CENT KEY KEY1 KEY2 TMP)
  44.   (defun DO_IT (ENT)
  45.     (setq
  46.       CENT
  47.        (vlax-get (vlax-ename->vla-object ENT) "centroid")
  48.     )
  49.     (prompt (strcat "\n矩心= " (vl-princ-to-string CENT)))
  50.     (command "_.POINT" CENT)
  51.   )
  52.   (vl-load-com)
  53.   (setq HOLDOSMODE (getvar "osmode"))
  54.   (while (= SS NIL)
  55.     (prompt "\n选择对象: ")
  56.     (setq
  57.       SS (ssget
  58.            '((0 . "region,lwpolyline,polyline,circle,ellipse,spline"))
  59.          )
  60.     )
  61.   )
  62.   (setq N 0)
  63.   (setvar "osmode" 0)
  64.   (setvar "PDMODE" 35)
  65.   (repeat (sslength SS)
  66.     (setq KEY1 (ssname SS N))
  67.     (setq KEY2 (vlax-ename->vla-object KEY1))
  68.     (setq KEY (cdr (assoc 0 (entget KEY1))))
  69.     (cond
  70.       ((= KEY "REGION")
  71.        ;;(M_UCS KEY2)
  72.        (DO_IT KEY1)
  73.        (command "_.UCS" "P")
  74.       )
  75.       ((or (= KEY "CIRCLE")
  76.            (= KEY "ELLIPSE")
  77.            (and
  78.              (or (= KEY "LWPOLYLINE")
  79.                  (= KEY "POLYLINE")
  80.                  (= KEY "SPLINE")
  81.              )
  82.              (= :vlax-true (vla-get-closed KEY2))
  83.            )
  84.        )
  85.        (command "_.COPY" KEY1 "" "0,0" "@")
  86.        (command "_.REGION" (entlast) "")
  87.        (setq TMP (entlast))
  88.        ;;(M_UCS (vlax-ename->vla-object TMP))
  89.        (DO_IT TMP)
  90.        (command "_.ERASE" TMP "")
  91.       )
  92.     )
  93.     (setq N (1+ N))
  94.   )
  95.   (setvar "osmode" HOLDOSMODE)
  96.   (princ)
  97. )
  98. (princ)


  101. ;;因求不出Z轴旋转或NEWUCS精度不足,故失败
  102. ;;-------------------------------------------------------
  103. (defun M_UCS (ENT)
  104.   (setq        UCS (XDRX_MATRIX_GETECS
  105.               (vlax-safearray->list
  106.                 (vlax-variant-value (vla-get-normal ENT))
  107.               )
  108.             )
  109.   )
  110.   (setq        NEWUCS (vla-add        (vla-get-usercoordinatesystems
  111.                           (setq        DOC (vla-get-activedocument
  112.                                       (vlax-get-acad-object)
  113.                                     )
  114.                           )
  115.                         )
  116.                         (vlax-3d-point '(0 0 0))
  117.                         (vlax-3d-point (nth 0 UCS))
  118.                         (vlax-3d-point (nth 1 UCS))
  119.                         "New_UCS"
  120.                )
  121.   )
  122.   (vla-put-activeucs DOC NEWUCS)
  123. )

  125. (defun XDRX_MATRIX_GETECS (NORMAL / ECS_X ECS_Y)
  126.   (setq NORMAL (xdrx_vector_normalize NORMAL))
  127.   (if (and
  128.         (< (abs (car NORMAL)) (/ 1 64.0))
  129.         (< (abs (cadr NORMAL)) (/ 1 64.0))
  130.       )
  131.     (setq ECS_X        (xdrx_vector_normalize
  132.                   (xdrx_vector_crossproduct
  133.                     '(0 1 0)
  134.                     NORMAL
  135.                   )
  136.                 )
  137.     )
  138.     (setq ECS_X        (xdrx_vector_normalize
  139.                   (xdrx_vector_crossproduct
  140.                     '(0 0 1)
  141.                     NORMAL
  142.                   )
  143.                 )
  144.     )
  145.   )
  146.   (setq ECS_Y (xdrx_vector_crossproduct NORMAL ECS_X))
  147.   (list ECS_X (xdrx_vector_normalize ECS_Y) NORMAL)
  148. )
  149. ;;--------------------------------------------------------
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-5-4 19:35 , Processed in 0.182998 second(s), 43 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表