Aller au contenu

vla-select


bseb67

Messages recommandés

Salut,

 

Cherchant un peu et m'amusant aussi avec les fichiers ouverts avec objectdbx,

je voulais savoir si quelqu'un savait si un "vla-select" peut y être fait ?

 

Les exemples trouvés sur le web ne font qu'une sélection sur le dessin courant d'autocad.

 

un des exemples trouvés

(setq axss (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
 (vla-clear axss)
 (vla-select
   axss
   acselectionsetall
   nil
   nil
   (vlax-safearray-fill
     (vlax-make-safearray vlax-vbinteger '(0 . 0)) '(0))
   (vlax-safearray-fill
     (vlax-make-safearray vlax-vbvariant '(0 . 0)) '("CIRCLE"))
 )

 

Qui est équivalent à un

(setq axss (ssget "X" '((0 . "CIRCLE"))))

 

Pour cet exemple :

le premier argument contient le résultat de la sélection,

le 2ème le mode de sélection

le 3ème un point

le 4ème un point

le 5ème une liste des clés DXF

le 6ème une liste des valeurs DXF

 

Si ce n'est pas possible de passer dans un argument le fichier où on doit

faire la sélection, ben tant pis ...

 

Merci ;)

Tous pour lisp, Lisp pour tous!

Avec Revit, cela ne vas trop vite...

Lien vers le commentaire
Partager sur d’autres sites

Salut,

 

Si tu fais un vlax-dump-object sur un objet IAxDbDocument (document ouvert avec ODBX) tu verras qu'il n'a pas de propriété SelectionSets, tu ne peux donc pas utiliser la méthode Select -(vla-Select ...) ou (vlax-invoke-method ... 'Select)- qui s'applique à un objet SelectionSet.

 

De toutes façons, avec l'argument acselectionsetall (ou "_X" en AutoLISP) c'est la totalité de la base de données graphique qui est scannée.

Tu peux donc faire :

(vlax-for l (vla-get-Layouts doc)
 (vlax-for o (vla-get-Block l)
   (if (= (vla-get-ObjectName o) "AcDbCircle")
     ...
   )
 )
)

Gilles Chanteau - gileCAD - GitHub
Développements sur mesure pour AutoCAD

Lien vers le commentaire
Partager sur d’autres sites

pfoui, dommage que ca marche pas.

 

L'idée de de parcourir les présentations était aussi mon option de secours ;)

 

merci quand même.

 

Pour le challenge 30, j'ai déjà un peu travailler sur ça, si j'ai le temps

j'attaquerai à entre midi et deux.

Tous pour lisp, Lisp pour tous!

Avec Revit, cela ne vas trop vite...

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é