【AcGe几何库（四十）】曲线的Z坐标归0

newer

对于曲线，我们可以通过几何实体的project 或者 orthoProject 的方法投影到原点0,0,0，法线 0,0,1.0的平面上做到Z坐标归0，当然，改变平面原点的Z值，可以把Z归到任意高度。

1. (defun c:tt ()
   
2.   (if (and (xdrx_initssget "\n选择曲线<退出>:")
   
3.            (setq ss (xdrx_ssget '((0 . "*line,arc,ellipse,circle"))))
   
4.       )
   
5.     (progn (setq plane (xdge::constructor "kPlane" '(0 0 0) '(0 0 1.0)))
   
6.            (mapcar '(lambda (x)
   
7.                       (setq g (xdge::constructor x))
   
8.                       (setq g1 (xdge::getpropertyvalue g "orthoproject" plane))
   
9.                       (setq e1 (xdge::entity:make g1))
   
10.                       (if (xdrx_object_isa x "AcDb2dPolyline")
    
11.                         (xdrx_polyline_convertto e1)
    
12.                       )
    
13.                       (xdrx_entity_matchprop x e1)
    
14.                       (xdrx_object_swapid e1 x)
    
15.                       (xdrx_entity_delete e1)
    
16.                       (xdge::free g)
    
17.                     )
    
18.                    (xdrx_pickset->ents ss)
    
19.            )
    
20.            (xdrx_prompt "\n" (sslength ss) " 条曲线Z归0.")
    
21.            (xdge::free plane)
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )
    

(defun c:tt ()<br />   (if (and (xdrx_initssget "\n选择曲线<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "*line,arc,ellipse,circle"))))<br />       )<br />     (progn (setq plane (xdge::constructor "kPlane" '(0 0 0) '(0 0 1.0)))<br />            (mapcar '(lambda (x)<br />                       (setq g (xdge::constructor x))<br />                       (setq g1 (xdge::getpropertyvalue g "orthoproject" plane))<br />                       (setq e1 (xdge::entity:make g1))<br />                       (if (xdrx_object_isa x "AcDb2dPolyline")<br />                         (xdrx_polyline_convertto e1)<br />                       )<br />                       (xdrx_entity_matchprop x e1)<br />                       (xdrx_object_swapid e1 x)<br />                       (xdrx_entity_delete e1)<br />                       (xdge::free g)<br />                     )<br />                    (xdrx_pickset->ents ss)<br />            )<br />            (xdrx_prompt "\n" (sslength ss) " 条曲线Z归0.")<br />            (xdge::free plane)<br />     )<br />   )<br />   (princ)<br /> )<br />

wbwell