[求助]：关于Vla-GetUCSMatrix、Vla-TransFormBy函数。

eachy

请教：

1 Vla-GetUCSMatrix 使用示例。

2 Vla-TransFormBy能否对点转换。

1. 
   
2. [color=blue]  Vla-TransFormBy[/color]
   
3. 
   
4.   功    能：依给定的4x4转换矩阵移动、调整或旋转对象。
   
5. 
   
6.   语法格式：object.TransformBy TransformationMatrix
   
7. 
   
8.   Object    这个方法适用于所有的Drawing对象、AttributeRef。
   
9. 
   
10.   TransformationMatrix 变体或双精度类型的4x4数组；输入要执行转换的4x4矩阵。
    

复制代码

eachy

问题1已解决。

2. 
   
3. (setq        matrix (vla-getucsmatrix
   
4.                  (vla-get-activeucs
   
5.                    (vla-get-activedocument (vlax-get-acad-object))
   
6.                  )
   
7.                )
   
8.   )

<br /> (setq        matrix (vla-getucsmatrix<br />                  (vla-get-activeucs<br />                    (vla-get-activedocument (vlax-get-acad-object))<br />                  )<br />                )<br />   )

问题2 ：有转换点的函数吗？

1. 
   
2. (vla-transformby
   
3.       (vlax-ename->vla-object (car (entsel)))
   
4.       (vla-getucsmatrix
   
5.         (vla-get-activeucs
   
6.           (vla-get-activedocument (vlax-get-acad-object))
   
7.         )
   
8.       )
   
9.     )

复制代码

LUCAS

Translates a point from one coordinate system to another coordinate system.

Signature

RetVal = TranslateCoordinates(OriginalPoint, From, To, Disp[, OCSNormal])

eachy

最初由 LUCAS 发布
[B]Translates a point from one coordinate system to another coordinate system.

Signature

RetVal = TranslateCoordinates(OriginalPoint, From, To, Disp[, OCSNormal]) [/B]

请详细讲讲，谢谢。

LUCAS

2. 
   
3. ;;By LUCAS(龙龙仔)
   
4. ;;3点建UCS,再求垂直点线
   
5. (defun C:EE (/ PT1 PT2 PT3 PT4 UTIL WW)
   
6.   (setq        UTIL
   
7.          (vla-get-utility
   
8.            (vla-get-activedocument
   
9.              (vlax-get-acad-object)
   
10.            )
    
11.          )
    
12.   )
    
13.   (command "_.ucs" "w")
    
14.   (setq PT1 (getpoint "\n第一点: "))
    
15.   (setq PT2 (getpoint PT1 "\n第二点: "))
    
16.   (grdraw PT1 PT2 3 1)
    
17.   (setq PT3 (getpoint PT2 "\n第三点: "))
    
18.   (grdraw PT2 PT3 3 1)
    
19.   (grdraw PT3 PT1 3 1)
    
20.   (setq PT4 (getpoint "\n面外点: "))
    
21.   (command "_.regen")
    
22.   (command "_.ucs" 3 PT1 PT2 PT3)
    
23.   (vlax-safearray-put-element
    
24.     (setq WW (vlax-variant-value
    
25.                (vla-translatecoordinates
    
26.                  UTIL
    
27.                  (vlax-3d-point PT4)
    
28.                  acworld
    
29.                  acucs
    
30.                  :vlax-false
    
31.                )
    
32.              )
    
33.     )
    
34.     2
    
35.     0
    
36.   )
    
37.   (setq        WW (vlax-safearray->list
    
38.              (vlax-variant-value
    
39.                (vla-translatecoordinates
    
40.                  UTIL WW acucs acworld :vlax-false)
    
41.              )
    
42.            )
    
43.   )
    
44.   (command "_.ucs" "p")
    
45.   (grdraw PT4 WW 3 1)
    
46.   ;;(grdraw PT1 PT2 3 1)
    
47.   ;;(grdraw PT2 PT3 3 1)
    
48.   ;;(grdraw PT3 PT1 3 1)
    
49.   (command "_.ucs" "p")
    
50.   (princ "\n垂点(世界坐标): ")
    
51.   (princ WW)
    
52.   (vlax-release-object UTIL)
    
53.   (princ)
    
54. )
    

<br /> ;;By LUCAS(龙龙仔)<br /> ;;3点建UCS,再求垂直点线<br /> (defun C:EE (/ PT1 PT2 PT3 PT4 UTIL WW)<br />   (setq        UTIL<br />          (vla-get-utility<br />            (vla-get-activedocument<br />              (vlax-get-acad-object)<br />            )<br />          )<br />   )<br />   (command "_.ucs" "w")<br />   (setq PT1 (getpoint "\n第一点: "))<br />   (setq PT2 (getpoint PT1 "\n第二点: "))<br />   (grdraw PT1 PT2 3 1)<br />   (setq PT3 (getpoint PT2 "\n第三点: "))<br />   (grdraw PT2 PT3 3 1)<br />   (grdraw PT3 PT1 3 1)<br />   (setq PT4 (getpoint "\n面外点: "))<br />   (command "_.regen")<br />   (command "_.ucs" 3 PT1 PT2 PT3)<br />   (vlax-safearray-put-element<br />     (setq WW (vlax-variant-value<br />                (vla-translatecoordinates<br />                  UTIL<br />                  (vlax-3d-point PT4)<br />                  acworld<br />                  acucs<br />                  :vlax-false<br />                )<br />              )<br />     )<br />     2<br />     0<br />   )<br />   (setq        WW (vlax-safearray->list<br />              (vlax-variant-value<br />                (vla-translatecoordinates<br />                  UTIL WW acucs acworld :vlax-false)<br />              )<br />            )<br />   )<br />   (command "_.ucs" "p")<br />   (grdraw PT4 WW 3 1)<br />   ;;(grdraw PT1 PT2 3 1)<br />   ;;(grdraw PT2 PT3 3 1)<br />   ;;(grdraw PT3 PT1 3 1)<br />   (command "_.ucs" "p")<br />   (princ "\n垂点(世界坐标): ")<br />   (princ WW)<br />   (vlax-release-object UTIL)<br />   (princ)<br /> )<br />

eachy

感谢龙龙仔，我对VL知之甚少，最近用到矩阵看了些资料。因为不懂VC，也不懂VB，只好看看线代，原来矩阵也可以用纯LSP写些转换函数，不就是行列式展开吗，加减乘除用lsp写还能应付，有时间写写近来的心得与大家分享。

目前有几个成果(纯LSP)：

(ea:matrix_inverse matrix)
获得矩阵的逆矩阵

(ea:getucsMatrix ucsname)
获得指定UCS到WCS的转换矩阵

(ea:point_transformby matrix)
获取矩阵转换后的点

(ea:vector_CrossProduct ve1 ve2)
求两垂直向量的叉积

LUCAS

矩阵我也不太懂,望你的程序早点完成