OlivierR

Bonjour iowa13, Tu utilises quelle imprimante PDF ? DWGtoPDF, Pdfcréator, autre ? Olivier

Bonjour CT_KO, Pour être sur de bien comprendre ta demande, je me permet de la reformuler ce que j'ai compris. Tu veux copier la valeur du champ d'un attribut d'un définition de bloc vers un autre attribut de cette même définition de bloc ? Puis, remettre à jour 4800 référence de cette définition de bloc ? Si t'elle est le cas, tu peux ajouter un champ dans un attribut de ta définition de bloc qui copie la valeur d'un autre attribut de cette définition. Puis une synchroniser les références de blocs. Olivier

Salut Luna, Je n'ai pas testé dans beaucoup de cas mais cela fonctionne parfaitement pour mon cas (trouver l'échelle d'annotation d'une fenêtre). Si tu le permets je garde précieusement ta fonction au chaud. Et merci Olivier pour ton aide. Olivier

Pas réveillé ce matin, j'ai lu 2016. <<< Note du Moderateur lecrabe >>> Mais si tu es bien reveille, j ai corrige 2016 en 1996 !

@lecrabe tu dois souvent te retrouver seul au bureau en utilisant le calendrier de 1996. 😄 Tu voulais dire 2012 peut-être ? mais attention à certain jour férié.

Joyeuses fêtes à toutes et tous.🍾

oups, j'ai raté ta réponse. J'ai utilisé un mauvais terme. Il faut que la propriété "Invisble" de l'attribut soit mise sur OUI. Pour sa sélection. Il faut travailler dans la définition de ton bloc et non dans la référence (il faut éditer le bloc). Tous les attributs sont alors visibles. Là tu double clique sur l'attribut Z_R Puis tu insère un champs dans l'espace par défaut. Tu indique que ce champs est une formule. Dans l'espace réservé à la formule, tu peux insérer tes 2 nouveaux champs objet. Tu peux faire un clic droit sur mes champs puis modfié pour voir quel catégorie a été utilisée. Ne pas oublier de synchroniser les attributs après avoir modifié le bloc. (commande ATTSYNC) Olivier

Bonjour filou, Tu peux créer un nouvel attribut non affiché. Puis insérer un champs formule, avec dans la formule insérer un champs position Z comme les autre attribut puis soustraire la valeur de ton attribut caché. Olivier BLOC RELEVE TOPOmod.dwg

Bonjour Wâlhallein, Pour ton premier lisp, je vais juste te donner des pistes. Cela restera ton lisp. Fait un (entget (car (entsel))) sur la polyligne de départ. Tu obtiendras son code dxf. Si on parle bien d'une LWPOLYLIGNE (polyligne légère) avec les fonctions ANGLE, et POLAR tu vas pouvoir recalculer tes points. Olivier PS : Félicitation pour ton premier lisp fonctionnel et bienvenue dans la communauté des lispeurs

En cherchant autre chose je viens de tomber sur ceci avec la fonction _isAnnotative Donc voilà le code complété (defun _isAnnotative ( style / object annotx ) (and (setq object (tblobjname "STYLE" style)) (setq annotx (cadr (assoc -3 (entget object '("AcadAnnotative"))))) (= 1 (cdr (assoc 1070 (reverse annotx)))) ) ) (defun c:ESSAICOMMANDE (/ acc mode pt obj txt) (setq acc (getvar "OSMODE")) (setvar "OSMODE" 0) (initget "Supprimer Conserver") (setq mode (cond ((getkword "\nSupprimer ou conserver le contour ? [Supprimer/Conserver] <Conserver> : ")) ("Conserver"))) (command "_-BOUNDARY" (setq pt (getpoint "\nSpécifiez un point interne : ")) "") (setq obj (vlax-ename->vla-object (entlast))) (cond ( (= "Supprimer" mode) (setq txt (rtos (vla-get-area obj))) (entdel (entlast)) ) ( (= "Conserver" mode) (setq txt (strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa (vla-get-ObjectID obj)) ">%).Area \\f \"%lu2\">%")) ) ) (command "_-HATCH" "_Properties" "ANSI31" "" "" pt "") (if (_isAnnotative (getvar "TEXTSTYLE")) (command "_-TEXT" "_Justify" "_MC" pt "" txt) (command "_-TEXT" "_Justify" "_MC" pt "" "" txt) ) (setvar "OSMODE" acc) (princ) ) Merci Lee-Mac Olivier

Il y a l'erreur avec les styles de textes annotatifs. Il faut alors remplacer (command "_-TEXT" "_Justify" "_MC" pt "" "" txt) par (command "_-TEXT" "_Justify" "_MC" pt "" txt) Mais je ne sais pas retrouver si un style de texte est annotatif ou non pour mettre une condition. Olivier

Salut Luna, Je programme un enregistrer sous spécifique car nos noms de dossiers comportent le numéros du dossier et le nom du client. J'utilise donc le retour du chemin d'accès pour récupérer ces informations et enregistrer le fichier sous la forme (N°dossier+un nombre croissant). Ta solution avec le flag à 5 me conviens davantage, je vais pouvoir modifier mon code. Je te remercie. Bisous, Olivier PS : merci pour les commentaires sur tes lignes de codes

Salut Fraid, Je te remercie, il faut que je regarde car mon but est de demander à l'utilisateur d'indiquer un dossier pour ensuite nommer et d'enregistrer le fichier en cours par programmation en fonction l'emplacement choisi. Mon Lisp fonctionne mais suivant à quel niveau sont enregistrés les emplacements serveurs chez l'utilisateur, la fonction getfolderdialog peut-être bloquée. Tu m'ouvres une autre voie mais il faut que je réfléchisse comment intégrer ce nouveau fonctionnement. Olivier

Aucune solution...

Merci Steven