Curlygoth

ok et tes "différents niveaux" sont différents DWG ? (car en références ?) (Je comprends toujours pas pourquoi tu veux les copier car si c'est les memes et qu'ils ont a des niveaux différents, il vont forcément se superposer XD) (Je t'avouerais que compter c'est tellement plus rapide que de les mettre dans un nouveau dessin XD) mais bon pourquoi pas ^^ et tes niveaux dans dans le meme dossier que ton dwg ? ou il faut que tu ailles chercher un ou plusieurs dossiers ? pour la "sélection" de tes lecteurs de badges ils ont leur nom de bloc en commun ?

Donc tu veux parcourir plein de dessin ".dwg" pour y repérer tes bloc de nom (bloc1 etc..) et les importer dans un dessin vierge ? mais tu vas les avoir en plusieurs fois non ? tu veux pas plutot les compter ? et coller les blocs avec leur nombre a coté ? je comprends plus tu veux taper le nom des bloc ou en selectionner plusieurs ? pour ensuite que le programme fasse ta manip ?

Hello, Tout est possible si le probleme est bien poser ^^ (et surtout si le lecteur interprète bien ce que tu demandes xD) Moi je peux te faire une macro pour prendre : - Tous les blocs de ton dessin de tel nom et les déplacer vers un autre dessin en 0,0,0 - Déplacer les blocs que tu vas sélectionner en amont (donc pas besoin d'entrer un nom) - ... je vois que tu vas avoir x blocs a copier en 0,0,0 mais il vont se superposer non ? vaudrait peut-etre mieux les mettre l'un a coté de l'autre ?

sinon il existe des outils pour deplacer plusieurs onglets d'un coup les renommers / les supprimer etc.. un peu comme ça en faite :

je déterre un peu mais la conversatoion me plait bien J'ai un programme de suivi qui me génerer le dossier les sous fichiers le dwg avec le cartouche prérempli etc.. durant le dessin j'ai un bouton qui va mettre à jour le cartouche suivant les éléments du plan : - Détecter les caractéristiques techniques du dessin pour faire l'intitulé seul... - Mettre un indice si je lui confirme etc... je pense qu'un cartouche doit être au maximum automatisé afin de ne rein oublier date de derniere modification Les date de modification l'historique etc... (Tout ça car j'oubliais toujours de modifier un champ... ou d'en ajouter un)

je te conseil : l'inverse d'exporter sur Excel... sinon : je te propose cette base : dans le cas ou tu es sur excel pour envoyer vers autocad... mais perso je prefere etre sur le dessin et aller chercher le fichier pour le traiter le remplir ou autre... 'je te conseil : de mettre ça dans une fonction car c'est kjuste pour une bloc ! d'une des lignes de ton tableau ! Dim Point0(0 to 2) as Double Dim blockRefObj As AcadBlockReference Bloc = "C:\...\bloc.dwg" 'ou bloc = "Bloc" 'si déjà connu dans le dessin 'Ex, Ey, Ez => Echelle : X,Y,Z Set blockRefObj = AcadApplication.ActiveDocument.Modelspace.InsertBlock(Point0, BLOC, Ex, Ey, Ez, 0) Attprop = blockRefObj.GetAttributes For u = LBound(Attprop) To UBound(Attprop) Var = Attprop(u).TagString 'boucle sur tes attributs en fonction de ta table Next u Attdynprop = blockRefObj.GetDynamicBlockProperties For v = LBound(Attdynprop) To UBound(Attdynprop) Var = Attdynprop(v).PropertyName 'boucle sur tes attributs dynamique en fonction de ta table Next v si tu veux plus passe par MP

question est ce que ta polyligne est composé d'arc ? car si c'est non j'ai peut etre ce qu'il te faut

AAAAAaaaa.... merci CTZEN d'avoir traduit !! mais pourquoi tu ne lui réponds pas ? désolé... Oui alors : il y a un gars du forum qui a écrit ça : https://www.da-code.fr/les-types-de-ligne/ c'est bien expliqué et complet (si tu veux mon avis) (il a meme fait un post il n'y a pas longtemps : https://cadxp.com/topic/49101-les-types-de-lignes/page__pid__294543#entry294543) donc dans un premier temps le dossier pour les modifier : C:\Users\[username]\AppData\Roaming\Autodesk\AutoCAD [ACADA]\R[VACAD]\fra\Support\*.lin je te conseil de modifier les dossiers support dans autocad mais tu fais comme tu veux [username] : Nom de l'utilisateur [ACADA] : Année de ton autocad et le type etc [VACAD]: version relase R20.0 pour 2015 etc... ensuite tout les fichier .lin sont des fichier de type de lignes (facile) pour un tiret opte pour ça : *TIRET025, _ _ _ _ _ A,0.250,-0.250 1ier paramètre : A est une constante(don tu le mets toujours (A pour Autocad ? je sais pas) 2eme parametre : "1iere partie de ta ligne" si je mes des guillemets c'est que c'est à prendre avec des guillemets 3eme parametre : "2eme partie de ta ligne" si c'est positif c'est la suite si c'est négatif c'est la suite mais effacé ! (donc rien) 4eme paramtre : On l'utilise très souvent pour y mettre un texte (qui sera bien sur apres ton 3eme et 4eme parametre 5eme parametre : c'est un peu comme le 3eme paramtre mais du coiup si ton troisieme parametre est négatif il faudra doubler sa valeur poar rapport au 3eme (pour que ton texte soit centrer en fait) Je sais pas si j'ai été clair... mais voici un exemple *CLASSE A,CLASSE A --CLASSE A--CLASSE A--CLASSE A--CLASSE A,1.270,-0.508,["CLASSE A",Arial,S=0.18,R=0.000,x=-0.254,y=-0.050],-1.143 ok ce qui est entre crochet [] voit la comme un quelque chose de special ici un texte mais ça peux etre un peu n'importe quoi ^^ tu parle d'un bloc ! ben met un bloc .. heu pardon sur autocad tu le trouvera c'est une forme à convertir en shape ^^ (.shp) une forme une caractere spécial etc... EDIT Tu n'aurais pas beosin de les redessiner avec des blocs dynamiques avec des programmes XD

j'ai créer un post pour quelqu'un qui veut fusionner suivant les calque mais je peux ajouter plusieurs fonctionanlité : https://cadxp.com/topic/49425-wip-fusion-de-calque/

je fais des formations si tu veux ;-) l'idée c'est des mettre un parametre de réseau ou tu va répéter ton blocs tout les X unités de dessin tape bedit dans la barre de commande pour voir comment je l'ai construis ;-) sinon je t'ai trouvé ça :

yes avec des blocs dynamiques ^^ renseigne toi avec la mise en réseau voici un exemple remplace mon bloc par le tien et supprimer la ligne dynamique bloc dyn.zip

Suite à la conversation https://cadxp.com/topic/49413-proposer-la-fusion-de-calques/page__pid__296761#entry296761 l'objectif est de créer un calque s'il existe il faudrait une option nous demandant s'il l'ont veux fusionner les objets de l'ancien calque vers le nouveau qui va etre créé ! Edit : Ajout de la fonctionnalité de rangé le dessin via type de ligne ou eapaisseur ou couleur ! c'est parti : 1°) Création d'une interface 2°) Création du code pour la fusion de claque ok 3°) [en cours] Création du code pour rangé via couleur / épaisseur ou type de ligne 4°) Si probleme répondre au post TT_CALQUE.dvb!AFF.TT_OBJ TT_CALQUE.zip

Je créé un topic ici https://cadxp.com/topic/49425-wip-fusion-de-calque/

a.. ben je me lanccé vite fait ce midi XD je te le laisse quand meme XD bah écoute hésite pas si tu veux avoir un programme tout en un je peux le faire aussi XD REMPLACER UNE CHAINE PAR UNE AUTRE.zip

Je peux te faire un truc via excel ?

ouf de te bidouillerias bien un truc en diesel mais je me planter c'est sur XD regarder dans les expressions diesel si tu as fait la méthode de (gile) mais en programmation : result = mid(tontexte,14,len(tontexte) -1) la tu récupères de la position 14 jusqu'à la fin de la chaine de caractere (qui peut etre un nom de calque)

donc ranger les objets de ton dessin suivant le type de ligne ?

petit up : c'est un calcul à effectué entre tes deux classeurs ? tu cherches a rechercher des doublons ? tu recherches à traiter tes données ? comment veux tu faire ?

si jamais tu veux te mettre au VBA : pour ton exemple en 2 lignes (et sans parenthèse ^^ un peu d'humour que diable) ThisDrawing.Utility.GetEntity returnObj, Pbase1, "Selectionner un Objet :" returnObj.Linetype = TYPELINE TYPElINE étant le Nom de tonn type de ligne (comme "Continuous","GAZ",etc...)

Petit up : AcadApplication.ActiveDocument.GetVariable("ACADVER") Les 2 premiers caracteres c'est la version release ^^

petit up : il te manque le RGB: Thisdrawing.Layers(Calque).Color = Rgb(R,V,B) et si tu as encore du blanc il faut déclarer le color en début de procedure Dim color As AcadAcCmColor Dim sVer As String sVer = Left(AcadApplication.ActiveDocument.GetVariable("ACADVER"), 2) Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor." & sVer) ensuite j'ai une question : je ne comprends pas pourquoi tu pars d'un Excel pour controler autocad ? utilise plutot excel comme base de données et recherche tes couleurs suivant le calque que tu utilises non ?

tes textes qui sont à remplacer son dans quel logiciel ? bloc note ? word ? Excel ? Autocad ?

Pour moi : Le patron veut et exige que l'on vienne au travail... Donc bon... Je trouve que dans cette situation (j'espère rarissime pour vous autres) personne n'est raisonnable... On a eu des cas (encore aujourd'hui) de personne positive rentrant chez eux... Mais bon le patron n'a pas l'air de comprendre ce qu'il se passe... Pourtant on sait tous (à mon travail) que l'on peut travailler à distance... je trouve ça FOU ! Avantage: - Pas de trajet - On est chez soi donc on travail le temps qu'on veut ! On n’arrête pas pour dire : j'ai des courses, j'ai le médecin, j'ai sport se soir désolé.. je dois y aller... on fais nos activités et on reprend le travail ! - Communication en trace écrite, parfait en cas de litige ! (mieux pour moi qui doit enregistrer presque la moindre conversation XD) Inconvénient : - N/C

Chacun le gère comme il le veut, Je suis pas "pour" la copie ou autre... Par contre, je me suis fais un outil pour transformer le 2D en 3D et vice versa ;-) comme ça tout ce transforme via un bouton.. le sois j'ai un plan Z=0 sois un plan avec des Polylignes 3D. Sinon le AUTOCAD sans programme (c'est pas cool) mais mettre tout en Z=0 + les lignes de repères à mettre en 0 (si elle ont un Z) je les oubliai longtemps car elle n'ont pas de propriétés d'altitude !