Curlygoth

moi je te rerererererererere-conseil de faire suivre tes codes d'un programme à un autre de les appeller ! XD plutot que de toujours créer/rechercher la même chose 😉

@lecrabe oui je comprends c'est ça que je demandais s'il a garder les cadre des fenêtres en objet car je les utilise pour me recaler dessus XD car avec un point si le dessin est grand = il y aura un décalage @William44850 prend un point au milieu du dwg pour limiter le "delta" de l'angle de reprojection

surement des blocs (3D ou non d'ailleurs) qui on leur point de base sur un plan différent ? note : Le plan client répondra rarement à ton attente... c'est triste mais c'est comme ça... tu peux créer un programme pour tout mettre à zéro mais si le dessin n'est pas "bien" dessiné ben c'est comme ça... et c'est pour ça que je prône l'utilisation de programme.

Les Z des cercle n'est pas la meme que tes cadres 😉 donc le programme a raison il se touche pas 🙂 (délichat elle voulait dire) Faut "juste" créer un base pour récupere la bonne propriété du Z de l'objet Obj.Elevation pour les AcadLWPolyline OBJ.Center(2) pour AcadCircle moi je ferais : Z_init = Obj.Elevation Obj.Elevation = 0 'le code qui verifie Obj.Elevation = Z_init

OUI, OBJ1 et OBJ2 sont des objets : cercle polyligne etc... oui via la liste des points que j'ai expliqué plus haut 😉 Je pense que c'est possible en lisp, mais je ne pourrais t'aider efficacement sur ce langage XD

Pour ça je le ferais en 2 etapes : Première étape récuperer tous les objets de tes 2 calques et pour chaque objet du calque 1 on va "verifier" s'il y a des "erreurs" avec les objet du calque 2 et quels sont tes conditions pour les erreurs ? pour ton exemple si dessus : cette ligne permet d'avoir les points d'intersection entre 2 objet par exemple : Points = OBJ1.IntersectWith(OBJ2, acExtendNone) va me donner les 2 points les Objets ont se "touche" et donc si 2 point c'est qu'il sont comme dans ton exemple : Points(X1,Y1,Z1,X2,Y2,Z2) X1 , Y1 , Z1 point du point 1 X2 , Y2 , Z2 point du point 2 hésite pas

oui c'est normal ça moi du coup tu ne peux pas régénérer les présentations a partir de cadres transformer ?

as tu des cadres pour recréer tes présentations ? autrement dit : peux transformer vers le nouveau systeme de projection les cadres des présentations ?

touche F8 pour aller de pas a pas ou mettre un arret un moment de l'erreur, il va mettre te dire le probleme et son numéro, il n'y aura qu'a corriger et plus tard te va créer un gestionnaire d'erreur avec des logs et ca va aider ^^

si tu maitrise excel et autocad je te conseil de passer par VBA ! tu verras que tu n'utilisera plus excel apres XD Donc oui tout est possible. si tu as besoin de plus, n'hésite pas pour infos en vba = att.tagstring est l'etiquette de l'attribut Obj.layer = "Nom du calque" att est un attribut du bloc obj est un objet du dessin mais ça c'est du VBA

Hello, Une polyligne 3d n'est rien de plus qu'une liste de nombre réprensetant un point de la polyligne : liste_pointe_Poly = (0,1,2,3,4,5,6) 'polyligne3D de 2 points par exemple, ici le 0,1,2 sont les "index" des coordonnées (XYZ) du point 1 de ta polyligne et 4,5,6 les "index" des coordonnées (XYZ) du point 2 ! il suffit de vérifier les index 2,5,8,... et regarder leurs valeurs ! en lisp je ne sais pas faire mais en VBA oui mais au moins tu auras la base.

je sais que ce n'est pas dans du VBA car du es dans le lisp mais bon si ça peut aider... j'ai enlevé ce qui ne te concerne pas (il reste peut être des variables inutilisées m'enfin bon c'est pour dépanner hein 🙂 et si tu dois utilisé mon code en brut je te conseil de faire une copie du fichier 😉

"Créer un gros bloc a orienté suivant ta POLY3D" puis le soustraire au bloc initial commande soustraction

J'avais fait quelque chose de similair avec mon programme de coupe longitudinale, dans le sens ou une fois ma coupe réaliser je traçais la tracé de ma conduite sur un profil et si la profonduer etait trop juste j'ajoutais une dalle de répartition, qui s'ajoutais aussi sur la vue en plan... par contre c'est pas covadis...

Je sais qu'on est dans la section LISP Mais bon : si ça peut t'aider en VBA : Dim lay as Layout 'Paysage lay.PlotRotation = ac0degrees 'Portait lay.PlotRotation = ac90degrees

NON mais histoire de ne pas avoir de "surprise" (bien que mon ordi perso n'est pas de carte graphique "certifié") autocad marche quand meme bien ! Ils ont écrit une note ici : https://knowledge.autodesk.com/fr/support/autocad/learn-explore/caas/sfdcarticles/sfdcarticles/FRA/Which-graphic-cards-are-certified-and-recommended-for-various-Autodesk-products.html Mais bon pour du pro c'est de ce référer à la liste de l'éditeur du logicieil : https://knowledge.autodesk.com/certified-graphics-hardware (sélectionne autocad dans la liste)

Ma config (et je ne m'en plains pas) : Intel Xeon(R) W-2223 (I9 sera meilleur je pense : et si tu veux pouvoir "profiter" sur le long terme il faut viser puissant c'est le seul élément chiant à changer hormis la carte mere XD) si tu prends juste ce qu'il faut que demain les logiciels s'alourdissent tu vas être "brider" 32 Go DDR4 Quadro P2200

Ma 1ere demande : j'aimerai, de maniere cachée, donner ces 2 attributs (puissance et debit) a chaque bloc. tu as un mode invisible pour caché tes blocs attributs 2eme demande : j'aimerai automatiser cela... C'est a dire que lorsque je sélectionne ces blocs, cela me génère directement une étiquette pour la pièce donnée en faisant la somme des attributs puissance et debit. Rien n'est impossible 😉 tu sélectionnes tes X blocs et ca calcul une fois la sélection terminé ? ou tu te fais une zone et tu calcule les blocs a l'intérieur de cette zone ? (définir par polyligne par exemple ?)

en VBA c'est très simple suffit de récupérer la formule via .Formula et d'extraire la plage pour agir sur les cellules concerné et leur mettre des propriétés( les bordures ou couleurs) ensuite pour l'activer : soit par raccopurci clavier soit via Workbook_SheetTableUpdate (sinon moi je préfère avoir les sommes en haut comme ça j'ai le détail en dessous)

Ça a peut être rien à voir mais bon : https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/ptrsafe-keyword sinon faire une forme pour tes paramètres. Et un autre pour l'explorer ?

mettre un identifiant unique dans le texte qui le "lie" à la polyligne. Par exemple, je donne un numéro à une polyligne Ce numéro est dans l’annotation au moment de l’annoter et donc quand je modifies ma polyligne (ou mes polylignes) : Je clique sur un bouton de mise à jour et le programme boucle sur mes polylignes pour mettre à jour les annotations correspondantes

Généralement je me fait une feuille masqué avec les couleurs à définir enfin une micro base de données pour les petits controles ensuite il suffit de récupérer la valeur de la couleur et de verifier dans ta vrai feuille les couleurs et pour ton infos tous est possible ! Hors sujet : J'ai créé un planning pour entrée les horaires de chaque personne pour chaque jour de l'année et pour chaque employé (pour un service compta) ensuite il y avais une couleur dans le planing global pour avoir la somme des heure et une couleur qui représentait une absence ou autre un bouton stat pour avoir toutes les stats pour chaque personne à l'année ! Avant de démarrer un projet informatique, reflechis à la structure que tu vas mettre en place et à la méthode à mettre en place

dans la sélection rapide tu peux "Exclure du nouveau jeu de sélection" (penser a bien etre avec sélection courante en haut 😉 )

hello, Sinon, il faut simplement tester où est ton folio suivant tracé son contour. Mettre en pointillé par exemple le contour des chaques folios tu auras donc une frontiere avec tes 2 textes il fera juste d'ercire de l'autre coté le folio qui suit Ensuite il n'y plus qu'a écrire entre les deux points du contour qui se chevauche le texte "Folio " & NUM_FOLIO du genre comme ça j'ai déplacer mes blocs folios pour que tu puisse "tout voir" du coupe dans ton folio 1 tu verras la limite Folio2 folio 1 et dans le folio 2 juste la note Folio1 apres tu peux pousser le truc en mettent les objets (Texte) dans un calque pour pouvoir les masquaer automatiquement si tu veux comme ça tu verras que Folio 2 dans ta présentataion 1 par exemple en masquant le calque txt-FOLIO-N_FOLIO dans les présentations N_FOLIO

hello, (tu devrais utiliser un programme pour ça c'est plus simple) UCSFOLLOW = 1 orientera ta vue en fonction de ton scu actif dynamiquement et même si tu en changes (sur des plan lourd c'est long et ucsfollow te fera toujours un zoom étendu personnellement je reste en UCSFOLLOW 0 par contre avec la commande _plan, je tourne ma vue en fonction de mon scu courant pour l’échelle 2 méthodes (avec ta vue orienté) : soit par zoom entre 2 points ou sélection d'une Échelle (Unité présentation/Unité objet / E) par exemple si tu fais te présentation en millimètre et en objet en M pour une échelle au 200e se sera ((1000/200)) 1000 étant le rapport entre tes unités de présentation et en objet (1000mm = 1m) commande Zoom > E > 5xp sinon dans la barre d'outil fenêtre tu auras la valeur à entrer directement ou meme dans les propriété de ta fenetre