ordretrace

[pascal19]

Bonjour

J'ai voulu essayer une routine pour mettre les "wipeout" contenu dans les blocs en arrière, j'ai donc fait ça:

 

(defun c:modifim2 ()
 (vl-load-com)

 (setq	a (vla-get-blocks
    (vla-get-activedocument (vlax-get-acad-object))
  )
 )

 (vlax-for bl a

   (vlax-for ent bl

     (if (= (vla-get-objectname ent) "AcDbWipeout")

(COMMAND "ORDRETRACE" ent "" "" ar "")

     )

   )

 )

 (vla-regen (vla-get-activedocument (vlax-get-acad-object))
     acActiveViewport
 )



) 

 

mais j'ai ce message d'erreur:

 

Choix des objets: ; erreur: valeur d'argument incorrecte: commande AutoCAD:

#

 

savez vous ce qui se passe ?

 

[Tramber]

(vlax-vla-object->ename ent) 

 

Aurait été valable dans un COMMAND.

 

Malheureusement, je crois aussi qu'il n'est pas possible (en tous cas conseillé) de traiter un COMMAND dans une boucle VLAX-for.

 

Tu vas devoir passer par "ACAD_SORTENTS" et des méthodes moins conventionnelles. Voir une discussion.

[(gile)]

savez vous ce qui se passe ?

Oui.

Comme dit dans le message d'erreur le type d'argument passé à command est incorrect.

La commande "ORDRETRACE" (préférer "_draworder") requiert un nom d'entité (type ENAME) ou un jeu d sélection (type PICKSET) et tu essayes de lui passer un objet Visual LISP Automation (type VLA-OBJECT).

 

Tu dois convertir le VLA-OBJECT en ENAME avec la fonction : vlax-vla-object->ename.

 

Tu peux aussi éviter d'utiliser command en faisant tout en Visual LISP avec les fonctions définies ici.

[pascal19]

damned ! moi qui pensait que ça serai simple .

je vais essayé, merci pour votre aide.

[(gile)]

Non, ce n'est pas si compliqué si tu utilises command.

Remplace :

(COMMAND "ORDRETRACE" ent "" "" ar "")

par :

(command "_draworder" (vlax-vla-object->ename ent) "" "_back")

[pascal19]

Bonjour

 

j'ai essayé:

 

 (defun c:modifim2 ()

 (vl-load-com)


 (setq	a (vla-get-blocks
    (vla-get-activedocument (vlax-get-acad-object))
  )
 )

 (vlax-for bl a



   (vlax-for ent bl



     (if (= (vla-get-objectname ent) "AcDbWipeout")

       
(command "_draworder" (vlax-vla-object->ename ent) "" "_back")

     )

   )

 )

 (vla-regen (vla-get-activedocument (vlax-get-acad-object))
     acActiveViewport
 )

)

 

j'ai un message d'erreur :

_back _draworder

_back _draworder

 

j'ai encore oublié quelque chose ?