grid1334

dessin - modélisation - Maillage - Lisser le maillage. Bonne journée.

C'est dû à ta variable psltscale qui est toujours à 1 par défaut mais qu'il faut mettre à zero, lorsque cette dernère est à zero les types de ligne de l'objet sont identiques sur la papier. Tape: PSLTSCALE puis entrer 0 puis entrer Régénère. Pour info cette variable correspond à la case à cocher"utiliser les unités de l'espace paier pour une mise à l'échelle" situé dans format-type de lignes.

Merci gile j'ai tenu compte de tes remarques et modifié le programme en m'assurant que la variable pickstyle soit à 1 dés le départ du programme, elle sera réstaurée à la fin du programme. Je ne maîtrise pas du tout vlisp alors je suis resté au bon vieux autolisp. (defun picvar () (setq pic (getvar "pickstyle")) (if (= 0 (getvar "pickstyle")) (setvar "pickstyle" 1) (setvar "pickstyle" 0) ) ) (defun c:calav (/ ent) (picvar) (if (setq ent (car (entsel "\nSélectionnez un objet sur le calque cible: ") ) ) (command "_.draworder" (ssget "_X" (list (assoc 8 (entget ent)))) "" "_front" ) ) (setvar "pickstyle" pic) (princ) ) (defun c:calar (/ ent) (picvar) (if (setq ent (car (entsel "\nSélectionnez un objet sur le calque cible: ") ) ) (command "_.draworder" (ssget "_X" (list (assoc 8 (entget ent)))) "" "_back" ) ) (setvar "pickstyle" pic) (princ) )

Bizarre ça a pourtant bien fonctionné sur la 2008, essai de recharger ta macro, sinon ouvre la avec l'editeur visual lisp (taper vlide) puis "Outils - formater le code dans l'éditeur", enfin enregistre et charge la à nouveau.

En effet cela marche jusqu'à la version 2007, mais la 2008 non, j'ai corrigé le code, en fait cette version est moins permissive au niveau de la mise en forme. J'ai viré des espaces et mis en forme le code avec l'éditeur visual lisp, ça marche maintenant sur la 2008. ;;selectionne tous les objets d'un calque et les met au premier plan (defun c:calav (/ ent) (if (setq ent (car (entsel "\nSélectionnez un objet sur le calque cible: ") ) ) (sssetfirst nil (ssget "_X" (list (assoc 8 (entget ent))))) ) (command "ordretrace""AV""") (princ) ) (defun c:calar (/ ent) (if (setq ent (car (entsel "\nSélectionnez un objet sur le calque cible: ") ) ) (sssetfirst nil (ssget "_X" (list (assoc 8 (entget ent))))) ) (command "ordretrace""AR""") (princ) )

Essaie ces morceau de code en autolisp, ils marchent bien. Tapez calav pour mettre le contenu d'un calque en avant et calar pour le mettre en arrière plan. ;;met le contenu d'un calque au premier plan (defun c:calav (/ ent) (if (setq ent (car (entsel "\nSélectionnez un objet sur le calque cible à mettre au premier plan: ") ) ) (sssetfirst nil (ssget "_X" (list (assoc 8 (entget ent))))) ) (command "ordretrace" "av""") (princ) ) ;;met le contenu 'un calque en arrière plan (defun c:calar (/ ent) (if (setq ent (car (entsel "\nSélectionnez un objet sur le calque cible à mettre au dernier plan: ") ) ) (sssetfirst nil (ssget "_X" (list (assoc 8 (entget ent))))) ) (command "ordretrace" "ar""") (princ) ) [Edité le 18/8/2008 par grid1334]