Polylne_Compress Bug

st788796

偶然发现，看最近要求写侧视图的比较多，在想一个适应指定投影面的算法，绕了很多玩，最后找到用 Curve_GetProjectCurve 很简单的事，不过这个投影出来的 Pline 是 UCS 线，开始以为有重点，就用了 Xdrx_Polyline_Compress , 用完才发现这个函数把 UCS Pline 变换到 WCS 了，运行完没有给变换回来！
下面是测试代码，生成的 Pline 用 Compress 就有 BUG了

1. (defun ProjectCurves (curve v d / box outbox v1)
   
2.   (setq        box    (xdrx_entity_box curve)
   
3.         outBox (apply 'xdrx_points_offset (cons d (XD::Pnts:Close box)))
   
4.         v      (xdrx_vector_normalize v)
   
5.         v1     (xdrx_vector_normalize (xdrx_vector_perpvector v))
   
6.   )
   
7.   (mapcar '(lambda (x y)
   
8.              (xdrx_curve_getProjectCurve curve (list x y))
   
9.            )
   
10.           outbox
    
11.           (list v1 v v1 v)
    
12.   )
    
13. )
    
14. (defun c:tt (/ e p1 p2 d)
    
15.   (and (setq
    
16.          e (car (xdrx_entsel "\nPick Pline: " '((0 . "lwpolyline"))))
    
17.        )
    
18.        (setq p1 (getpoint "\nFirst point: "))
    
19.        (setq p2 (getpoint p1 "\nSecond point: "))
    
20.        (setq d (getdist p1 "\nSpace: "))
    
21.        (ProjectCurves e (mapcar '- p2 p1) d)
    
22.   )
    
23. )
    

(defun ProjectCurves (curve v d / box outbox v1)<br />   (setq        box    (xdrx_entity_box curve)<br />         outBox (apply 'xdrx_points_offset (cons d (XD::Pnts:Close box)))<br />         v      (xdrx_vector_normalize v)<br />         v1     (xdrx_vector_normalize (xdrx_vector_perpvector v))<br />   )<br />   (mapcar '(lambda (x y)<br />              (xdrx_curve_getProjectCurve curve (list x y))<br />            )<br />           outbox<br />           (list v1 v v1 v)<br />   )<br /> )<br /> (defun c:tt (/ e p1 p2 d)<br />   (and (setq<br />          e (car (xdrx_entsel "\nPick Pline: " '((0 . "lwpolyline"))))<br />        )<br />        (setq p1 (getpoint "\nFirst point: "))<br />        (setq p2 (getpoint p1 "\nSecond point: "))<br />        (setq d (getdist p1 "\nSpace: "))<br />        (ProjectCurves e (mapcar '- p2 p1) d)<br />   )<br /> )<br />

XDSoft

把实体transform到世界坐标系然后再xdrx_polyline_compress

命令: (setq from (xdrx_entity_getecs (car (entsel))))

选择对象: ((3510.42 0.0 0.0) (1.0 0.0 0.0) (0.0 0.0 1.0) (0.0 -1.0 0.0))

命令: (setq to (list (car from) '(1 0 0)(0 1 0)(0 0 1)))
; 错误: 函数错误: 0

命令: (setq to (list (car from) '(1 0 0)'(0 1 0)'(0 0 1)))
((3510.42 0.0 0.0) (1 0 0) (0 1 0) (0 0 1))

命令: (setq mat (xdrx_matrix_aligncoordsystem from to))
((1.0 0.0 0.0 0.0) (0.0 0.0 1.0 0.0) (0.0 -1.0 0.0 0.0) (0.0 0.0 0.0 1.0))

命令: (xdrx_entity_transformedcopy (car (entsel)) mat)

选择对象: <Selection set: 21f>

st788796

现在知道了,转 WCS 再转回去, 一般这样应用不多