petit problème avec un (vlax-ldata-get.

[DenisHen]

Bonjour à tous.

 

J'ai un petit problème de compréhension d'un (vlax-ldata-get. D'après ce que j'ai compris de l'aide en ligne, on peut proposer une valeur si la clef du dictionnaire n'existe pas.

 

Mais je tombe sur ce problème, je ne récupère qu'un nil :

_$ (vlax-ldata-get "DenisH" "EtiqPRD_OptionIns" "Automatiquement")

nil

_$ (setq def (vlax-ldata-get "DenisH" "EtiqPRD_OptionIns" "Automatiquement"))

nil

[Patrick_35]

Bonjour à tous.

 

J'ai un petit problème de compréhension d'un (vlax-ldata-get. D'après ce que j'ai compris de l'aide en ligne, on peut proposer une valeur si la clef du dictionnaire n'existe pas.

 

Mais je tombe sur ce problème, je ne récupère qu'un nil :

Salut

 

Ben oui, je ne vois pas où est le problème ?

 

Par exemple

(or (setq def (vlax-ldata-get "DenisH" "EtiqPRD_OptionIns"))(setq def "Automatiquement"))

 

@+

[DenisHen]

Salut Patrick_35, et merci pour ta réponse.

 

Normalement, si la clef du dictionnaire est vide, (vlax-ldata-get "DenisH" "EtiqPRD_OptionIns" "Automatiquement") devrait retourner "Automatiquement" et non nil...

 

D'après ce que j'ai compris sur l'aide en ligne... En anglais...

[Patrick_35]

Salut Patrick_35, et merci pour ta réponse.

 

Normalement, si la clef du dictionnaire est vide, (vlax-ldata-get "DenisH" "EtiqPRD_OptionIns" "Automatiquement") devrait retourner "Automatiquement" et non nil...

 

D'après ce que j'ai compris sur l'aide en ligne... En anglais...

Oui, et c'est bien ce que me retourne Autocad d'après ton exemple. J'ai la bonne valeur.

Je te proposais une solution alternative.

 

@+

[DenisHen]

Salut.

 

Merci pour ta proposition, je vais faire avec...

 

Mais c'est tout de même curieux ce comportement de ce (vlax-ldata...

 

Du coup, voici mon code :

  (if (= (setq def (vlax-ldata-get "DenisH" "EtiqPRD_OptionIns" "Automatiquement")) nil)
   (setq def "Automatiquement")
 ) ;_ Fin de if
 (initget "Automatiquement Manuellement Gauche Droite Non")
 (setq OptionIns (getkword
                   (strcat "\nPlacement des textes [Automatiquement/Manuellement/Gauche/Droite/Non] <" def "> : ") ;_ Fin de strcat
                 ) ;_ Fin de getkword
 ) ;_ Fin de setq
 (if (= OptionIns nil)
   (vlax-ldata-put "DenisH" "EtiqPRD_OptionIns" def)
   (vlax-ldata-put "DenisH" "EtiqPRD_OptionIns" OptionIns)
 ) ;_ Fin de if

[Patrick_35]

Mais c'est tout de même curieux ce comportement de ce (vlax-ldata...

Salut

 

Oui. Je suis sur une 2017, c'est peut-être la différence.

J'ai aussi découvert il y a peu une nouvelle fonction.

(vla-postcommand (vla-get-activedocument (vlax-get-acad-object)) ...)

Quid du command, command-s, vl-cmdf et maintenant vla-postcommand

 

ps : tu n'as pas compris la subtilité du or ;)

 

@+

[DenisHen]

Salut.

 

Effectivement, je n'avais pas saisi cette astuce...

 

Après quelques testes dans la console, je comprend mieux, et je l'ai intégré à mon code...

 

Encore merci...