fiesta13310

Bonjour, Je me permet de relancer ce sujet pour savoir si quelqu'un avait une réponse à apporter à mon problème s'il vous plait... Merci et bonne journée à tous!

;; imprime tous les cadre/bloc identique d'un page - par BRED - ;; bloc ayant un attribut "folio" = numéro de page (defun c:impt (/ ACDOC B BACKGROUNDPLOT C I P1 P2 SEL XMIN YMAX PLT lst-att LST LST-F LST-NB Y) (vl-load-com) (while (not sel) (setq sel (car (entsel "\n Choix du cadre (Bloc) :"))) (if sel (if (not (equal (vla-get-ObjectName (setq b (vlax-ename->vla-object sel))) "AcDbBlockReference")) (setq sel nil) ) ) ) (setq sel (ssget '((0 . "INSERT"))) AcDoc (vla-get-activedocument (vlax-get-acad-object)) BACKGROUNDPLOT (getvar "BACKGROUNDPLOT") ) (setvar "BACKGROUNDPLOT" 0) ;; Récupère Attrib "FOLIO" (repeat (setq i (sslength sel)) (if (equal (vla-get-effectivename (setq c (vlax-ename->vla-object (ssname sel (setq i (1- i)))))) (vla-get-effectivename B) ) (if (setq lst-att (vlax-safearray->list (vlax-variant-value (vla-GetAttributes c)))) (repeat (setq y (length lst-att)) (if (equal (strcase (vla-get-TagString (nth (setq y (1- y)) lst-att))) "FOLIO") (setq lst-F (append (list (cons (atoi (vla-get-TextString (nth y lst-att))) c)) lst-F) lst-nb (append (list (atoi (vla-get-TextString (nth y lst-att)))) lst-nb) ) ) ) ) ) ) ;; Tri (setq lst-nb (vl-sort lst-nb '<) i 0 ) (repeat (length lst-nb) (setq lst (append lst (list (cdr (assoc (nth i lst-nb) lst-F)))) i (1+ i) ) ) ;; trite liste bloc (setq i 0) (repeat (length lst) (setq c (nth i lst) i (1+ i) ) (vla-GetBoundingBox c 'xmin 'ymax) (setq p1 (vlax-make-safearray vlax-vbdouble (cons 0 1)) p2 (vlax-make-safearray vlax-vbdouble (cons 0 1)) ) (vlax-make-variant (vlax-safearray-fill p1 (list (car (vlax-safearray->list xmin)) (cadr (vlax-safearray->list xmin)))) ) (vlax-make-variant (vlax-safearray-fill p2 (list (car (vlax-safearray->list ymax)) (cadr (vlax-safearray->list ymax)))) ) (if (> (- (car (vlax-safearray->list ymax)) (car (vlax-safearray->list xmin))) (- (cadr (vlax-safearray->list ymax)) (cadr (vlax-safearray->list xmin))) ) (vla-put-PlotRotation (vla-get-activelayout AcDoc) ac90degrees) (vla-put-PlotRotation (vla-get-activelayout AcDoc) ac0degrees) ) (setq plt (vla-get-plot AcDoc)) (vla-put-PlotType (vla-get-activelayout AcDoc) acWindow) (vla-setwindowtoplot (vla-get-activelayout AcDoc) p1 p2) (vla-plottodevice plt (vla-get-configname (vla-get-activelayout AcDoc))) ) (setvar "BACKGROUNDPLOT" BACKGROUNDPLOT) (princ) )

j'y ai pensé, je suis déjà en scu général, j'ai même vérifié si ma base été bien à 0,0,0

Bonjour Voilà 3 ans maintenant que j'utilise le LISP de BRED qui marchait très bien jusqu'à présent. Maintenant j'ai un bug, je ne sais pas si c'est autocad qui fait ce beug mais c'est énervant. Quand j'utilise impt, pendant un temps il fonctionne très bien, puis un beau matin, je veux l'utiliser sur le même fichier que la veil et la ça beug. En fait il me créer que des pages blanche. Alors quand je fait imprimer puis fenêtre pour voir l'aperçu de la dernière page qu'il a appliqué à la présentation, au lieu que ce soit le dernier bloc à imprimer, il me montre un rectangle blanc pommé dans l'espace objet qui a les même dimensions que mon bloc, sauf qu'il y en a pas. Alors si j'utilise impt et que je sélectionne 5 blocs par exemple, il va me créer 5 pages blanche...Bien sur, j'ai déjà essayé de lancer le lisp en désactivant l'accrochage objet. J'ai trouvé une parade à ça, mais c'est chiant. Je sélectionne tout (ctrl+A), je copie et colle dans un nouveau dessin autocad, je relance impt et là tout fonctionne. Une idée de ce qu'il se passe? Merci d'avance et bonne journée

Bonjour Bred, Voilà 3 ans maintenant que j'utilise ton LISP qui marchait très bien jusqu'à présent. Maintenant j'ai un bug, je ne sais pas si c'est autocad qui fait ce beug mais c'est énervant. Quand j'utilise impt, pendant un temps il fonctionne très bien, puis un beau matin, je veux l'utiliser sur le même fichier que la veil et la ça beug. En fait il me créer que des pages blanche. Alors quand je fait imprimer puis fenêtre pour voir l'aperçu de la dernière page qu'il a appliqué à la présentation, au lieu que ce soit le dernier bloc à imprimer, il me montre un rectangle blanc pommé dans l'espace objet qui a les même dimensions que mon bloc, sauf qu'il y en a pas. Alors si j'utilise impt et que je sélectionne 5 blocs par exemple, il va me créer 5 pages blanche... J'ai trouvé une parade à ça, mais c'est chiant. Je sélectionne tout (ctrl+A), je copie et colle dans un nouveau dessin autocad, je relance impt et là tout fonctionne. As-tu une idée de ce qu'il se passe? PS : je travail avec autocad 2017. Merci d'avance et bonne journée

Bonjour, Ha...je fais partie des 1ère a poster un message :) Bon, je ne sais pas si c'est autocad 2018 ou pas, mais je veux simplement lier une Xref dans mon plan et voici le message d'erreur que j'ai : "Certains objets des références croisées spécifiées n'ont pas pu être liés." Du coup, j'ai décomposer mon fichier source de la Xref, je l'ai purgé, j'ai vérifié qu'il n'y avait pas de calques gelés ou verrouillés... et aussi qu'il n'y avait pas des Xref attaché à ce fichier. Mais rien... Là je sèche... Merci de votre aide

En fait j'ai trouvé... il y avait une hachure perdue quelque part dans le plan ... elle venait certainement d'un logiciel archi... je l'ai supprimé et ça a fonctionné Bonne journée

Bonjour, J'ai un fichier DWG que je voudrais enregistrer en local en DXF, mais voici le message d'erreur : Impossible d'enregistrer vers le dessin C://Users/Desktop/BLOC-1.dxf. Le dessin a été enregistré vers C://Users/Desktop/save1425.tmp Quelqu'un sait pourquoi? Merci d'avance

Salut, oui cela fonctionne pour 2017, et je ne connaissais pas en plus... ;)

