(defun c:test (/ fence)
(setq fence (listpol (car (entsel "\nSelectionnez le polyligne: "))))
(sssetfirst nil (ssget "_F" fence '((0 . "INSERT"))))
)
;;; listpol by Gille Chanteau ;
;;; Returns the vertices list of any type of polyline (WCS coordinates) ;
;;; ;
;;; Argument ;
;;; en, a polyline (ename or vla-object) ;
(defun listpol (en / i p l)
(setq i (if (vlax-curve-IsClosed en)
(vlax-curve-getEndParam en)
(+ (vlax-curve-getEndParam en) 1)
)
)
(while (setq p (vlax-curve-getPointAtParam en (setq i (1- i))))
(setq l (cons (trans p 0 1 ) l))
)
)
(repeat (setq i (sslength ss))
(setq pl (cons (cdr (assoc 10 (entget (ssname ss (setq i (1- i)))))) pl))
)
(defun c:test (/ fence)
(setq fence (listpol (car (entsel "\nSelectionnez le polyligne: "))))
(setq ss (ssget "_F" fence '((0 . "INSERT"))))
(repeat (setq i (sslength ss))
(setq pl (cons (cdr (assoc 10 (entget (ssname ss (setq i (1- i)))))) pl))
)
)
;;; listpol by Gille Chanteau ;
;;; Returns the vertices list of any type of polyline (WCS coordinates) ;
;;; ;
;;; Argument ;
;;; en, a polyline (ename or vla-object) ;
(defun listpol (en / i p l)
(setq i (if (vlax-curve-IsClosed en)
(vlax-curve-getEndParam en)
(+ (vlax-curve-getEndParam en) 1)
)
)
(while (setq p (vlax-curve-getPointAtParam en (setq i (1- i))))
(setq l (cons (trans p 0 1 ) l))
)
)
(repeat (setq i (sslength js))
(setq ename (ssname js (setq i (1- i)))
fence (listpol ename)
ss (ssget "_F" fence '((0 . "INSERT")))
)
(repeat (setq n (sslength ss))
(setq pl (cons (cdr (assoc 10 (entget (ssname ss (setq n (1- n)))))) pl))
)
)
(repeat (setq i (sslength js))
(setq ename (ssname js (setq i (1- i)))
fence (listpol ename)
ss (ssget "_F" fence '((0 . "INSERT")))
)
(repeat (setq j (sslength ss))
(setq pl (cons (cdr (assoc 10 (entget (ssname ss (setq j (1- j)))))) pl))
)
)
(defun c:test (/ ename fence listpol ss i j pl)
;;; listpol by Gille Chanteau ;
;;; Returns the vertices list of any type of polyline (WCS coordinates) ;
;;; ;
;;; Argument ;
;;; en, a polyline (ename or vla-object) ;
(defun listpol (en / i p l)
(setq i (if (vlax-curve-IsClosed en)
(vlax-curve-getEndParam en)
(+ (vlax-curve-getEndParam en) 1)
)
)
(while (setq p (vlax-curve-getPointAtParam en (setq i (1- i))))
(setq l (cons (trans p 0 1) l))
)
)
;---------Corps du Programme------------------------------------------------;
(prompt "\nSelectionnez les Polylignes a traiter: ")
(if (setq js (ssget '((0 . "*POLYLINE"))))
(repeat (setq i (sslength js))
(setq ename (ssname js (setq i (1- i)))
fence (listpol ename)
ss (ssget "_F" fence '((0 . "INSERT")))
)
(repeat (setq j (sslength ss))
(setq pl (cons (cdr (assoc 10 (entget (ssname ss (setq j (1- j)))))) pl))
); Fin Seconde Boucle repeat
); Fin Premiere Boucle repeat
)
)
(repeat (setq j (sslength ss))
(setq pl (cons (cdr (assoc 10 (entget (ssname ss (setq j (1- j)))))) pl))
)