lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms..

Nou pe simpatie:
Ioanacatalina

Femeie
25 ani
Salaj
cauta Barbat
25 - 61 ani

lisp2arx Reguli Inregistrare Login PozeNu sunteti logat. Lista Forumurilor Pe Tematici

lisp2arx / Listof AutoLisp.100 /

vla-AutoLisp14 -listpolyline lwpolyLine extrafunction/s

Pagini: 1

Moderat de zauchan

admin
Administrator
Din: Bucharest
Postari: 523

;; listpol by Gille Chanteau ;
;;; Returns the vertices list of any type of polyline (WCS coordinates) ;
;;; ;
;;; Argument ;
;;; en, a polyline (ename or vla-object)

Code:

(defun listpol (en / i p l)  
  (setq i (vlax-curve-getEndParam en) i (if (vlax-curve-IsClosed en) i (1+ i)))       
  (while (setq p (vlax-curve-getPointAtParam en (setq i (1- i))))
      (setq l (cons (trans p 0 1 ) l))
  )
)

_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf

Pagini: 1

Mergi la