repartition blocks

[Invité ingoenius]

une nouvelle petite routine pour positioner un nombre definis de blocks sur une poliligne,

le probleque est que la commande _divide avec l'otion "b" ne positionne pas un bloc sur le point de debut e de fin de la ligne

 

il faudrait par contre trouver la facon d'alinner a la polyligne aussi les deux bloks de debut et fin

et ca j'ai pas trouvée ;-(

 

(defun C:REP ()


(setq poly (car (entsel "\nSelect Path"))) 		;percorso
(setq Q (getreal "\nNumber of blocks?\n"))
(setq nome (entget poly)); Select the pline
(setq lung  (getvar "perimeter"))
(setq Seg (fix ( - Q 1.0 )));nombre segments   
 
(setq BLOCCO (car (entsel "\nSelect 1 block ")))
(setq DatiB (entget BLOCCO))				
(setq NBLOC (cdr (assoc 2 DatiB)))			
 
 
(setq lista '()) ;Start a blank list

(foreach n nome
 (if (= 10 (car n)) (setq lista (append (list (cdr n)) lista))));foreach loop to extract code 10 and append all code 10 to the blank list
(setq Start (car lista)) 					;Extract the end point
(setq End   (last lista)) 					;Extract the start point


(command "_divide" poly "B"  Nbloc "o" Seg )
(command "_insert" Nbloc Start "" "" "" )
(command "_insert" Nbloc End "" ""  "")

 ;   

)

[Bred]

Salut,

une piste :

Tu récupères l'angle de tes deux points de lignes et tu fait faire une rotation de cet angle à l'insertion de ton bloc

[Invité ingoenius]

il y a un parametre angle dans les points des polilignes??

Je pensi que oui vue que la commande divide aligne bien le bloc si on le demande

 

mai il est ou?

associe quel code dxf ?

[Bred]

Salut,

Vu que tu sais récupérer les points d'une polyligne en dxf, il suffit de calculer l'angle de ces points :

(angle p1 p2)

[(gile)]

Salut,

 

Tu peux utiliser les fonctions vlax-curve*.

Les points sont exprimés dans le SCG.

Les angles sont les angles des segments droits ou ceux des tangentes pour les arcs.

 

Normalement il faut que l'argument soit un "vla-object", mais ça semble fonctionner avec un "ename" aussi.

 

;; charger les fonctions Visual LISP
(vl-load-com)

;; traduire le ename en vla-object
(setq vl-poly (vlax-ename->vla-object poly))

;; Point de départ)
(vlax-curve-getStartPoint vl-poly)

;; Point de fin
(vlax-curve-getEndPoint vl-poly)

;; Angle de départ
(angle '(0 0 0)
      (vlax-curve-getFirstDeriv
 vl-poly
 (vlax-curve-getStartParam vl-poly)
      )
)

;; Angle de fin
(angle '(0 0 0)
      (vlax-curve-getFirstDeriv
 vl-poly
 (vlax-curve-getEndParam vl-poly)
      )
)

;; angle au point pt de la polyligne
(angle '(0 0 0)
      (vlax-curve-getFirstDeriv
 vl-poly
 (vlax-curve-getParamAtPoint vl-poly pt)
      )
)