recharger types de ligne

[jeanniel]

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"")

 

 

[bonuscad]

Je n'ai pas trop compris l'utilité de cette routine, mais bon là n'est pas la question!

 

mais elle ne fonctionne pas bien

 

Pour moi elle ne fonctionne pas du tout ???

 

(reloadLinetype (cdr (assoc 2 LTentry)) "acadiso.lin") est donc appelée avec 2 arguments, mais ta fonction (defun reloadLinetype (acadiso.lin)....) n'a pas d'arguments??? :casstet:

 

Ecrite comme ceci serait déjà mieux:

 

(defun reloadLinetype (model lin_file)
(command "_.-linetype" "_load" model lin_file "")
)
(defun C:ReloadUsedLinetypes ( / oldexpert oldfiledia oldcmdecho ltentry)
(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
(if (/= (cdr (assoc 2 LTentry)) "Continuous") (reloadLinetype (cdr (assoc 2 LTentry)) "acadiso.lin"))
(setq ltentry (tblnext "LTYPE"))
)
(setvar "expert" oldexpert)
(setvar "filedia" oldfiledia)
(setvar "cmdecho" oldcmdecho)
(princ)
)

[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.