benard

Bonsoir, 1 Command: VUEDYN définir point caméra, point cible , activer les délimitations , régler les délimitations avant et arriérè (suivant besoin) 2 Command: VUE Nouveau Nom de la vue : Sauvegarde la vue avec les délimitations 3 Command : VUEDYN sectionner Tout DEL IN Désactive les délimitations. ici on retrouve la visibilité de tout l'espace objet répéter les opérations 1 à 3 pour chaque Vue à sauvegarder basculer dans une présentation Command : VUE Vue des modèles sélectionnez une des vues sauvegardées Définir courant Appliquer sélectionner et appliquer à chaque FMULT finaliser en adaptant les échelles et le cadrage des FMULT Chaque FMULT récupéré les paramétrés de délimitations définis dans les vues nommées Fastidieux, mais je ne connais pas plus simple !

Bonjour, (command "_layer" "E" "PIECE" "" )

Aprés avoir défini le plan de coupe 3D, sauvegarder la vue (avec ses délimitations avant et arriére) et ensuite la restaurer (définir courant) dans la FMULT Benard

Bonsoir, bonuscad c'est bien cette ligne de trop qui perturbe le fonctionnement.

Bonsoir, je bloque, le code suivant fonctionne après chargement. a la seconde éxecution , AutoCAD 2009 renvoi : Affectation à un symbole protégé TYPE Y a t-il des variables a ne pas utiliser? TYPE ?? mise a jour du chemin du fichier dessin et la date d'edition dans les cartouches ;recupe les valeurs des etiquettes "NOM_FICHIER" et "DATE_EDITION" ;dans les blocs cartouches au nom commençant par car* ;met a jour l'etiquette "NOM_FICHIER" avec le chemin actuel ;met a jour l'etiquette "DATE_EDITION" avec la date courante ;liste des variables ;datfix date au format anglais ;att_new_date attribut nouvelle date au format français ;att_new_nom attribut nouveau nom du fichier dessin ;carts jeu de selection de tous les blocs avec un nom commençants par CAR ;compte compte le nombre d'objets dans le jeu de selections carts ;ent_bloc entite bloc en cours de traitement ;nom_bloc nom du bloc en cours de traitement ;ent_att entite attributs en cours de traitement ;att_etiq valeur de l'etiquette en cours de traitement ;att_old_nom valeur de l'etiquette ancien nom en cours de traitement ;att_old_date valeur de l'etiquette ancienne date ; (defun C:mjc ( / datfix att_new_date att_new_nom carts compte ent_bloc nom_bloc ent_att att_etiq) (setvar "CMDECHO" 0) ; Chargement de julian.lsp (load "julian" "Ne peut pas charger le fichier JULIAN.LSP.") ; Retrouver la date par la sous fonction de julian.lsp (progn (if (= (type jtoc) 'SUBR) (progn (setq datfix (jtoc (getvar "date"))) (setq att_new_date (strcat (itoa (nth 2 datfix));jour "/"(itoa (nth 1 datfix));mois "/"(itoa (nth 0 datfix));annee " à "(itoa (nth 3 datfix));heure "h"(if (< (nth 4 datfix) 10)(strcat "0" (itoa (nth 4 datfix)))(itoa (nth 4 datfix)));minutes ) ) );progn (setq att_new_date " Indéterminée") );if );progn ;recuperer le nom du fichier (setq att_new_nom (strcat (getvar "dwgprefix") (getvar "dwgname"))) ;recupere tout les blocs (setq carts (ssget "x" '((0 . "INSERT") (2 . "CAR*")))) ;verifie le jeu de selection (if (/= carts nil);if3 (progn (setq compte 0) (repeat (sslength carts) (setq ent_bloc (ssname carts compte)) ;recupere le nom du bloc (setq nom_bloc (cdr (assoc 2 (entget ent_bloc)))) ;verifie la presence d'attribut (if (=(cdr (assoc 66 (entget ent_bloc)))1) ;(princ i) (progn (setq ent_att (entnext ent_bloc)) (princ "\n recuperation des attributs du bloc") (while (/= (cdr (assoc 0 (entget ent_att))) "SEQEND") ;(setq ent_bloc (car ent_bloc)) (princ ".") (setq att_etiq (cdr (assoc 2 (entget ent_att)))) (setq att_val (cdr (assoc 1 (entget ent_att)))) ;initialise l'attribut ;(print ) ;(princ att_etiq) (princ " ") (princ att_val) ;stocke la valeur de l'etiquette ;(if (= att_etiq "NOM_FICHIER")(princ "trouve")) (if (= att_etiq "NOM_FICHIER")(setq att_old_nom att_val)) (if (= att_etiq "DATE_EDITION")(setq att_old_date att_val)) (set (read att_etiq )att_val) (setq ent_att (entnext ent_att)) ) ;mise a jour de l'attribut nom_fichier (if (/= att_old_nom nil) (command "_attedit" "N" "N" nom_bloc "nom_fichier" att_old_nom att_old_nom att_new_nom) ) ;mise a jour de l'attribut date (if (/= att_old_date nil) (command "_attedit" "N" "N" nom_bloc "date_edition" att_old_date att_old_date att_new_date) ) ;mise a nil des variables pour traité le bloc suivant (setq att_old_nom nil) (setq att_old_date nil) ) (progn (alert (strcat "le bloc " nom_bloc " ne contient pas d'attributs\navec l'etiquette NOM_FICHIER ou\navec l'etiquette DATE_EDITION !")) ) ) (setq compte (+ compte 1)) (princ) ) ) ) ;(setvar "CMDECHO" 1) );defun (princ "\n\ mjc charge")

Bonjour, J'ai plusieurs blocs, donc le point de base n'est pas à 0,0,0 est-il possible de mettre ce point de base à 0,0,0 sur plusieurs blocs rangés dans un répertoire?