Bred

Salut, comme j'ai encore la boite complète de mon LT97 (si si... j'en suis le premier étonné d'avoir gardé ça complet) j'ai jeté un coup d'oeuil sur la description. Il ne parle de compatibilité avec maximum la R14. (et lt95) Donc ça doit être ça.

Salut, je t'avais expliqé dans ton ton message original que le lisp que je te proposais n'étais pas fait pour débuter. Je ne sais pas quel est ton niveau, mais t'expliquer ces lignes ne te seront je pense pas utile si tu veux apprendre... Mieux vaux commencer par les bases ! Je t'explique quand même : Je scrute la sélection courant en mettant à chaque fois un élément dans e (vlax-for e ( vla-get-activeselectionset AcDoc) Si la coordonnées y du premier point de la ligne = coordonnées y du dernier point de la ligne... ( if (equal (cadr (vlax-get e 'StartPoint)) ( cadr (vlax-get e 'EndPoint))) .... je rajoute +1 à n (setq n (1+ n)

Salut, Ah, ben tiens, je ne connaissais pas ! ça c'est intéressant à savoir ! merci.

Salut, Est-ce un fichier 2D ? N'aurais-tu pas une multitude d'objets l'un sur l'autre ? Si tu fait un Ctrl+&, et que tu supprimes, combien d'objets sont supprimés (c'est marqué en ligne de commande) ?

Re, pour l'utilisation des codes lisp, tu as ici un tuto. offert par (gile).

Salut, pour en revenir à la seconde demande : création d'un onglet par cadre en EO. (mais pas la demande spécifique de 2 fenêtres avec plan total + détail : on verra plus tard....) J'ai pondu un truc, mais j'ai un bug bizarre : l'échelle n'est pas bonne... Le principe : Vous devez avoir au moins 1 présentation paramétrer correctement (traceur, échelle....) - Vous sélectionnez un cadre (bloc) en EO - Vous sélectionnez tous les cadres identiques que vous voulez traiter - Vous donnez un nom d'onglet (qui sera incrémenter de +1) - Si vous avez déjà plusieurs présentation existantes, vous devez rentrer le nom de celle qui serviras de base pour le traceur et l'échelle (mais c'est là que c'est bizarre...) - Vous validez. Merci d'avance pour vos éventuels tests. PS : J'ai repiquer et retravailler une routine de récupération de style de traceur fait par Patrick_35. - Voir Message 23 page 4 - [Edité le 7/7/2008 par Bred]

Salut, Est-ce cela que tu veux faire ? (setvar "peditaccept" 1) (command "pedit" "M" (ssget) "" "j" "0" "")

Salut, (setq Bloc_insere (list "AAA" "BBB" "CCC" "DDD")) (setq Nom_bloc "CCC") (if ([b]member[/b] Nom_bloc Bloc_insere) (princ "\n OK !!!!") (princ "\n Et non !!!!")) (setq Bloc_insere [b]nil[/b])

Salut, par expérience, le temps de déroulement du programme, entre autre bien sûr du temps passé à l'exécuter, est susceptible de changer selon les process actif sur ton système, et selon les moments où des fonctions automatiques se mettent en marche (messagerie, anti-virus, Liv-update, etc...) Mais c'est quand même difficile de te répondre sans avoir le prog sous les yeux....

Salut lili2006, tu pourrais joindre ton plan test si-possible stp ?

Salut, Alors, après avoir mis un an à avoir ce &%3°4%&é=) de permis de construire (Erreur du Géomètre concernant les parcelles, lenteur du constructeur à fournir des nouvelles pièces -que j'ai fini à faire moi-même-, Archi des bâtiment de France qui proposais n'importe quoi....), les travaux ont pu commencer ! Mon terrassier (pris en direct) m'a fait un super boulot (enrochement car terrain en pente, etc...) Le terrassier du constructeur à creuser les fouilles... certaine de + de 2.80 m de profondeur !!! :P :exclam: En sachant que mon terrain est inaccessibles aux toupies béton... Les "manutes" ont commencé à remplir tous ça de gros béton... en plein soleil... tous à la bétonnière ! C'est là ou je suis content d'être passé par un constructeur, car j'ai un devis fixe, et les surprises, c'est pour leur pomme !!! Une question aux connaisseur : après le remplissage des fouilles, avant la réalisation des semelles, est-ce qu'une protection pour éviter les remontés d'humidités entre les fouilles et les semelles doit-être prévu ? merci d'avance.

Salut, ça ne va pas fonctionner, si tes cadres ne sont pas des blocs. PS : merci lili2006.

Salut, je n'ai pas de A2004 sous le clavier, le plus vieux est A2006. Mais si je me rappel bien ça doit exister... (je suis désolé si ce n'est pas le cas). Tu sélectionne la cote, Tu va tans les propriétés (Ctrl+&), Et dans la partie "Texte", tu as une ligne "couleur de remplissage", tu peux y mettre une couleur, ou un masque d'arrière plan. http://xs128.xs.to/xs128/08263/2008-06-25_084842745.jpg

