LWPolyline 的Coordinate转换到 WCS

st788796

OCS 的坐标原点和 WCS 原点 重合，LWpolyline 的节点坐标为 OCS，转换时要加上 38 组码(elevation)

2. 
   
3. (defun c:tt (/ ss e obj el i z nor ptocs ptwcs)
   
4.   (setvar "dimzin" 0)
   
5.   (if (setq ss (ssget "+.:S" '((0 . "lwpolyline"))))
   
6.     (progn
   
7.       (setq e        (ssname ss 0)
   
8.             el        (entget e)
   
9.             obj        (vlax-ename->vla-object e)
   
10.             z        (cdr (assoc 38 el))
    
11.             nor        (cdr (assoc 210 el))
    
12.       )
    
13.       (princ "\n节点数 = ")
    
14.       (princ (cdr (assoc 90 el)))
    
15.       (while (and (setq i (getint "\n索引: "))
    
16.                   (< i (cdr (assoc 90 el)))
    
17.              )
    
18.         (setq ptocs (safearray-value (variant-value (vla-get-coordinate obj i)))
    
19.               ptwcs (trans (append ptocs (list z)) nor 0)
    
20.         )
    
21.         (princ (strcat "\nOCS = "
    
22.                        (rtos (car ptocs) 2 3)
    
23.                        ","
    
24.                        (rtos (cadr ptocs) 2 3)
    
25.                )
    
26.         )
    
27.         (princ (strcat "\nWCS = "
    
28.                        (rtos (car ptwcs) 2 3)
    
29.                        ","
    
30.                        (rtos (cadr ptwcs) 2 3)
    
31.                        ","
    
32.                        (rtos (last ptwcs) 2 3)
    
33.                )
    
34.         )
    
35.       )
    
36.     )
    
37.   )
    
38.   (princ)
    
39. )

<br /> (defun c:tt (/ ss e obj el i z nor ptocs ptwcs)<br />   (setvar "dimzin" 0)<br />   (if (setq ss (ssget "+.:S" '((0 . "lwpolyline"))))<br />     (progn<br />       (setq e        (ssname ss 0)<br />             el        (entget e)<br />             obj        (vlax-ename->vla-object e)<br />             z        (cdr (assoc 38 el))<br />             nor        (cdr (assoc 210 el))<br />       )<br />       (princ "\n节点数 = ")<br />       (princ (cdr (assoc 90 el)))<br />       (while (and (setq i (getint "\n索引: "))<br />                   (< i (cdr (assoc 90 el)))<br />              )<br />         (setq ptocs (safearray-value (variant-value (vla-get-coordinate obj i)))<br />               ptwcs (trans (append ptocs (list z)) nor 0)<br />         )<br />         (princ (strcat "\nOCS = "<br />                        (rtos (car ptocs) 2 3)<br />                        ","<br />                        (rtos (cadr ptocs) 2 3)<br />                )<br />         )<br />         (princ (strcat "\nWCS = "<br />                        (rtos (car ptwcs) 2 3) <br />                        ","<br />                        (rtos (cadr ptwcs) 2 3)<br />                        ","<br />                        (rtos (last ptwcs) 2 3)<br />                )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

转换结果可以使用 vlax-curve-getpointatparam 验证，同样 AddVertex 时也要将 WCS 转换到 OCS
这个 OCS 是什么一个 UCS 呢？
可以使用 UCS 命令的  ZA 选项建立，原点为 (0 0 0)  ZAxis 为 组码 210 的值