DenisHen

Salut @Curlygoth. Effectivement, ça m'intéresse, mais dans une autre mesure... Pour l'instant, je cherche à charger un type de ligne depuis un fichier inconnu d'AutoCAD dans un fichier Script. Mais je garde ton code dans un tiroir, car je sais qu'il me servira... Denis...

Bonjour à la communauté. J'aimerais faire exactement la même chose, mais mon type de ligne n'existe pas dans mon dessin et il se trouve dans : D:\Rep1\Rep2\FichTL.lin Bien à toi, la communauté. Denis...

Salut @Curlygoth. Merci pour ton aide, j'en prends bien note...

Bonjour à la communauté. @(gile) : un grand merci pour ton aide, toujours aussi précieuse. j'avais écris ça : Dim AcadApp As AcadApplication Dim DocAutoCad As Object ------------- On Error Resume Next Set AcadApp = GetObject(, "AutoCAD.Application") On Error GoTo 0 If AcadApp Is Nothing Then Set AcadApp = New AutoCAD.AcadApplication End If Select Case MsgBox("Créer un nouveau DWG [Oui] ?" & vbCrLf & "Ou mettre à jour le DWG courant [Non] ?", vbYesNo, "Confirmation") Case vbYes Set DocAutoCad = AcadApp.Documents.Add Case vbNo Set DocAutoCad = AcadApp.ActiveDocument End Select AcadApp.visible = True Ton exemple va beaucoup m'aider, et aussi pour les couleurs RGB. Mais je ne savais absolument pas que les macros VBA d'Excel ne fonctionnaient pas pour les versions LT d'AutoCAD. Je vais donc prévoir de créer un script pour ces versions. J'ignorais aussi qu'il n'était pas nécessaire de charger les "Type Librairy" dans le VBA d'Excel... Encore un grand merci à toi. Denis...

