获得ECS到WCS变换矩阵

Lispboy

1. ;|
   
2. 获得ECS（实际）到WCS的变换矩阵
   
3. 参数：
   
4.      e ---- 实体名
   
5. 
   
6. 返回值： 矩阵
   
7. |;
   
8. (defun XD::Matrix:Ecs2Wcs (e / ed z zz p10 mat ori m)
   
9.   (xdrx_sysvar_push '("cmdecho" 0))
   
10.   (command "ucs" "Object" e)
    
11.   (setq xdir (getvar "ucsxdir")
    
12.         ydir (getvar "ucsydir")
    
13.         zdir (xdrx_vector_crossproduct xdir ydir)
    
14.         ori (getvar "ucsorg")
    
15.         mat (cons ori (list xdir ydir zdir))
    
16.         m (xdrx_matrix_aligncoordsystem (list '(0 0 0) '(1 0 0) '(0 1 0) '
    
17.                                               (0 0 1)
    
18.                                         ) mat
    
19.           )
    
20.   )
    
21.   (command "ucs" "p")
    
22.   (xdrx_sysvar_pop)
    
23.   m
    
24. )

;|<br /> 获得ECS（实际）到WCS的变换矩阵<br /> 参数：<br />      e ---- 实体名<br /> <br /> 返回值： 矩阵<br /> |;<br /> (defun XD::Matrix:Ecs2Wcs (e / ed z zz p10 mat ori m)<br />   (xdrx_sysvar_push '("cmdecho" 0))<br />   (command "ucs" "Object" e)<br />   (setq xdir (getvar "ucsxdir")<br />         ydir (getvar "ucsydir")<br />         zdir (xdrx_vector_crossproduct xdir ydir)<br />         ori (getvar "ucsorg")<br />         mat (cons ori (list xdir ydir zdir))<br />         m (xdrx_matrix_aligncoordsystem (list '(0 0 0) '(1 0 0) '(0 1 0) '<br />                                               (0 0 1)<br />                                         ) mat<br />           )<br />   )<br />   (command "ucs" "p")<br />   (xdrx_sysvar_pop)<br />   m<br /> )

Highflybird

这个地方采用了command,效率无法提升。

/db_自贡黄明儒_

Highflybird 发表于 2013-7-1 08:50
这个地方采用了command,效率无法提升。

请教：如果不用commad,又该怎么写呢？

newer

/db_自贡黄明儒_ 发表于 2013-9-16 15:10
请教：如果不用commad,又该怎么写呢？

API现在直接封装了，不用COMMAND

xdrx_entity_getecs

也可以不用COMMAND "UCS" OB， 去设置UCS了， xdrx_ucs_set, 上面这个LISP如果不用xdrx_entity_getecs， 可以用 xdrx_ucs_set 代替那个COMMAND

/db_自贡黄明儒_

Highflybird 发表于 2013-7-1 08:50
这个地方采用了command,效率无法提升。

请教：如果不用commad,又该怎么写呢？

Free-Lancer

/db_自贡黄明儒_ 发表于 2013-9-16 15:38
请教：如果不用commad,又该怎么写呢？

查 高飞鸟 版主的 Trans 文章，最后有 一段 OcsMatrix 代码