Aller au contenu

Lecture éléments dans un bloc


sbosarl

Messages recommandés

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 »

Lien vers le commentaire
Partager sur d’autres sites

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) ...)

Gilles Chanteau - gileCAD -
Développements sur mesure pour AutoCAD
ADSK_Expert_Elite_Icon_S_Color_Blk_125.png

Lien vers le commentaire
Partager sur d’autres sites

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

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité