[Résolu] Isoler des sélections d'attributs

[DenisHen]

Bonjour à tous.

 

Voilà, je dois "associer" deux blocs... Les deux blocs comprennent plusieurs attributs.

 

J'aimerais qu'en cliquant sur un attribut du premier bloc, en sortir la valeur pour pouvoir l'insérer dans un attribut du deuxième bloc avec un petit calcul.

 

Pour l'insertion dans le deuxième bloc et son calcul, je pense pouvoir me débrouiller. Mais pour récupérer la valeur de l'attribut sélectionner du premier bloc, là, j'aimerais bien un petit coup de mains...

 

Donc, si quelqu'un a une astuce ou une idée, je suis preneur...

[didier]

Coucou

 

Utilise NENTSEL pour les entités imbriquées

 

Exemple : tu cliques sur l'attribut dont tu veux stocker la valeur dans la variable val_att

 

(setq val_att (cdr(assoc 1 (entget (car(nentsel))))))

 

Amicalement

 

PS : tu ne regardes pas souvent l'aide !!!

[DenisHen]

Salut didier, et merci pour ton aide.

 

Effectivement, l'aide ne m'aide guère car elle est en anglais... Pas facile pour moi...

 

Je ne connaissais pas du tout"nentsel"... Je ne savais pas tellement où chercher dans l'aide...

 

Ça fonctionne nickel. Mais comment mettre un petit message avant la sélection, exemple : "Sélectionner le premier attribut :" ?

 

Denis...

 

EDIT : Comme ça :

(defun c:JointDeuxAttribut ()
 (setq ValAtt1 (car (nentsel "\nSélectionner le premier attribut :")))
 (setq ValAtt1 (cdr (assoc 1 (entget ValAtt1))))
 (princ)
) ;_ Fin de defun

[Patrick_35]

Salut

 

Deux exemples pour récupérer les valeurs d'attributs d'un bloc

En Autolisp

(defun valatt(ent / lst)
 (while (/= (cdr (assoc 0 ent)) "SEQEND")
   (setq ent (entget (entnext (cdr (assoc -1 ent))))
  lst (cons (cdr (assoc 1 ent)) lst)
   )
 )
 (reverse (cdr lst))
)

(valatt (entget (car (entsel))))

 

En Vlisp

(defun valatt(ent)
 (mapcar 'vla-get-textstring (vlax-invoke ent 'getattributes))
)

(valatt (vlax-ename->vla-object (car (entsel))))

 

@+

[DenisHen]

Salut, et Mille mercis Patrick_35...

[didier]

Coucou

 

À DenisH et ceux qui ne cherchent pas dans l'aide sous prétexte que c'est écrit en anglais

 

C'est pour des gens comme ça que je me suis décidé à éditer mes centaines de fiches d'aide sur un site internet que je suis en train de monter.

J'avais prévu de l'éditer en papier mais les deux éditeurs rencontrés m'ont expliqué leur refus arguant d'un marché français trop petit !! il faut dire qu'en France on se la pète mais quand on se déplace sur la planète peu de gens savent ce qu'est la France.

 

Amicalement

[Patrick_35]

Salut

 

+1 avec Didier.

 

De plus, si on souhaite évoluer et cela quelque soit le langage de programmation, aussi bien avec l'aide qu'avec les forums, l'anglais devient vite incontournable.

Heureusement, il y a des outils de traduction

 

@+

[(gile)]

Salut,

 

À propos de l'aide AutoLISP, il n'est pas nécessaire d'être capable de lire Shakespeare dans le texte pour s'en servir, notamment la section AutoLISP Functions Reference qui liste toutes les fonctions en précisant le nombre et le type d'arguments ainsi que la valeur de retour. Pour la description, en cas de doute, on peut utiliser un traducteur en ligne (ils de plus en plus performants).

 

De plus, cette aide a été améliorée depuis AutoCAd 2015 avec sommaire alphabétique (par nom) ou thématique (par fonctionnalité) et propose plus systématiques plusieurs exemples.

 

AutoLISP Reference AutoCAD 2015

AutoLISP Reference AutoCAD 2017

[DenisHen]

Bonjour messieurs.

 

Je n'ai jamais dis que je ne cherchais jamais dans l'aide. Au contraire, j'y vais souvent, notamment pour la syntaxe des commandes, mais j'ai du mal à traduire les termes trop "techniques", même avec Google Translate qui me fait du "petit-nègre"...

 

En l'occurrence, je ne savais même pas quoi chercher ni par ou commencer mes recherches...

 

Et la réponse de didier a été tellement précise et claire que je n'ai pas eu à chercher dans l'aide.

 

Et merci à tous pour l'intérêt que vous portez aux débutants et pour l'aide prodiguée...