Bonjour! Il arrive que j'ai 2 polylignes superposée, l'une en trait continue et l'autre en pontillée. Avant sur autocad 2016, je pouvais, après un gros zoom, sélectionner la ligne continue qui était en dessous de la ligne pointillée. En effet,entre 2 pointillés je pouvais voir la continuité de la ligne et donc la sélectionner directement. Maintenant sous autocad 2017, je ne peux plus le faire. Je suis obligée de les sélectionner toute les 2, puis de désélectionner la ligne pointillé. C'est du chipotage pour chipoter, mais c'était bien utile. Un réglage? Merci d'avance

Bonjour!! Ok merci, ça a fonctionné, mais il a fallut que je redémarre autocad quand même :) Mais c'est super merci beaucoup!!!

Je ne suis pas trop à l'aise avec des installation comme ça... Du coup j'ai pu l'installer, mais concrètement je dois faire quoi sur autocad pour que cela fonctionne à présent? j'ai un truc à charger? je dois redémarrer?...

Gile, j'ai un message d'erreur : "Error 1001. La référence d'objet n'est pas définie à une instance d'objet." Ca veut dire quoi?

Merciiiiiiii gile :)

Re-bonjour, Si j'ai réussi a le télécharger moi... je suis en train de l'installer là :huh:

Coucou! Merci pour vos réponses, j’attends que Gil viennent sauver la demoiselle en détresse alors :P Merci Gil pour tous ces lisp et astuces que tu nous laisse! @ très vite ;)

Bonjour, J'ai mis la X-Ref archi sur un calque "X-ref-archi" que j'ai verrouillé, et je dois faire des sélections (de la droite vers la gauche évidemment ), mais à chaque fois ma X-ref se sélectionne et a chaque fois je dois la désélectionner... c'est juste chiant en fait :(rires forts): Une variable? Merci

Steven, tu n'aurais pas un LISP pour ça STP?

Bonjour! oui en effet, je viens de me connecter justement pour dire que mon dessin s'eétait déplacée dans l'espace objet, et du coup, mon SCU général n'était plus mon SCU de base...ce qui fait que mes présentations n'étaient plus bonnes. Du coup, je suis venue demander si tu sais comment on fait pour verrouiller (à jamais) le SCU général d'autocad comme le SCU de base...un peut comme on verouille les fenetre dans les présentations

ho punaise non, j'avais pas vu ce message..(?).. oui en effet, cela fonctionne hyper bien Oui et bien je vais créer un lisp plutôt, car je travail à 98% du temps au clavier... Merci d'avoir "insister" ;)

Alors en fait il ne s'agit pas de hachure "par point" mais par "sélection". Grâce à la détection d'îlot, autocad hachure très bien les blocs à condition , BIEN SUR, de travailler en polyligne fermé SURTOUT... et oui, beaucoup ne travaille pas en polyligne... Je suis d'accord avec toi sur le fait que certains devraient changer de métier ou travailler avec les PDF... il y en a même qui me demandent d'enregistrer sous 2010... (on est en 2017 quand même...) Je travail déjà en Xref mais pour d'autre chose, là aussi, beaucoup ne maitrise pas les xref, et ne savent pas ce que c'est des "E-transmit". En fait, je passe plus de temps à expliquer aux gens comment on fait qu'à le faire moi même. Pour la petite histoire, j'ai décidé de travailler en bloc quand il a fallu que j’envoie des fichier avec des références externes. Comme certains ne savent pas les recharger comme il faut, j'ai finis par envoyer mes fichier avec les X-ref "lié" dans mon fichier. du coup, il se lient en tant que bloc. Donc maintenant, je travail en bloc. En fait, j'espérai une fonction du type ATTSYNC, ou encore mieux, REGENERER...

Oui, j'ai également fait cette méthode pendant longtemps, mais pareil que précédemment, les autres utilisateur d'autocad ne maitrise pas forcément les blocs dynamique (et encore moins les autres corps d'état), et le fichier devient vite très lourd quand on le complète

oui c'est ça! :D bon la j'ai mis RDC et R+1... mais j'en ai bien plus en génral...

La commande "étirer" oui je la connais , je m'en suis d’ailleurs servi pour étirer mon mur du R+1. En revanche non je ne connais pas la commande capture, à quoi sert-elle? Oui en effet, si je met les hachure dans mon blocs elle suivent, mais ce n'est pas les mêmes hachure entre les murs de l'étage courant et celles de l'impact. Après il y avait la solution de X_all, de jouer avec la visibilité dans les présentation, mais ce n'est pas gérable. Je suis toute ouïe pour ta solution alors :)

fichier ici : Lien de téléchargement https://we.tl/vfv2ho9lX4