(gile) te donnes mieux que ça ! la variable qui est modifié lors du changement de largeur. Si tu as l'habitude de bosser avec toujours les mêmes largeur, tu n'as qu'a te faire des boutons lançant l'outil polyligne, mais juste avant tu modifie cette variable (PLINEWID) !

Ah ben tiens ! merci ! je pensais bien que l'option de LArgeur devais modifier une variable, je n'avais jamais pensé à chercher.

Ben c'est encore plus bizarre alors... ou alors ce n'est pas autocad, c'est tes paramètre de clavier... Si tu te mets sous Excel, dans une case, que tu tapes F7, le correcteur d'orthographe se met en route ? Si tu tape F8, c'est comme si tu avais le Maj actionné : si tu cliques sur une autre cas, ça devrais sélectionner tous les cases compris entre la première et celle que tu viens de cliquer...

Salut, excuse moi pour ma réponse, mais on ne sait jamais.. Lorsque tu lance l'outil polyligne, as tu vérifier la largeur dans les options en ligne de commande ?

Re, Re, Alors, voici un truc un peu plus fini pour le lisp d'impression de tous les cadres (bloc) sélectionné : - J'ai suivis les conseil de Patrick_35 pour éviter le vl-cmdf - J'ai réparer le problème posé par mdsv31 dans son exemple - J'en ai profiter, car ce précédent exemple posais le problème, de gérer le mode paysage ou portrait selon l'orientation du cadre... A tester.... ; imprime tous les cadre/bloc identique d'un page - par BRED - (defun c:impt (/ ACDOC B BACKGROUNDPLOT C I P1 P2 SEL XMIN YMAX PLT) (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) (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)) (progn (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) )

Parce que la boundingbox me donne tes coordonnées 3D, et que vla-setwindowtoplot n'accepte que des points 2D. Et je n'ai pas trouvé un autre moyen de les convertir... Ben j'avais un problème pour les imprssion en pdf, et je n'avais pas la barre de défilement, mais en faisant une recherche ici, j'ai trouvé ton post, ou on ta proposé une solution, je vais la tester ! Oui, mais il faut aussi que je traite tous les blocs "normaux", pas que les dynamique.... (si le cadre est un bloc "simple" il faut que ça fonctionne) mais tu as raison, je dois pouvoir mieux filtrer...

Re, merci Patrick_35 je jette un coup d'œil sur tes remarques. mdsv31 : je regarde ça. Voici ci-dessous le lisp permettant de créer un onglet par cadre (identique) sélectionné. A toi de me dire, BIGC-ROMU, si c'est bon... - Voir Message 23 page 4 - [Edité le 7/7/2008 par Bred]

Salut, c'est bizarre ton truc. As tu l'ortho "temporaire" ? (en appuyant longtemps sur la touche "maj")

Je ne sais pas si j'ai compris : Le truc c'est que je fait un test de la taille du bloc. Si son dynamisme lui permet d'être plus petit (A3->A4 par ex), malheureusement le code récupèreras sa taille de "base"... (j'imagine) Mais je ne connais rien au bloc dynamique, donc peut-être (surement) il y a une solution.... Si tu as ce genre de bloc (et si j'ai compris le coup du "bloc identique") si tu as un bloc du genre à joindre, je veux bien tenter....

Re, comme je l'ai fait et que je ne sais pas si la proposition de x_all te conviens, tu trouveras le lisp ci-dessous corrigé pour qu'il prenne en compte les blocs dynamique (la sélection te surligneras tous les blocs, mais je fais le tri dans le lisp...) J'ai passé la variable BACKGROUNDPLOT à 0 sinon ça plante. Pour la création des nouveau onglet pas feuille, je regarde. ; imprime tous les cadre/bloc identique d'un page (defun c:impt (/ ACDOC B BACKGROUNDPLOT C I P1 P2 SEL XMIN YMAX) (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))) (setq BACKGROUNDPLOT (getvar "BACKGROUNDPLOT")) (setvar "BACKGROUNDPLOT" 0) (repeat (setq i (sslength sel)) (if (equal (vla-get-name (setq c (vlax-ename->vla-object (ssname sel (setq i (1- i)))))) (vla-get-name b)) (progn (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))))) (vla-put-PlotType (vla-get-activelayout AcDoc) acWindow) (vla-setwindowtoplot (vla-get-activelayout AcDoc) p1 p2) (vl-cmdf "_-plot" "" "" "" "" "" "O" "") ) ) ) (setvar "BACKGROUNDPLOT" BACKGROUNDPLOT) (princ) )

Salut, Si je comprends bien tes attributs sont constants, donc quelque soit le bloc choisis, si il a le même nom, les attributs sont les même. pour récupérer un bloc par son nom tu as cette manière : récupération de tous les blocs portant le nom dans variable Nom_bloc (setq sel (ssget "_X" (list (cons 2 Nom_bloc)))) puis tu en récupère un (ici le premier) : (setq bloc (ssname sel 0))

OK, c'est bob, je l'ai récupéré... je regarde ça dès que je peux.