二维多段线转为三维多段线

lucas_3333

很讨厌看到这种需要先支付才能浏览的贴子!

这种2D polyline 转 3D polyline 的贴子多的是 ,没必要这么神秘
随便贴几个吧

Convert 3D Polylines To 2D Polylines

1. ;;CADALYST 09/03 AutoLISP Solutions
   
2. ;;; PLINE-3D-2D.LSP - a program to convert
   
3. ;;; 3D polylines to 2D
   
4. ;;; Program by Tony Hotchkiss
   
5. 
   
6. (defun pline-3d-2d ()
   
7.   (vl-load-com)
   
8.   (setq  *thisdrawing* (vla-get-activedocument
   
9.       (vlax-get-acad-object)
   
10.           ) ;_ end of vla-get-activedocument
    
11.   *modelspace*  (vla-get-ModelSpace *thisdrawing*)
    
12.   ) ;_ end of setq
    
13.   (setq  3d-pl-list
    
14.    (get-3D-pline)
    
15.   ) ;_ end of setq
    
16.   (if 3d-pl-list
    
17.     (progn
    
18.       (setq vert-array-list (make-list 3d-pl-list))
    
19.       (setq n (- 1))
    
20.       (repeat (length vert-array-list)
    
21.   (setq vert-array (nth (setq n (1+ n)) vert-array-list))
    
22.   (setq lyr (vlax-get-property (nth n 3d-pl-list) 'Layer))
    
23.   (setq obj (vla-AddPolyline *modelspace* vert-array))
    
24.   (vlax-put-property obj 'Layer lyr)
    
25.       ) ;_ end of repeat
    
26.       (foreach obj 3d-pl-list (vla-delete obj))
    
27.     ) ;_ end of progn
    
28.   ) ;_ end of if
    
29. ) ;_ end of pline-3d-2d
    
30. 
    
31. (defun get-3D-pline ()
    
32.   (setq  pl3dobj-list nil
    
33.   obj       nil
    
34.   3d       "AcDb3dPolyline"
    
35.   ) ;_ end of setq
    
36.   (setq selsets (vla-get-selectionsets *thisdrawing*))
    
37.   (setq ss1 (vlax-make-variant "ss1"))
    
38.   (if (= (vla-get-count selsets) 0)
    
39.     (setq ssobj (vla-add selsets ss1))
    
40.   ) ;_ end of if
    
41.   (vla-clear ssobj)
    
42.   (setq Filterdata (vlax-make-variant "POLYLINE"))
    
43.   (setq no-ent 1)
    
44.   (while no-ent
    
45.     (vla-Selectonscreen ssobj)
    
46.     (if  (> (vla-get-count ssobj) 0)
    
47.       (progn
    
48.   (setq no-ent nil)
    
49.   (setq i (- 1))
    
50.   (repeat  (vla-get-count ssobj)
    
51.     (setq
    
52.       obj  (vla-item ssobj
    
53.         (vlax-make-variant (setq i (1+ i)))
    
54.     ) ;_ end of vla-item
    
55.     ) ;_ end of setq
    
56.     (cond
    
57.       ((= (vlax-get-property obj "ObjectName") 3d)
    
58.        (setq pl3dobj-list
    
59.         (append pl3dobj-list (list obj))
    
60.        ) ;_ end of setq
    
61.       )
    
62.     ) ;_ end-of cond
    
63.   ) ;_ end of repeat
    
64.       ) ;_ end of progn
    
65.       (prompt "\nNo entities selected, try again.")
    
66.     ) ;_ end of if
    
67.     (if  (and (= nil no-ent) (= nil pl3dobj-list))
    
68.       (progn
    
69.   (setq no-ent 1)
    
70.   (prompt "\nNo 3D-polylines selected.")
    
71.   (quit)
    
72.       ) ;_ end of progn
    
73.     ) ;_ end of if
    
74.   ) ;_ end of while  
    
75.   (vla-delete (vla-item selsets 0))
    
76.   pl3dobj-list
    
77. ) ;_ end of get-3D-pline
    
78. 
    
79. 
    
80. (defun get-3D-pline-old ()
    
81.   (setq no-ent 1)
    
82.   (setq  filter '((-4 . "<AND")
    
83.      (0 . "POLYLINE")
    
84.      (70 . 8)
    
85.      (-4 . "AND>")
    
86.     )
    
87.   ) ;_ end of setq
    
88.   (while no-ent
    
89.     (setq ss         (ssget filter)
    
90.     k         (- 1)
    
91.     pl3dobj-list nil
    
92.     obj         nil
    
93.     3d         "AcDb3dPolyline"
    
94.     ) ;_ end-of setq
    
95.     (if  ss
    
96.       (progn
    
97.   (setq no-ent nil)
    
98.   (repeat  (sslength ss)
    
99.     (setq  ent (ssname ss (setq k (1+ k)))
    
100.     obj (vlax-ename->vla-object ent)
     
101.     ) ;_ end-of setq
     
102.     (cond
     
103.       ((= (vlax-get-property obj "ObjectName") 3d)
     
104.        (setq pl3dobj-list
     
105.         (append pl3dobj-list (list obj))
     
106.        ) ;_ end of setq
     
107.       )
     
108.     ) ;_ end-of cond
     
109.   ) ;_ end-of repeat
     
110.       ) ;_ end-of progn
     
111.       (prompt "\nNo 3D-polylines selected, try again.")
     
112.     ) ;_ end-of if
     
113.   ) ;_ end-of while
     
114.   pl3dobj-list
     
115. ) ;_ end of get-3D-pline-old
     
116. 
     
117. (defun make-list (p-list)
     
118.   (setq  i (- 1)
     
119.   vlist nil
     
120.   calist nil
     
121.   ) ;_ end of setq
     
122.   (repeat (length p-list)
     
123.     (setq obj   (nth (setq i (1+ i)) p-list)
     
124.     coords (vlax-get-property obj "coordinates")
     
125.     ca   (vlax-variant-value coords)
     
126.     ) ;_ end-of setq
     
127.     (setq calist (append calist (list ca)))
     
128.   ) ;_ end-of repeat
     
129. ) ;_ end-of make-list
     
130. 
     
131. (defun c:pl32 ()
     
132.   (pline-3d-2d)
     
133.   (princ)
     
134. ) ;_ end of pl32
     
135. 
     
136. (prompt "Enter PL32 to start: ")
     

;;CADALYST 09/03 AutoLISP Solutions<br /> ;;; PLINE-3D-2D.LSP - a program to convert<br /> ;;; 3D polylines to 2D<br /> ;;; Program by Tony Hotchkiss<br /> <br /> (defun pline-3d-2d ()<br />   (vl-load-com)<br />   (setq  *thisdrawing* (vla-get-activedocument<br />       (vlax-get-acad-object)<br />           ) ;_ end of vla-get-activedocument<br />   *modelspace*  (vla-get-ModelSpace *thisdrawing*)<br />   ) ;_ end of setq<br />   (setq  3d-pl-list<br />    (get-3D-pline)<br />   ) ;_ end of setq<br />   (if 3d-pl-list<br />     (progn<br />       (setq vert-array-list (make-list 3d-pl-list))<br />       (setq n (- 1))<br />       (repeat (length vert-array-list)<br />   (setq vert-array (nth (setq n (1+ n)) vert-array-list))<br />   (setq lyr (vlax-get-property (nth n 3d-pl-list) 'Layer))<br />   (setq obj (vla-AddPolyline *modelspace* vert-array))<br />   (vlax-put-property obj 'Layer lyr)<br />       ) ;_ end of repeat<br />       (foreach obj 3d-pl-list (vla-delete obj))<br />     ) ;_ end of progn<br />   ) ;_ end of if<br /> ) ;_ end of pline-3d-2d<br /> <br /> (defun get-3D-pline ()<br />   (setq  pl3dobj-list nil<br />   obj       nil<br />   3d       "AcDb3dPolyline"<br />   ) ;_ end of setq<br />   (setq selsets (vla-get-selectionsets *thisdrawing*))<br />   (setq ss1 (vlax-make-variant "ss1"))<br />   (if (= (vla-get-count selsets) 0)<br />     (setq ssobj (vla-add selsets ss1))<br />   ) ;_ end of if<br />   (vla-clear ssobj)<br />   (setq Filterdata (vlax-make-variant "POLYLINE"))<br />   (setq no-ent 1)<br />   (while no-ent<br />     (vla-Selectonscreen ssobj)<br />     (if  (> (vla-get-count ssobj) 0)<br />       (progn<br />   (setq no-ent nil)<br />   (setq i (- 1))<br />   (repeat  (vla-get-count ssobj)<br />     (setq<br />       obj  (vla-item ssobj<br />         (vlax-make-variant (setq i (1+ i)))<br />     ) ;_ end of vla-item<br />     ) ;_ end of setq<br />     (cond<br />       ((= (vlax-get-property obj "ObjectName") 3d)<br />        (setq pl3dobj-list<br />         (append pl3dobj-list (list obj))<br />        ) ;_ end of setq<br />       )<br />     ) ;_ end-of cond<br />   ) ;_ end of repeat<br />       ) ;_ end of progn<br />       (prompt "\nNo entities selected, try again.")<br />     ) ;_ end of if<br />     (if  (and (= nil no-ent) (= nil pl3dobj-list))<br />       (progn<br />   (setq no-ent 1)<br />   (prompt "\nNo 3D-polylines selected.")<br />   (quit)<br />       ) ;_ end of progn<br />     ) ;_ end of if<br />   ) ;_ end of while  <br />   (vla-delete (vla-item selsets 0))<br />   pl3dobj-list<br /> ) ;_ end of get-3D-pline<br /> <br /> <br /> (defun get-3D-pline-old ()<br />   (setq no-ent 1)<br />   (setq  filter '((-4 . "<AND")<br />      (0 . "POLYLINE")<br />      (70 . 8)<br />      (-4 . "AND>")<br />     )<br />   ) ;_ end of setq<br />   (while no-ent<br />     (setq ss         (ssget filter)<br />     k         (- 1)<br />     pl3dobj-list nil<br />     obj         nil<br />     3d         "AcDb3dPolyline"<br />     ) ;_ end-of setq<br />     (if  ss<br />       (progn<br />   (setq no-ent nil)<br />   (repeat  (sslength ss)<br />     (setq  ent (ssname ss (setq k (1+ k)))<br />     obj (vlax-ename->vla-object ent)<br />     ) ;_ end-of setq<br />     (cond<br />       ((= (vlax-get-property obj "ObjectName") 3d)<br />        (setq pl3dobj-list<br />         (append pl3dobj-list (list obj))<br />        ) ;_ end of setq<br />       )<br />     ) ;_ end-of cond<br />   ) ;_ end-of repeat<br />       ) ;_ end-of progn<br />       (prompt "\nNo 3D-polylines selected, try again.")<br />     ) ;_ end-of if<br />   ) ;_ end-of while<br />   pl3dobj-list<br /> ) ;_ end of get-3D-pline-old<br /> <br /> (defun make-list (p-list)<br />   (setq  i (- 1)<br />   vlist nil<br />   calist nil<br />   ) ;_ end of setq<br />   (repeat (length p-list)<br />     (setq obj   (nth (setq i (1+ i)) p-list)<br />     coords (vlax-get-property obj "coordinates")<br />     ca   (vlax-variant-value coords)<br />     ) ;_ end-of setq<br />     (setq calist (append calist (list ca)))<br />   ) ;_ end-of repeat<br /> ) ;_ end-of make-list<br /> <br /> (defun c:pl32 ()<br />   (pline-3d-2d)<br />   (princ)<br /> ) ;_ end of pl32<br /> <br /> (prompt "Enter PL32 to start: ")<br />

Convert 2-D polyline(s) (pline) to 3-D polyline(s) (3dpoly)

1. ;###############################################################################
   
2. ;
   
3. ; poly2to3.lsp
   
4. ;
   
5. ; Convert 2-D polyline(s) (pline) to 3-D polyline(s) (3dpoly) using
   
6. ; user-specified z-value for 3-D polyline.  Creates new 3-D polyline and
   
7. ; erases old 2-D polyline.
   
8. ;
   
9. ; User is prompted for:
   
10. ;    1) the z-value to assign to the 3-D polyline(s)
    
11. ;    2) the selection set
    
12. ;
    
13. ; NOTE:  this may not properly handle all possible combination of attributes.
    
14. ;
    
15. ; Please feel free to direct any comments, criticisms, and/or suggestions to
    
16. ; me at one of the below listed locations.
    
17. ;
    
18. ; by:  Michael J. Read               Compuserve:  71571,2073
    
19. ;      Read Engineering
    
20. ;      1714 Ben Crenshaw Way
    
21. ;      Austin, TX 78746
    
22. ;      (512)327-9776
    
23. ;
    
24. ; January 5, 1990
    
25. ;
    
26. ;#############################  Revision History  ##############################
    
27. ; mjr 900105 - V1.00 - initial release
    
28. ; mjr 911026 - V1.10 - cleaned up, added selection set capability, attribute
    
29. ;                      handling
    
30. ; mjr 911031 - V1.20 - added capability of assigning a user-specified z-value
    
31. ;                      for each vertex.  User is given choice of 3D z-value as
    
32. ;                      1) global z-value, 2) manually supplying z-value for each
    
33. ;                      vertex of each polyline, or 3) assigning existing 2D
    
