jeanniel

Merci beaucoup bonuscad. Cette routine servira pour recharcher les types de ligne de notre fichier entreprise. Un jeune tech nouvellement formé n'avait pas compris le principe de la normalisation et a décidé de modifier "localement, pour lui" les types de ligne en conservant le même nom, avec pour résultat une représentation graphique erronnée des types de lignes pour les dessins qu'il a "améliorés" Cette routine sera ajouté à notre procédure de vérification des normes afin de contrecarrer les initiatives de notre jeunot.

Bonjour, J'aimerais pourvoir recharger tous les types de ligne d'un dessin sans avoir à répondre oui pour tous ceux qui existent déjà dans le dessin. J'utilisais jadis une routine, mais elle ne fonctionne pas bien, me donnant le message que le type de ligne "continuous/ n'existe pas dans le fichier acadiso.lin Quelqu'un peut m'aider? Jeanniel (defun C:ReloadUsedLinetypes () (setq oldexpert (getvar "expert")) (setq oldfiledia (getvar "filedia")) (setq oldcmdecho (getvar "cmdecho")) (setvar "expert" 5) (setvar "filedia" 0) (setvar "cmdecho" 0) (setq ltentry (tblnext "LTYPE" T)) (while ltentry (reloadLinetype (cdr (assoc 2 LTentry)) "acadiso.lin") (setq ltentry (tblnext "LTYPE")) ) (setvar "expert" oldexpert) (setvar "filedia" oldfiledia) (setvar "cmdecho" oldcmdecho) (princ) ) (defun reloadLinetype (acadiso.lin) (command "_-linetype" "_load" acadiso.lin"")