van 2d naar 3d poly

[Robert1969]

Heeft er iemand een LSP routine om 2d poly lines om te zetten naar 3d polylines?
Het kan in Civil, dat weet ik maar zou graag een lsp routine willen hebben voor acad(2013)

[Rudy]

Misschien kan je hier http://forums.augi.com/showthread.php?45963-2d-Polyline-to-3d-Polyline iets vinden?

[Robert1969]

ja werkt er helaas geen 1 van goed

[EddyBeerke]

Bij mij werkt het wel met een "Polyline"
Met een 2dPolyline gaf het een error (Invalid index)
Maar met het commando: "CONVERT" "ALL" gaat het wel.

Dit is de code van http://forums.augi.com/showthread.php?45963-2d-Polyline-to-3d-Polyline :

Code Selecteer Uitklappen

;;This function loads the extended AutoLISP
;;functions provided with Visual LISP.
;;The Visual LISP extensions implement ActiveX
;;and AutoCAD reactor support through AutoLISP,
;;and also provide ActiveX utility and data
;;conversion functions, dictionary handling functions,
;;and curve measurement functions.
(vl-load-com)
;;do not removed this function call



;;command to test the lwpTo3d function
;; will error if you do not select a LwPolyLine
;;can be removed
;;Enter testlwpto3d on the command line
(defun c:testlwpto3d ()
  (setq myp (vlax-ename->vla-object
   (car (entsel "\nSelect A LwPolyLine"))
) ;_ end of vlax-ename->vla-object
  ) ;_ end of setq
  (lwpto3d myp)
) ;_ end of defun

;;John W Anstaett 09/03/2006
;;draw a 3dPolyline using the vector of a LWPOLYLINE
;;vbalwp is a vba object = to the LwPolyLine
;;Return a vba Object = to the new 3DPolyLine
;;Drawed in the same space as the LwPolyLine
;;The layer line type and other vaule are the same as the LwPolyLine
;;All z vaule of the 3DPoly are = to the Elevation of the LwPolyline
(defun lwpTo3d (vbalwp / c1 c2 pts pts3d mydoc myowner my3d ut i lwc)
  (setq c1 (vlax-variant-value
  (vla-get-Coordinates vbalwp) ;get the coordinates of the
) ;LwPolyLine as a safearray
  ) ;_ end of setq
  (setq c1 (vlax-safearray-get-u-bound c1 1))
;get number of coordinates
  (setq c1 (/ (- c1 1) 2))  ;set c1 to one less then the number of vectors
  (setq c2 (- (* (+ c1 1) 3) 1)) ;set c2 to the number of coordinates in 3DPoly

  ;;make a safearray to use with the add3DPoly
  (setq pts (vlax-make-safearray
   vlax-vbDouble
   (cons 0 c2)
) ;_ end of vlax-make-safearray
  ) ;_ end of setq

  ;;Make a Safearray to use as 3dPoly coordinte
  (setq pts3d (vlax-make-safearray
  vlax-vbDouble
  (cons 0 2)
   ) ;_ end of vlax-make-safearray
  ) ;_ end of setq

  ;;get the autocad document that the LwPolyline is in
  (setq myDoc (vla-get-Document vbalwp)
  ) ;_ end of setq
  (setq myowner (vla-ObjectIdToObject ;get the owner of the Lwpolyline
myDoc   ;This will be a block modeSpace or paperSpace
(vla-get-ownerid vbalwp)
  ) ;_ end of vla-ObjectIdToObject
  ) ;_ end of setq
  (setq my3d (vla-Add3DPoly myowner pts) ;add the 3DPoly
  ) ;_ end of setq

  ;;get Autocad Utility to Translate the Coordinates
  ;;I do this so I do not need to covent the VBA Safearray to list
  ;; to use the lisp trans function
  (setq ut (vla-get-Utility mydoc)
  ) ;_ end of setq
  (setq i 0)
  ;;copy the Coordinate of LwPolyLine to the 3dpoly
  (repeat (+ c1 1)
(setq lwc (vlax-variant-value
  (vla-get-Coordinate vbalwp i)
;Get LwPolyLine Coordinate
   ) ;_ end of vlax-variant-value
) ;_ end of setq
(vlax-safearray-put-element
  pts3d
  0
  (vlax-safearray-get-element lwc 0) ;set x
) ;_ end of vlax-safearray-put-element
(vlax-safearray-put-element
  pts3d
  1
  (vlax-safearray-get-element lwc 1) ;sete y
) ;_ end of vlax-safearray-put-element
(vlax-safearray-put-element
  pts3d
  2
  (vla-get-Elevation vbalwp) ;set z = Elevation
) ;_ end of vlax-safearray-put-element

;;;Translate Coordinates form LwPolyLine ocs to world
;;use vlax-variant-value so pts3d is return as a safearray
(setq pts3d (vlax-variant-value
(vla-TranslateCoordinates
  ut
  pts3d
  acOCS
  acWorld
  0
  (vla-get-Normal vbalwp)
) ;_ end of vla-TranslateCoordinates
  ) ;_ end of vlax-variant-value

) ;_ end of setq
(vla-put-coordinate my3d i pts3d) ;set the 3dPoly coordinate
(setq i (+ i 1))

  ) ;_ end of repeat
  ;;match the 3Dpoly to the LwPolyLine
  (vla-put-layer my3d (vla-get-layer vbalwp)) ;Set Layer
  (vla-put-Closed my3d (vla-get-Closed vbalwp)) ;Set Closed
  (vla-put-Color my3d (vla-get-Color vbalwp)) ;Set Color
  (vla-put-Linetype my3d (vla-get-Linetype vbalwp)) ;Set Linetype
  (vla-put-LinetypeScale my3d (vla-get-LinetypeScale vbalwp))
;Set LinetypeScale
  (vla-put-Lineweight my3d (vla-get-Lineweight vbalwp)) ;set Lineweight
  (vla-put-Visible my3d (vla-get-visible vbalwp)) ;set Visible
  (vla-Update my3d)   ;UpDate the 3DPoly
  (vlax-release-object mydoc)
  (vlax-release-object myowner)
  (vlax-release-object ut)
  (vlax-release-object vbalwp)
  (setq my3d my3d)   ;return the 3DPoly

) ;_ end of defun