34. ;                      z-value.
    
35. ;###############################################################################
    
36. 
    
37. 
    
38. (princ "\n\n Lisp by:  Michael J. Read - READ ENGINEERING - (512)327-9776\tLoading...")
    
39. 
    
40. (defun header(/ verd vern)                       ; display header info
    
41.    (setq vern 1.20)
    
42.    (setq verd "01-Nov-91")
    
43.    (princ "\n READ ENGINEERING:  ")
    
44.    (princ (strcat "poly2to3 (V" (rtos vern 2 2) " " verd ") - change 2D polyline(s) to 3D\n"))
    
45. )
    
46. 
    
47. (defun cls()
    
48.    (repeat 24 (princ
    
49. "                                                                               \n"))
    
50. )
    
51. 
    
52. ; return the value associated with a particular entity field
    
53. (defun fld (num list)
    
54.    (cdr (assoc num list))
    
55. )
    
56. 
    
57. ; save specified mode settings
    
58. (defun MODES (a)
    
59.    (setq MLST '())
    
60.    (repeat (length a)
    
61.       (setq MLST (append MLST (list (list (car a) (getvar (car a))))))
    
62.       (setq a (cdr a)))
    
63. )
    
64. 
    
65. ; restore saved mode settings
    
66. (defun MODER ()
    
67.    (repeat (length MLST)
    
68.       (setvar (caar MLST) (cadar MLST))
    
69.       (setq MLST (cdr MLST))
    
70.    )
    
71. )
    
72. 
    
73. (defun explain()
    
74. (textscr)
    
75. (princ "\n\n")
    
76. (princ
    
77. "Constructs a 3D polyline using 3dpoly with exactly the same vertices as the\n")
    
78. (princ
    
79. "selected 2D polyline.  The 2D polyline is then deleted leaving only the 3D\n")
    
80. (princ "polyline.\n\n")
    
81. (princ
    
82. "Options available for assigning the z-value to the new 3D polyline(s) are:\n\n")
    
83. (princ "   1  -  user-specified global z-value for all 3D polylines\n")
    
84. (princ "   2  -  user-specified z-value for each vertex of each 3D polyline\n")
    
85. (princ "   3  -  existing 2D polyline z-value assigned to the 3D polyline\n\n")
    
86. )
    
87. 
    
88. ; main routine
    
89. ; convert 2-d polyline to 3-d polyline
    
90. ;
    
91. (defun c:poly2to3(/ e1 ec ed emax en et el f1 f2 nent nver ss1 x y xyz zopt zval)
    
92.    (cls)                              ; clear the text screen
    
93.    (header)                           ; display header info
    
94.    (modes '("BLIPMODE" "CMDECHO" ))   ; save modes
    
95.    (setvar "cmdecho" 0)               ; turn off command echo
    
96.    (setvar "blipmode" 0)              ; turn off blips
    
97. 
    
98.    (explain)                          ; explain what program does and options
    
99.    (initget 1 "1 2 3")
    
100.    (setq zopt (getkword "Enter option for assigning z-value to 3D polyline (1, 2 or 3):  "))
     
101. 
     
102.    (if (equal zopt "1")               ; global z-value option
     
103.       (progn
     
104.       (initget (+ 1 4))
     
105.       (setq zval (getreal "\nEnter global z-value:  "))       ; get z-value
     
106.       );end progn
     
107.    );end if
     
108. 
     
109.    (graphscr)
     
110.    (princ "\nSelect 2-D polyline(s) to convert to 3-D polylines(s)...\n")
     
111.    (if (setq ss1 (ssget))             ; ask the user to build a selection set
     
112.       ; if the set isn't empty
     
113.       ;   build selection set of polylines only
     
114.       ;   by deleting all of the non-polylines in the set
     
115.       (progn
     
116.       (setq nent 0
     
117.             emax (sslength ss1))
     
118.       (prompt (strcat "\n" (itoa emax) " entitie(s) selected.\n"))
     
119.       (while (< nent emax)
     
120.          (setq en (ssname ss1 nent)
     
121.                ed (entget en))
     
122.          (if (/= "POLYLINE" (fld 0 ed))
     
123.             (progn
     
124.             (ssdel en ss1)
     
125.             (setq nent (1- nent)
     
126.                   emax (1- emax))
     
127.             )
     
128.          )
     
129.          (setq nent (1+ nent))
     
130.       ); end while
     
131. 
     
132.       (setq nent 0
     
133.             emax (sslength ss1))               ; number of polylines
     
134.       (prompt (strcat (itoa emax) " polyline(s) found.\n"))
     
135. 
     
136.       ; loop through polylines
     
137.       ; add 3-D 3dpoly vertex for each 2-D vertex
     
138.       
     
139.       (if (> emax 0)
     
140.          (progn
     
141.          (setq nent 0
     
142.                emax (sslength ss1))            ; number of polylines
     
143. 
     
144.          (while (< nent emax)
     
145.             (setq en (ssname ss1 nent))
     
146.             (setq e1     en
     
147.                   ed     (entget en)
     
148.                   nver 0
     
149.                   ec     (fld 62 ed)
     
150.                   et     (fld  0 ed)
     
151.                   f1     (fld 70 ed)
     
152.             )
     
153. 
     
154.             (if (= et "POLYLINE" )
     
155.                (princ (strcat "Converting pline to 3dpoly <using "
     
156.                                (cond ((equal zopt "1") (strcat
     
157.                                                         "GLOBAL z-value: "
     
158.                                                         (rtos zval 2 2)))
     
159.                                      ((equal zopt "2") "VERTEX z-value")
     
160.                                      ((equal zopt "3") "2D z-value")
     
161.                                )
     
162.                               ">...\n")
     
163.                )
     
164.             );end if
     
165. 
     
166.             (while (and (setq en (entnext en))
     
167.                         (setq ed (entget en))
     
168.                         (/= "SEQEND" (fld 0 ed)))
     
169.                (setq xyz    (fld 10 ed)
     
170.                      x      (car   xyz)
     
171.                      y      (cadr  xyz)
     
172.                      z      (caddr xyz)
     
173.                      el     (fld  8 ed)
     
174.                      et     (fld  0 ed)
     
175.                      f2     (fld 70 ed)
     
176.                )
     
177. ;               (princ (strcat "### f1=" (itoa f1) ", f2=" (itoa f2) "\n"))
     
178.                ;
     
179.                ; add 3dpoly vertex for each ACTUAL 2-D vertex
     
180.                ; ignore spline or curve fit vertices
     
181.                (if (cond
     
182.                      ((and (= et "VERTEX") (= 0 f2)) 1)
     
183.                      ((and (= et "VERTEX") (= 2 (logand f1 2)) (= 0 f2)) 1)
     
184.                      ((and (= et "VERTEX") (= 4 (logand f1 4)) (= 16 f2)) 1)
     
185.                      (t nil)
     
186.                    )
     
187.                   (progn
     
188.                   (redraw en 3)                         ; highlight segment
     
189.                   (cond ((equal zopt "2")               ; vertex z-value option
     
190.                            (initget (+ 1 4))
     
191.                            (setq zval (getreal "Enter vertex z-value:  "))
     
192.                         )
     
193.                         ((equal zopt "3")               ; 2D z-value option
     
194.                            (setq zval z)                ; assign 2D z-value
     
195.                         )
     
196.                   );end cond
     
197.                   (setq nver (+ nver 1))
     
198.                   (if (= 1 nver) (command "3dpoly"))    ; start 3dpoly
     
199.                   (command (list x y zval))             ; add vertex
     
200.                   );end progn
     
201.                );end if
     
202.                (redraw en 4)                            ; de-highlight segment
     
203.             ); end while entnext
     
204. 
     
205.             (setq nent (1+ nent))
     
206.             (redraw e1 1)
     
207.             (if (> nver 0)                     ; if we had any valid vertices
     
208.                (progn
     
209.                (command "")                    ; end 3dpoly
     
210.                ;
     
211.                ; assign attributes of old polyline to new polyline
     
212.                ;
     
213.                (if (= (logand 1 f1) 1) (command "pedit" "last" "c" ""))
     
214.                (if (= (logand 2 f1) 2) (command "pedit" "last" "s" ""))
     
215.                (if (= (logand 4 f1) 4) (command "pedit" "last" "s" ""))
     
216.                (entdel e1)                     ; delete old polyline
     
217.                (command "change" "last" "" "prop" "layer" el "")   ;change layer
     
218.                (if (not (null ec))
     
219.                   (command "change" "last" "" "prop" "color" ec "");change color
     
220.                )
     
221.                (princ (strcat "   added 3dpoly with " (itoa nver)
     
222.                               " vertices \n"))
     
223.                );end progn
     
224.             ;else
     
225.                (princ "Can't change polyline!\n")
     
226.             );end if nver
     
227. 
     
228.          );end while entity
     
229.          );end progn
     
230. 
     
231.       );end if emax > 0
     
232.       );end progn
     
233. 
     
234.    );end if ss1
     
235. 
     
236.    (moder)                                     ; reset modes
     
237.    (princ)
     
238. ) ;end of poly2to3
     
239. 
     
240. (header)                                       ; display header info
     
241. (princ)

;###############################################################################<br /> ;<br /> ; poly2to3.lsp<br /> ;<br /> ; Convert 2-D polyline(s) (pline) to 3-D polyline(s) (3dpoly) using<br /> ; user-specified z-value for 3-D polyline.  Creates new 3-D polyline and<br /> ; erases old 2-D polyline.<br /> ;<br /> ; User is prompted for:<br /> ;    1) the z-value to assign to the 3-D polyline(s)<br /> ;    2) the selection set<br /> ;<br /> ; NOTE:  this may not properly handle all possible combination of attributes.<br /> ;<br /> ; Please feel free to direct any comments, criticisms, and/or suggestions to<br /> ; me at one of the below listed locations.<br /> ;<br /> ; by:  Michael J. Read               Compuserve:  71571,2073<br /> ;      Read Engineering<br /> ;      1714 Ben Crenshaw Way<br /> ;      Austin, TX 78746<br /> ;      (512)327-9776<br /> ;<br /> ; January 5, 1990<br /> ;<br /> ;#############################  Revision History  ##############################<br /> ; mjr 900105 - V1.00 - initial release<br /> ; mjr 911026 - V1.10 - cleaned up, added selection set capability, attribute<br /> ;                      handling<br /> ; mjr 911031 - V1.20 - added capability of assigning a user-specified z-value<br /> ;                      for each vertex.  User is given choice of 3D z-value as<br /> ;                      1) global z-value, 2) manually supplying z-value for each<br /> ;                      vertex of each polyline, or 3) assigning existing 2D<br /> ;                      z-value.<br /> ;###############################################################################<br /> <br /> <br /> (princ "\n\n Lisp by:  Michael J. Read - READ ENGINEERING - (512)327-9776\tLoading...")<br /> <br /> (defun header(/ verd vern)                       ; display header info<br />    (setq vern 1.20)<br />    (setq verd "01-Nov-91")<br />    (princ "\n READ ENGINEERING:  ")<br />    (princ (strcat "poly2to3 (V" (rtos vern 2 2) " " verd ") - change 2D polyline(s) to 3D\n"))<br /> )<br /> <br /> (defun cls()<br />    (repeat 24 (princ<br /> "                                                                               \n"))<br /> )<br /> <br /> ; return the value associated with a particular entity field<br /> (defun fld (num list)<br />    (cdr (assoc num list))<br /> )<br /> <br /> ; save specified mode settings<br /> (defun MODES (a)<br />    (setq MLST '())<br />    (repeat (length a)<br />       (setq MLST (append MLST (list (list (car a) (getvar (car a))))))<br />       (setq a (cdr a)))<br /> )<br /> <br /> ; restore saved mode settings<br /> (defun MODER ()<br />    (repeat (length MLST)<br />       (setvar (caar MLST) (cadar MLST))<br />       (setq MLST (cdr MLST))<br />    )<br /> )<br /> <br /> (defun explain()<br /> (textscr)<br /> (princ "\n\n")<br /> (princ<br /> "Constructs a 3D polyline using 3dpoly with exactly the same vertices as the\n")<br /> (princ<br /> "selected 2D polyline.  The 2D polyline is then deleted leaving only the 3D\n")<br /> (princ "polyline.\n\n")<br /> (princ <br /> "Options available for assigning the z-value to the new 3D polyline(s) are:\n\n")<br /> (princ "   1  -  user-specified global z-value for all 3D polylines\n")<br /> (princ "   2  -  user-specified z-value for each vertex of each 3D polyline\n")<br /> (princ "   3  -  existing 2D polyline z-value assigned to the 3D polyline\n\n")<br /> )<br /> <br /> ; main routine<br /> ; convert 2-d polyline to 3-d polyline<br /> ;<br /> (defun c:poly2to3(/ e1 ec ed emax en et el f1 f2 nent nver ss1 x y xyz zopt zval)<br />    (cls)                              ; clear the text screen<br />    (header)                           ; display header info<br />    (modes '("BLIPMODE" "CMDECHO" ))   ; save modes<br />    (setvar "cmdecho" 0)               ; turn off command echo<br />    (setvar "blipmode" 0)              ; turn off blips<br /> <br />    (explain)                          ; explain what program does and options<br />    (initget 1 "1 2 3")<br />    (setq zopt (getkword "Enter option for assigning z-value to 3D polyline (1, 2 or 3):  "))<br /> <br />    (if (equal zopt "1")               ; global z-value option<br />       (progn<br />       (initget (+ 1 4))<br />       (setq zval (getreal "\nEnter global z-value:  "))       ; get z-value<br />       );end progn<br />    );end if<br /> <br />    (graphscr)<br />    (princ "\nSelect 2-D polyline(s) to convert to 3-D polylines(s)...\n")<br />    (if (setq ss1 (ssget))             ; ask the user to build a selection set<br />       ; if the set isn't empty<br />       ;   build selection set of polylines only<br />       ;   by deleting all of the non-polylines in the set<br />       (progn<br />       (setq nent 0<br />             emax (sslength ss1))<br />       (prompt (strcat "\n" (itoa emax) " entitie(s) selected.\n"))<br />       (while (< nent emax)<br />          (setq en (ssname ss1 nent)<br />                ed (entget en))<br />          (if (/= "POLYLINE" (fld 0 ed))<br />             (progn<br />             (ssdel en ss1)<br />             (setq nent (1- nent)<br />                   emax (1- emax))<br />             )<br />          )<br />          (setq nent (1+ nent))<br />       ); end while<br /> <br />       (setq nent 0<br />             emax (sslength ss1))               ; number of polylines<br />       (prompt (strcat (itoa emax) " polyline(s) found.\n"))<br /> <br />       ; loop through polylines<br />       ; add 3-D 3dpoly vertex for each 2-D vertex<br />       <br />       (if (> emax 0)<br />          (progn<br />          (setq nent 0<br />                emax (sslength ss1))            ; number of polylines<br /> <br />          (while (< nent emax)<br />             (setq en (ssname ss1 nent))<br />             (setq e1     en<br />                   ed     (entget en)<br />                   nver 0<br />                   ec     (fld 62 ed)<br />                   et     (fld  0 ed)<br />                   f1     (fld 70 ed)<br />             )<br /> <br />             (if (= et "POLYLINE" )<br />                (princ (strcat "Converting pline to 3dpoly <using "<br />                                (cond ((equal zopt "1") (strcat<br />                                                         "GLOBAL z-value: "<br />                                                         (rtos zval 2 2)))<br />                                      ((equal zopt "2") "VERTEX z-value")<br />                                      ((equal zopt "3") "2D z-value")<br />                                )<br />                               ">...\n")<br />                )<br />             );end if<br /> <br />             (while (and (setq en (entnext en))<br />                         (setq ed (entget en))<br />                         (/= "SEQEND" (fld 0 ed)))<br />                (setq xyz    (fld 10 ed)<br />                      x      (car   xyz)<br />                      y      (cadr  xyz)<br />                      z      (caddr xyz)<br />                      el     (fld  8 ed)<br />                      et     (fld  0 ed)<br />                      f2     (fld 70 ed)<br />                )<br /> ;               (princ (strcat "### f1=" (itoa f1) ", f2=" (itoa f2) "\n"))<br />                ;<br />                ; add 3dpoly vertex for each ACTUAL 2-D vertex<br />                ; ignore spline or curve fit vertices<br />                (if (cond<br />                      ((and (= et "VERTEX") (= 0 f2)) 1)<br />                      ((and (= et "VERTEX") (= 2 (logand f1 2)) (= 0 f2)) 1)<br />                      ((and (= et "VERTEX") (= 4 (logand f1 4)) (= 16 f2)) 1)<br />                      (t nil)<br />                    )<br />                   (progn<br />                   (redraw en 3)                         ; highlight segment<br />                   (cond ((equal zopt "2")               ; vertex z-value option<br />                            (initget (+ 1 4))<br />                            (setq zval (getreal "Enter vertex z-value:  "))<br />                         )<br />                         ((equal zopt "3")               ; 2D z-value option<br />                            (setq zval z)                ; assign 2D z-value<br />                         )<br />                   );end cond<br />                   (setq nver (+ nver 1))<br />                   (if (= 1 nver) (command "3dpoly"))    ; start 3dpoly<br />                   (command (list x y zval))             ; add vertex<br />                   );end progn<br />                );end if<br />                (redraw en 4)                            ; de-highlight segment<br />             ); end while entnext<br /> <br />             (setq nent (1+ nent))<br />             (redraw e1 1)<br />             (if (> nver 0)                     ; if we had any valid vertices<br />                (progn<br />                (command "")                    ; end 3dpoly<br />                ;<br />                ; assign attributes of old polyline to new polyline<br />                ;<br />                (if (= (logand 1 f1) 1) (command "pedit" "last" "c" ""))<br />                (if (= (logand 2 f1) 2) (command "pedit" "last" "s" ""))<br />                (if (= (logand 4 f1) 4) (command "pedit" "last" "s" ""))<br />                (entdel e1)                     ; delete old polyline<br />                (command "change" "last" "" "prop" "layer" el "")   ;change layer<br />                (if (not (null ec))<br />                   (command "change" "last" "" "prop" "color" ec "");change color<br />                )<br />                (princ (strcat "   added 3dpoly with " (itoa nver)<br />                               " vertices \n"))<br />                );end progn<br />             ;else<br />                (princ "Can't change polyline!\n")<br />             );end if nver<br /> <br />          );end while entity<br />          );end progn<br /> <br />       );end if emax > 0<br />       );end progn<br /> <br />    );end if ss1<br /> <br />    (moder)                                     ; reset modes<br />    (princ)<br /> ) ;end of poly2to3<br /> <br /> (header)                                       ; display header info<br /> (princ)

jltx123456

chunwhite

lucas_3333 发表于 2015-11-20 20:06
很讨厌看到这种需要先支付才能浏览的贴子!

这种2D polyline 转 3D polyline 的贴子多的是 ,没必要这么神 ...

支持，很给力。

迷失1786

支持，很给力。

chenjieq1990

问下，二维多段线和三维多段线的区别是什么？

you_boss

chenjieq1990 发表于 2017-9-4 19:25
问下，二维多段线和三维多段线的区别是什么？

坐标点不一样，二维只有xy坐标，再加上一个标高来确定二维多段线的空间位置，三维多段线坐标点有xyz

tdl555

谢谢楼主分享

成精的熊大

请教大家，二维多段线中有圆弧怎么提取出其半径和凸度？