Bonjour @(gile), je commence à comprendre ta remarque (ö combien) et celle de @rebcao et aussi de @Curlygoth, je viens de tomber sur plusieurs problèmes dans Excel (presque insolubles)... : - la distribution, quelles versions (AutoCAD 20XXX, LT..., Excel...) avec laquelle interagir. - vos remarques importantes (et toujours judicieuses, donc, systématiquement donnant à réflexion), - effectivement, le lien Excel<->AutoCAD restent discutables (je me souvient des interventions de @Curlygoth entre autres, (et pour lequel j'ai un grand respect) et je vous comprends maintenant (car je travaille sur mon projet en ce moment et me heurte à plusieurs problèmes qui seraient bien plus simple à résoudre dans AutoCAD/VBA que dans Excel/VBA), - la notion de script m'a été proposée par @rebcao et j'ai tellement été souvent d'accord avec lui presque toujours, et si souvent, (j'en rajoute ?) que je ne me pose plus la question : s'il le dit, c'est que c'est bien. Il m'a orienté dans mes projets de développement, comme toi @(gile) ou d'autres ( @didier, @Patrick Emin, Autodesk, @Patrick_35, @Tramber, @rebcao et j'en oublie forcément, autant dans le VBA que dans le Lisp...). Et c'est pour toutes ces raisons (que je commence à comprendre que rester sur Excel me pose plusieurs soucis et dont je n'en vois pas l'issus), que je vais maintenant m'orienter vers un DVB. Je pense que les complications ne seront pas les mêmes, mais elles devraient être plus simple à résoudre, bien que...). Mon seul problème est, que si je fais un DVB, les utilisateurs de LT ne pourront pas en profiter (peut-être aussi pour les utilisateur de ZWCad ou autres...)... Je vous remercie toutes et tous pour votre soutient, votre aide, vos conseils et vos remarques. Bien à toi, la communauté... Denis...

Salut à toutes et à tous. Bon, je viens de faire un tour de plusieurs heures, sur "Registry values for ProductID and LocaleID for AutoCAD and the vertical products". J'ai bien compris que je n'entravais rien... Je ne sais pas quoi faire avec ça... Comment faire ? ? ? Je cherche juste à connaitre les éventuelles version d'AutoCAD installées sur un poste et, charger les "Type Library" présent le cas échéant. Je suis novice en tout et débutant pour le reste... Et là, @(gile) tu m'as nettement surestimé ! ! ! Bien à toi, la communauté... Denis...

Salut à toi, Ô Décapode... C'est justement ce que je recherche... Je ne cherche pas la version du VBA, mais la/les version(s) d'AutoCAD installés(es), et en VBA... Et ensuite, quel est l'AutoCAD en cours d'exécution... PS : tu dois être loin du NUL, sérieusement...

Ok. Merci à toi, LeCrabe et à toi aussi Ô (gile). Donc, je suis allé dans ma base de registre et j'ai trouvé "une" clef : "Ordinateur\HKEY_CURRENT_USER\SOFTWARE\Autodesk\AutoCAD\R24.1\CurVer", qui semble être le centre de mon intérêt. Mais comment obtenir la totalité de ces clefs et surtout, comment charger les "Type Library" de ces versions existantes en VBA ? Merci encore, je fouille actuellement pour une solution grâce à votre aide... Bien à toi, la communauté... Denis...

Salut à toi, Ô Décapode. Mais tu ne me proposes que les version "Civil", qu'en est-il des autres version (LT, MAP...), et sans les librairies disponibles à charger, quel "Type Library" charger, si elles sont "disponibles", sur le système courant... En tous cas, mille mercis... Bon week-end à toi aussi... Moi, Nous, Et malheureusement encore triste, même si on ne le dit plus...☹️ Denis...

Salut (gile), et un grand merci pour ton aide. Mais j'ai toujours hésiter à fouiller la base de registre (car j'ai lu que, même en lecture seule (en consultation), ça pouvait être dangereux, cela réveille certains logiciels latents (lu sur www.developpez.net mais je ne sais plus où), surtout que je ne sais pas comment faire... Et, comme tu me le conseilles, je n'ai pas trouvé comment : - fouiller la totalité de cette clef, et en VBA, sans autorisation "utilisateur" ou "administrateur", - et ensuite, comment faire pour, éventuellement, charger tous les "Type Library" existants, dans le système trouvés dans cette clef.. Je pense à un "Do While" tant qu'il existe une clef (mais laquelle), ou à un "For...Next" du nombre de clef. Encore un grand merci à toi, mais je vais fouiller... Bien à toi (gile). Denis...

Re, J'ai oublié de préciser un petit truc à @Curlygoth. Si c'est pour créer une suite de calques dans un dessin et de sauvegarder après celle-ci dans un fichier "paramètre", il serait plus judicieux de passer, pour un nouveau dessin, soit par un DWT ou soit par DesignCenter. L'avantage d'un classeur unique est de réunir toutes ces suites dans un seul fichier (une par onglet) et de ce fait, on garde un seul classeur pour la totalité de toutes nos suite de calques, et ce, pour tout le monde et pour plusieurs années. Je pense qu'il est plus facile de ne gérer qu'un fichier plutôt qu'une multitude. Mais ce n'est que mon avis. Bien à toi, la communauté. Denis...

Salut @CTZen, Je viens de voir à nouveau ta vidéo avec une question, quelle est ta version d'Excel ? Est-elle antérieur à 2007 ?

Bonjour @didier. Je n'en attendais pas moins de ta part. Je tente en ce moment de régler mon plus gros problème (dans ce post). Je ne suis pas certain d'avoir beaucoup de temps en ce moment (sauf les week-end), mais je continu sur ce projet, qui me tient à cœur. Amicalement. Denis...

Un grand bonjour à la communauté. Je suis en train de développer un classeur Excel (.XLSM) qui créé des calques directement dans AutoCAD. Mon problème est en deux partie, causé par un futur partage. Sachant que tout le monde n'a pas la même version d'Excel que moi ni la même version d'AutoCAD que moi : - Comment, en VBA bien-sur, connaitre la et/ou les versions d'AutoCAD installées sur le poste ? - Comment charger le ou les "AutoCAD XXXX Type Library" correspondants aux AutoCAD lancées et/ou installés ? (il faut aussi tenir compte aussi que, grâce à une lumineuse idée de @rebcao, je compte créer aussi une macro qui créera un fichier script (.SCR), donc, sans AutoCAD sur la machine) Actuellement, je lance mon Excel 365 depuis mon poste et contrôle mon AutoCAD 2022, mais si je partage mon classeur avec un utilisateur d'AutoCAD 2019 (par exemple), mes macros ne fonctionnerons pas, car je ne charge que la librairie d'AutoCAD 2022 et non celle d'AutoCAD 2019. Mon but étant de partager ce classeur (qui sera autant pour les versions "complètes" que les versions LT), comment charger le ou les "AutoCAD * Type Library" existantes dans le système ? Si quelqu'un a une astuce, un conseil, un lien, une solution... Je suis preneur. Bien à toi, la communauté. Denis.

Bonjour à la communauté, et grand merci à vous pour vos remarques et votre intérêt pour mon projet. @Curlygoth : j'ai opté de contrôler AutoCAD depuis Excel car, à mes yeux, c'est plus pertinent (et plus facile en certains points) que, depuis AutoCAD, aller chercher un classeur, puis une feuille et importer ensuite son contenu, alors qu'Excel était probablement ouvert quelques secondes auparavant Et que faire des types de ligne non chargés dans le DWG. De plus, il y a quelques macros contenues dans ce classeur (import des types de ligne du fichier ouvert dans AutoCAD, incrémentation d'une partie du nom des calques...) qui aident à construire ces calques. J'ai donc fais toutes mes macros dans Excel (qui existait déjà partiellement). Je suis aussi conscient que développer mon projet dans AutoCAD m'éviterait certains problèmes, comme connaitre, depuis Excel, les éventuelles versions d'AutoCAD installées et/ou laquelle est en cours d'exécution. Mais si je tombe dans une impasse, je passerais en DVB (qui est aussi existant partiellement) mais ça ne fonctionnera pas sous LT. Pour nos discutions dans Signal, j'ai eu un gros pépin sur mon ordi, j'ai du le formater et tout installé à nouveau, j'ai donc perdu notre discussion 🤕, mais j'y suis de nouveau. @didier : je n'ai pour l'instant que le besoin de savoir si mon projet servira à plusieurs (voir plus) afin de le développer dans cette optique (pour des AutoCAD que je n'ai pas, simplifier mes macros, créer des infobulles...). J'analyserais aussi les commentaires afin de les inclure dans le projet. @rebcao : ton idée est très bonne (tu en avais déjà proposé l'idée), et j'avais déjà un classeur gardé dans mes tiroirs, mais j'avais rencontré un problème que je n'avais pas pu résoudre à l'époque : la création d'un calque avec un type de ligne absent du DWG. Mais je vais maintenant me pencher sur la question (en créant un bouton dédié par exemple). Et comme je l'ai dis à Curlygoth, ta solution m'éviterait ce problème de type de ligne et de version d'AutoCAD. Voilà chers collègues, vous en savez maintenant un peu plus sur mon projet. Je peux vous le partager (MP, courriel...) si vous insistez lourdement 😀, mais ce n'est encore qu'un embryon et je doute qu'il vous serve à quelque-chose. Je le partagerais quand il sera plus fonctionnel. Encore merci pour votre aide et votre soutient. Bon week-end à tous. Denis...

Salut CTZen, Oui, mais mon truc est de construire un ensemble de calque (libre de plusieurs centaines), et l'intégrer directement dans AutoCAD via une suite de VBA. Cordialement... Denis...

Salutation au forum. Je suis en train de créer un classeur Excel qui, en quelques cliques, pourra créer des centaines de calques dans AutoCAD (directement) en quelques secondes. Seriez-vous intéressés ? Pensez-vous que je devrais continuer ? Sachant que mes primo-test créent des centaines de calques (avec couleur, type de ligne, options d'impression...) en trois ou quatre secondes... Avec même une option de filtre de propriété de calques... Devrais-je continuer à élaborer ce classeur ? Cordialement au groupe... Denis H.

@grandss t'es un vilain ! ! !Bou... 😉

Salut à la communauté... Je vais peut-être vous surprendre, mais j'ai déjà vu des dessins fait UNIQUEMENT dans l'espace papier d'AutoCAD... Mais j'ai rencontré une fois le dessinateur de cette m****, il m'a montré sa méthode de travail, c'était sur Corel Draw uniquement, donc, toujours dans un "espace papier", et quand il a eu une formation très approfondie sur AutoCAD de deux heures (oui, j'ai rigolé aussi, mais au début seulement), il n'a plus jamais travailler que dans l'Espace Papier d'AutoCAD... Et le pire, c'est qu'il s'en sortait très bien ! ! ! par contre, après, moi, j'étais dans une énorme m**** ! ! !

Tu es d'accord avec moi, aussi pour l'énergie "propre" et "sans carbone" des centrales ? Des éolienne hydro motrices, je ne connais pas, car éolienne veut dire "vent" et hydraulique a un rapport avec l'"eau" ? Donc, tu confonds les barrages "entre autres" alimentés par l'énergie marémotrice "elle est réellement sans danger et sans impacte sur la nature, une fois qu'elle a détruit l'environnement à sa proximité". Et cette énergie n'a absolument rien a voire avec les éoliennes, qui elles, ne fournissent qu'à peine 0.1% de l'énergie mondiale, et pourtant, il y en a tellement partout que, chez moi, je ne peut plus regarder l'horizon sans voir une rangée de ces trucs... Mais je ne pense pas précisément à une réponse (bien que je pense à plusieurs solutions) mais je ne suis pas ingénieur, je ne suis pas ministre, je n'ai ni le pouvoir, ni les connaissances, ni les compétences pour me sentir capable de proposer des solutions... Ce n'est pas mon métier et ça ne fait probablement pas parti de mes prérogatives... On paye (toi comme moi, comme nous tous) des gens des millions pour trouver une (ou plusieurs) solution, mais je ne vois qu'un résultat, ils sont payés, mais les solutions, on les attends encore, et ce, depuis des années... Et les solutions des écolos sont toutes aussi puériles qu'impossibles ! ! ! Mais je suis ouvert à tout, du moment que ce soit logique, faisable, sensé, là, je serais ouverts, mais pour l'instant, les écolos déconnent réellement, ils font vraiment n'importe quoi... Ils nous vendent une utopie à laquelle ils croient à peine...

Salut. J'avais écris un petit truc il y a bien des années qui résolvait ce type de problème, le voici : ;;;*************************************************** ;;; Variables type "Géomètre" + Rotation de vue ;;;*************************************************** (defun c:DHOrientSCU (/ p1 p2 Echo vortho Angscu p3) (princ "\n\tDéveloppé par Denis H. (1.0)") (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (if (eval 'CleRegCerene) (CleRegCerene "DenisH") ) ;_ Fin de if (setq Echo (getvar "cmdEcho")) (setvar "cmdEcho" 0) (command "-unites" "2" "2" "3" "2" "0,0" "@0,1" "O") (setvar "plinegen" 1) (command "_ucs" "_w") ;_ Fin de command (setvar "filedia" 1) (setvar "attdia" 1) (setvar "dimzin" 0) (setvar "angbase" (/ pi 2)) ; origine au nord (setvar "angdir" 1) ; sens horaire (setvar "aunits" 2) ; grade (while (and (/= p1 "Horizontale") (/= (type p1) 'LIST)) (initget 1 "Horizontale") (setq p1 (getpoint "\nPoint de départ ou orientation [Horizontale] : ") ;_ Fin de getpoint ) ;_ Fin de setq (if (= p1 "Horizontale") (progn (initget 7) (command "-vue" "g" "h") (command "snapang" "100") (vlax-ldata-put "DenisH" "AngSCU" 0) ) ;_ Fin de progn (progn (setq vortho (getvar "orthomode")) (setvar "orthomode" 0) (setq p2 (getpoint p1 (strcat "\tDirection des X :"))) (setvar "orthomode" vortho) (setvar "snapang" (angle p1 p2)) (setq Angscu (- 500 (* 200 (/ (angle p1 p2) pi)))) (if (<= Angscu 400) (- Angscu 400) ) ;_ Fin:if (setq p3 (polar p1 (+ (angle p1 p2) (/ pi 2)) 1000)) (vlax-ldata-put "DenisH" "AngSCU" Angscu) (command "_ucs" "_z" p1 p3) (command "_plan" "courant") (command "_ucs" "_w") (setvar "snapmode" 0) (setvar "cmdEcho" Echo) (command "zoom" "_w" p1 p2) (command "zoom" ".95xp") ) ;_ Fin de progn ) ;_ Fin de if ) ;_ Fin de while (vla-endundomark doc) (princ) ) ;_ Fin de defun Mais attention, il faut bien analiser le code, il initialise beaucoup de variables, pour être conforme aux variables d'un géomètre (le NORD en haut, on passe en grades, dans le sens horaire...)... Cordialement. Denis...

Salut. Connais-tu l'excellent "Lxl.lsp" ? Il te donne l'accès direct à un XLS... Cordialement. Denis...

Salut, j'ai ça si ça peut t'aider (en pièce jointe). Cordialement... Denis... _ECPS_Logos (15juillet2021).dwg

Salut à toute la communauté. Ne serait-ce pas le résultat de la commande "command" remplacée par "command-s" (ou un truc dans dans ce genre) par AutoDesk ? Et chose curieuse, après avoir installé AutoCAD VBA dans mon ToCAD 2022, certains problèmes de Lisp ont été résolus... Là, je veux bien qu'on m'explique... Cordialement à la communauté... Denis...

Salut CurlyGoth... Ca faisait longtemps que je ne t'avais pas lu... Comment vas-tu l'ami ? ? ? Les éoliennes ? Tu plaisantes ? ? ? J'ai un collègue (spécialiste dans ce domaine) qui m'a expliqué que, les éoliennes sont vendues pour, en moyenne, 8GWh, mais qu'elles ne produisent JAMAIS sur le territoire français plus de 2GWh... Il m'a même confié une information "secrète" : Il y a, dans plusieurs départements de France, des groupes d'éoliennes qui ne font pas tourner leurs pales grâce au vent... En gros, dans un Bled paumé, il y a une série de 10 éoliennes, seule les pales d'une seule tournent... En fait, c'est ERDF qui fournit l'électricité pour faire tourner cette éolienne, pour faire croire aux gens que, au moins, l'investissement est "rentable", mais la seule éolienne qui fait tourner ses pales, c'est ERDF qui fourni l'électricité pour la faire tourner... En gros (encore une fois), et pour te résumer des heures de dialogues avec ce collègue, une éolienne sur près de 100 est rentable... Mais les autres, coutent de l'argent... Alors ? Il est où ton progrès ? Et on peut continuer... Les voitures électriques, oui, c'est non Carbon, mais t'en feras quoi des batteries ? Qui sont presque aussi polluantes que les déchets nucléaires ? Et parlons aussi de ces déchets ! T'en feras quoi dans 100.000 ans ? C'est non carbon, donc, les génération d'après se démerderont...? Si tu parle du "non-carbon", Ok, mais tu ne parles que du "pour l'instant". Tu feras quoi avec les batteries dans 20, 30, 50, 100 ans ? Tu trouveras encore des plaines pour les enterrer avec tes déchets radioactifs "non-carbon" ? Et humainement", tu fais quoi, pour les petit noirs d'Afrique qui sont dans des mines pour piocher ton nickel et ton cadmium pour les batteries de ton téléphones ? On parle de tout ? Ou on ne parle que de ce que tu vois dans tes œillères ? Mais je dis ça, je ne dis rien... Cordialement le groupe... Denis...