Lecture éléments dans un bloc

[sbosarl]

Bonjour,

 

Je viens demander de l’aide, j’ai un schéma avec environ 100 de folios (1 folio = bloc)

 

Dans chaque bloc j’ai besoin de ressortir 4 texte, textes placés de la même manier sur chaque bloc (même point d’insertion).

 

Le petit soucis il n’ont pas été crées dans le même ordre sur chaque bloc

 

J’aimerais récupérer les valeurs des textes sans décomposer les blocs « folio »

[(gile)]

Salut,

 

Il faut parcourir la définition du bloc à la recherche de textes dont les positions correspondent.

(cdr (assoc -2 (tblsearch "block" nomDuBloc)))

retourne la première entité dans le nom du bloc, une boucle avec entnext permet de retrouver les suivantes.

Tu peux aussi le faire avec COM :

(vlax-for obj (vla-Item (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))) nomBloc) ...)

[sbosarl]

Re,

 

Merci , avec une recherche par points j’ais 90% de mes textes retrouvés

 

(defun dxf (n ed) (cdr (assoc n ed)))
(defun ttsbo ( noms / pt1 pt2 pt3 pt4 )
(setq pt1 (list 8.66 1.27 0) pt2 (list 23.76 1.2 0) 
       pt3 (list 28.57 1.2 0) pt4 (list 28.64 1.13 0) )
(vlax-for obj 
(vla-Item (vla-get-Blocks 
(vla-get-ActiveDocument (vlax-get-acad-object))) noms) 


(setq ename (vlax-vla-object->ename obj))
(if (equal pt1 (dxf 11 (entget ename)))   	     (setq n1 (dxf 1 (entget ename))))
   (if (equal pt2 (dxf 11 (entget ename)))   	     (setq n2 (dxf 1 (entget ename))))
   (if (equal pt3 (dxf 11 (entget ename)))   	     (setq n3 (dxf 1 (entget ename))))
   (if (equal pt4 (dxf 11 (entget ename)))   	     (setq n4 (dxf 1 (entget ename))))



)
)

 

Mais j’ai des textes qui n’ont pas tout à fait les mêmes pts insertion .il sont compris dans une zone restreinte

 

Exemple folio1 txt1 ‘(8.65 1.27 0) et folio2 txt1 ‘(8.64 1.26 0)

 

C’est la que je coince pour les retrouvées

[sbosarl]

re, je me répond

(equal pt1 pt2 0.5) 

faut juste trouvée l’écart