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

Merci lecrabe.

Bonjour à tous, Des collègues insistent pour utiliser les wipeout. Le bug du noir/blanc sur les PDF existe t'il toujours ? Olivier

Bonjour (gile), Tout d'abord je te remercie pour tous tes Lisps que j'ai mainte fois utilisés. En ce moment, j'utilise ta fonction getfolderdialog dans un de mes Lisps (ou tu es mentionné bien sûr), en revanche j'ai remarqué que les dossiers raccourcis n'apparaissaient pas. Or nos serveurs ne sont pas atteignables par un autre chemin. Je sais que tu as fait une version .net mais mon service info me bloque l'installation. Il y t'il un moyen de faire apparaître ces raccourcis ou dois-je me rabattre sur une solution de substitution ? Merci, Olivier

Salut lecrabe, Cela fait plaisir de te lire. Lorsque j'ai édité ce message je venais de lire un post datant 2020 mentionnant ton départ en retraite à l'automne. J'ai ensuite pu constater que tu étais toujours actif. J'ai malheureusement ensuite appris le décès de Patrick35 très en retard. 😢 Bonne journée à vous deux, Olivier

Bonjour Bruno, Effectivement tu fais partie des personnes dont j'ai vérifié la présence sur forum. Je te suis toujours reconnaissant de toute l'aide et des éclaircissement que tu m'as apporté. Amicalement Olivier

Je suis un boulet, il fallait 4 \.

Bonjour Max Ln, Tu peux mettre des tests dans un champs en passant par les expressions diesel. C'est moins évolué que le Lisp mais utilisable sur toute les versions y compris LT. Olivier

Bonjour davv, As-tu essayé _-PLOT ? Olivier

Bonjour, J'ai le problème lorsqu'il y a 2 poignées au réseau. Lorsque je met uniquement la poignée aval cela marche. Je ne parviens pas à faire mieux. Olivier

Bonjour, Les fichiers .ATC ont très bien fonctionné mais j'ai encore un petit soucis. Je vais essayé de m'expliquer au mieux : Lors déclaration du chemin, mes premiers essais étaient avec un emplacement serveur avec la lettre d'emplacement réseau type "H:" . Hors cet emplacement risquer d'être modifié et l'informatique m'a transmit l'adresse en partage de service commençant par "\\" et là Autocad m'ajoute un emplacement sur le disque C avant l'adresse réelle. Pour le registre Windows j'avoue que je suis dépassé. En vous remerciant, Olivier