3DFACE转三维、二维多段线

newer

1. (defun c:xdrx_3dface2pln (/ ss val len pts x ss1)
   
2.   (if (and (xdrx_initssget "\n选择要转换的3DFACE<退出>:")
   
3.            (setq ss (xdrx_ssget '((0 . "3dface"))))
   
4.       )
   
5.     (progn
   
6.       (xdrx_initget "0 1")
   
7.       (if (not (setq val (getint "\n[三维多段线(0)/多段线(1)]<0>:")))
   
8.         (setq val 0)
   
9.       )
   
10.       (xdrx_setmark)
    
11.       (xdrx_begin)
    
12.       (setq len (sslength ss))
    
13.       (mapcar '(lambda (x)
    
14.                  (setq pts (xdrx_getpropertyvalue x "vertices")
    
15.                        pts (xd::list:removedup pts)
    
16.                  )
    
17.                  (xdrx_3dpolyline_make pts)
    
18.                  (xdrx_setpropertyvalue (entlast) "makeclosed" t)
    
19.                  (xdrx_entity_setpropertiesfrom (entlast) x)
    
20.                  (xdrx_entity_delete x)
    
21.                )
    
22.               (xdrx_pickset->ents ss)
    
23.       )
    
24.       (setq ss1 (xdrx_getss 9))
    
25.       (if (= val 1)
    
26.         (xdrx_entity_project ss1)
    
27.       )
    
28.       (xdrx_prompt
    
29.         "\n"
    
30.         len
    
31.         "个三维面转成了"
    
32.         (if (= val 0)
    
33.           "三维"
    
34.           ""
    
35.         )
    
36.         "多段线."
    
37.       )
    
38.       (xdrx_end)
    
39.     )
    
40.   )
    
41.   (princ)
    
42. )
    

(defun c:xdrx_3dface2pln (/ ss val len pts x ss1)<br />   (if (and (xdrx_initssget "\n选择要转换的3DFACE<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "3dface"))))<br />       )<br />     (progn<br />       (xdrx_initget "0 1")<br />       (if (not (setq val (getint "\n[三维多段线(0)/多段线(1)]<0>:")))<br />         (setq val 0)<br />       )<br />       (xdrx_setmark)<br />       (xdrx_begin)<br />       (setq len (sslength ss))<br />       (mapcar '(lambda (x)<br />                  (setq pts (xdrx_getpropertyvalue x "vertices")<br />                        pts (xd::list:removedup pts)<br />                  )<br />                  (xdrx_3dpolyline_make pts)<br />                  (xdrx_setpropertyvalue (entlast) "makeclosed" t)<br />                  (xdrx_entity_setpropertiesfrom (entlast) x)<br />                  (xdrx_entity_delete x)<br />                )<br />               (xdrx_pickset->ents ss)<br />       )<br />       (setq ss1 (xdrx_getss 9))<br />       (if (= val 1)<br />         (xdrx_entity_project ss1)<br />       )<br />       (xdrx_prompt<br />         "\n"<br />         len<br />         "个三维面转成了"<br />         (if (= val 0)<br />           "三维"<br />           ""<br />         )<br />         "多段线."<br />       )<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />