Modif de style_cot

[BIGC-ROMU]

Bonjour à tous.

 

J'ai modifié le lisp style_cot de (gille) (ce lisp permet de mettre courant le style de la cote selectionner).

Ma modife consiste, en plus de mettre courant le style de la cote selectionner, à recupérer le calque de la cote selectionnée et de le mettre courant.

 

Le lisp marche, mais j'ai un message d'erreur.

 

Si quelqu'un peut m'aider.

 

Le message d'erreur:

 

Commande: style_cotc

Sélectionnez la cote dont vous voulez rendre le style courant:

GO-Cotations est maintenant le calque courant.

; erreur: no function definition: nil

 

Le lisp modifié (parties surlignées):

 

 ;;; Rend le style de cote  [surligneur] et le calque[/surligneur] de l'objet sélectionné courant

(defun c:style_cotc (/ echo set1 ent)
 (setq echo (getvar "cmdecho"))
 (setvar "cmdecho" 0)
 (if (and (= 1 (getvar "pickfirst"))
   (setq set1 (ssget "_i"))
   (= 1 (sslength set1))
     )
   (progn
     (setq ent (ssname set1 0))
     (sssetfirst nil nil)
   )
   (progn
     (sssetfirst nil nil)
     (while (not ent)
(setq ent
       (car
	 (entsel
	   "\nSélectionnez la cote dont vous voulez rendre le style courant: "
	 )
       )
)
     )
   )
 )
 (if (= (cdr (assoc 0 (entget ent))) "DIMENSION")
    [surligneur] ((command "_Laymcur" ent)[/surligneur]
    (command "_-dimstyle" "_r" (cdr (assoc 3 (entget ent))))
    )
   (progn
     (princ "\nL'objet sélectionné n'est pas une cote.")
     (exit)
   )
 )
 (setvar "cmdecho" echo)
 (princ)
) 

[(gile)]

Salut,

 

Il manque un progn pour grouper les deux appels à command en une seule expression :

(progn
 (command "_Laymcur" ent)
 (command "_-dimstyle" "_r" (cdr (assoc 3 (entget ent))))
) 

[BIGC-ROMU]

Effectivement ça marche mieux...

 

Je te remercie (gille)