转换3DFACE到POLYLINE

XDSoft

Converting 3dface to a polyline

问题：

How do I convert 3dFaces to polylines ?

解答：

There's no mechanism available to do this directly. What you'll need to do is
collect the 3dFace vertex data, and create a polyline using that information.

Since a 3dFace will probably be construced with differing X,Y, and Z coordinates
you can only re-create them as a 3dPolyline. If the face's Z coordinates are on
the same elevation, you could re-create them as a 2d polyline. Here's some lisp
code to demonstrate this:

1. (defun C:3DFtoPL(/ ss1 sl i)
   
2.   (setq ss1 (ssget "X" (list (cons '0 "3DFACE"))))
   
3.   (setq sl (sslength ss1))
   
4.   (setq i 0)
   
5.   (while (< i sl)
   
6.      (setq ent1 (entget (setq e1 (ssname ss1 i))))
   
7.      (setq pt1 (cdr (assoc '10 ent1)))
   
8.      (setq pt2 (cdr (assoc '11 ent1)))
   
9.      (setq pt3 (cdr (assoc '12 ent1)))
   
10.      (setq pt4 (cdr (assoc '13 ent1)))
    
11.      ;  Plain 2D Polylines
    
12.      ;(command "PLINE" pt1 pt2 pt3)
    
13.      ; 3dPolylines ->
    
14.      (command "3DPOLY" pt1 pt2 pt3)
    
15.      (if (/= pt3 pt4) (command pt4 "c") (command "c") )
    
16.      (entdel e1)
    
17.      (setq i (1+ i))
    
18.   )
    
19.   (setq ss1 nil)
    
20.   (princ)
    
21. )
    
22. 
    
23. (princ "\nC:3DFtoPL loaded, to run type 3DFtoPL.")
    
24. (princ)
    

(defun C:3DFtoPL(/ ss1 sl i)<br />   (setq ss1 (ssget "X" (list (cons '0 "3DFACE"))))<br />   (setq sl (sslength ss1))<br />   (setq i 0)<br />   (while (< i sl)<br />      (setq ent1 (entget (setq e1 (ssname ss1 i))))<br />      (setq pt1 (cdr (assoc '10 ent1)))<br />      (setq pt2 (cdr (assoc '11 ent1)))<br />      (setq pt3 (cdr (assoc '12 ent1)))<br />      (setq pt4 (cdr (assoc '13 ent1)))<br />      ;  Plain 2D Polylines<br />      ;(command "PLINE" pt1 pt2 pt3)<br />      ; 3dPolylines -><br />      (command "3DPOLY" pt1 pt2 pt3)<br />      (if (/= pt3 pt4) (command pt4 "c") (command "c") )<br />      (entdel e1)<br />      (setq i (1+ i))<br />   )<br />   (setq ss1 nil)<br />   (princ)<br /> )<br /> <br /> (princ "\nC:3DFtoPL loaded, to run type 3DFtoPL.")<br /> (princ)<br />

dwg001

very    good！   thanks。

ilovem

谢谢楼主的分享

nore

原来只能再画一条线啊，不能直接转换，挺奇怪