[Résolu] Petit problème de chargement de type de ligne

[DenisHen]

Bonjour à la communauté.

 

Voilà, j'essai de charger différents type de ligne depuis un petit bout de code, mais ça ne fonctionne pas, le voici :

(defun c:AxiansTest ()
 (setq LstTypLign '("LD_PALPLAN" "LD_AXE" "LD_PERRE" "EtPaTaTi" "EtPaTaTa")               	)
 ) ;_ Fin de setq
 (foreach PosLst LstTypLign
   (if (not (tblsearch "LTYPE" PosLst))
     (vl-cmdf "_-LINETYPE" "LOAD" PosLst "Axians.lin" "")
   ) ;_ Fin de if
 ) ;_ Fin de foreach
) ;_ Fin de defun

AutoCAD me répond :

Choix de l'option incorrect.

Autant de fois que j'ai de type de ligne à télécharger...

 

Sachant que mon fichier Axians.lin est dans un répertoire de recherche d'AutoCAD.

 

Si quelqu'un a une astuce ou un conseil, je suis preneur...

 

Denis...

[bonuscad]

C'est bien de vouloir internationaliser son code, mais attention aux erreurs...

 

(vl-cmdf "_-LINETYPE" "_LOAD" PosLst "Axians.lin" "")

"load" n'est pas une option correcte pour une version Française, mais "_load" lui sera compris quelque soit la langue.

[DenisHen]

Bonjour Bonuscad...

 

Effectivement, si je ne le fais pas correctement...

 

Merci beaucoup...

[DenisHen]

A ce sujet, j'ai trouvé, dans un autre post, un lisp hyper intéressant : Steal de Lee Mac