DenisHen

Suite à ma consultation du magnifique "Introduction a AutoLISP" de notre ami (gile) et au site "da-code" de notre ami didier, peut-être ceci : (wcmatch (substr chaîne I 1) "[a-z,éèçàâäêëûüîï]") (je viens juste de remarquer que toutes les voyelles étaient sur la première ligne du clavier...). Attention, je n'ai rien testé, c'est juste une idée...

Peut-être avec (wcmatch (itoa (substr chaîne I 1)) "[a-z]") ?

@JPhil, j'avais à peu près la même approche que toi, mais je ne m'en serais jamais sorti avec (wcmatch (itoa (substr chaîne I 1)) "[0-9]").

Bonjour à la communauté et merci à vous pour votre aide. @(gile): j'ai bien saisis ton idée, mais je ne sais pas si j'y serais arrivé seul, j'ai encore un peu de mal avec wcmatch et je ne maitrise pas les vl-* et encore moins lambda. @JPhil : ton code m'a permis de mieux appréhender les autres messages. @bonuscad : ton code me convient parfaitement. Encore merci à vous et à la communauté. Denis...

Bonjour à la communauté. Voilà, je dois trouver le chiffre unique contenu dans une chaine, par exemple, dans "Ma80cm", j'aimerais isolé 80. Si quelqu'un a une astuce, un bout de code, une idée... Je suis preneur... Bien à toi la communauté. Denis...

Bonjour à tous. Mille mercis à vous, je comprends mieux maintenant... Et vos codes m'aide beaucoup... @(gile) : je pensais m'être mal fais comprendre, tant mieux si c'est faux, c'est que je progresse en explication de "problèmes". @bonuscad : je ne sais pas utiliser lambda (je ne l'ai fais qu'une fois, et je ne sais toujours pas comment j'ai réussi...). Encore merci à vous... Denis...

Salut (gile), et merci pour ton aide. Donc, depuis le temps qu'on se "connait", tu n'as toujours pas compris... Tu dis : "que tu ne semble pas complètement maitriser", ne sais-tu pas encore que je ne maitrise absolument rien en LiSP ? ? 😉 Je vois que je me suis mal exprimé (encore une fois), je cherche à savoir si Oui, Non ou rien, et si rien, l'ancienne valeur est bonne. Je continu : LiGbBtOld est l'ancienne réponse (Old). Si maintenant on répond Oui ou Non, c'est cette nouvelle valeur qui prime, mais s'il n'y a pas de valeur entrée, donc [ENTER], c'est LiGbBtOld qui sera la bonne réponse. Je ne sais toujours pas si j'ai été clair... Mais bien à toi, la communauté... Denis...

Bonjour à la communauté. Voilà, je suis en pleine programmation (oui, je trouve le terme grand, comparativement à mes compétences) et j'ai écris ça dans en Lisp "temporaire" : (setq LiGbBtOld "Oui") (initget "Oui Non") (or (setq Rep (getkword (strcat "\nLiaison en attente sur semelle [Oui/Non] <" LiGbBtOld "> : ") ;_ Fin de strcat ) ;_ Fin de getkword ) ;_ Fin de setq ) ;_ Fin de or (princ (strcat "\nRep=" Rep)) (princ (strcat "\nLiGbBtOld=" LiGbBtOld)) (setq LiGbBt Rep) (princ (strcat "\nLiGbBt=" LiGbBt)) Mais j'ai un souci, quand la réponse et "rien" (en fait [Enter]) voici le résultat : Commande: 'VLIDE Liaison en attente sur semelle [Oui/Non] <Oui> : O Rep=Oui LiGbBtOld=Oui LiGbBt=Oui Commande: Je ne comprend pas pourquoi, quelle que soit ma réponse, Rep=Oui... Car j'aimerais qu'elle soit, s'il n'y a pas de réponse à la question, égale à LiGbBt

Luna. Je comprends un peu le langage binaire (oui et non, 😉 ), mais j'avoue que je ne m'aventurerais jamais à essayer de comprendre la pensée des programmes de Maître LeeMac, comme ceux de Maître (gile), qui restent des esprits surévolués en terme de programmation... Ca me dépasse de loin et je ne cherche pas à les rattraper. Je leur demande ponctuellement et sporadiquement une petite aide, qu'ils me distillent volontiers, et j'en suis très heureux. Très cordialement. Denis... PS : Merci à (gile) pour citer une phrase que j'ai volée sur développez.com : "Il y a 10 types de personnes dans le monde : celles qui comptent en binaire et les autres" et qui était dans ma signature pendant plusieurs années.

Bonjour (gile). Déjà, j'étais presque perdu dès le premier message... Mais au deuxième message, avec le NOT, j'étais loin, mais loin derrière... Peux-tu me dire la motivation et le sens de cette explication et de ce post ? A qui est-elle destinée ? Car je t'avoue, j'ai démissionné très tôt... Et Dame Luna en a rajouté une couche... Je voie que de ma cinquantaine, j'ai 200 ans de retard d'une évolution qui ne date que de 60 ou 70 ans... Vous me faite du mal... Et vieillir peut-être prématurément... Mais on va revenir à une question plus terre à terre, ce soir, l'apéro, c'est chez qui ? Je déconne, c'est un grand plaisir de côtoyer son ignorance... Bien à vous et à la communauté. Denis...

Salut à toutes et à tous... Après maintes recherches, j'ai fini par trouver. Simple erreur de syntaxe. Ce qui donne maintenant : ThisDrawing.SendCommand "(vlax-ldata-put " & """DenisH""" & " " & """Test""" & " " & ")" & vbCr J'ai trouvé la solution dans mes archives, j'avais fais ça en 2005... Bien à toi la communauté. Denis...

Bonjour à la communauté... Voilà, je tente actuellement de faire un "vlax-ldata" depuis VBA dans AutoCAD, car je ne sais pas comment faire autrement pour enregistrer des données/variables dans un dessin. J'ai donc, en VBA : ThisDrawing.SendCommand "(vlax-ldata-put """"DenisH"""" """"Test"""" 0)" Mais AutoCAD tourne en boucle, et lorsque je l'arrête, il me répond : Auriez-vous une astuce, un conseil ? ? ? Bien à toi, la communauté, et une excellente année ! ! ! Denis...

Bonjour à tous. Voilà, j'ai essayé de faire la création du filtre "à la main", en ligne de commande. Mais je ne comprends pas tout, voici le développement en ligne de commande : Commande: -CALQUE Calque courant: "0" Entrez une option [?/Etablir/CHoisir/Nouv/Renommer/ACtif/INactif/COuleur/TLigne/EPaisseurl/TRANsparence/MAtériau/Tracé/Geler/Libérer/Verrouiller/Déverrouiller/étAt/deScription/RApprocher/Xréf]: filtre Filtre de calque courant: "Tous" Entrez une option de filtre de calque [Nouveau/Choisir/Renommer/Modifier/Supprimer/Quitter]: n Sélectionnez le type du filtre de calque [Groupe/Propriété]: p Entrez le filtre de calque parent <Tout>: Nom* Entrez le filtre de calque parent <Tout>: Entrez la définition du filtre de calque: Nom Entrez le nom du filtre de calque: Nom Filtre de calque courant: "Nom" Entrez une option de filtre de calque [Nouveau/Choisir/Renommer/Modifier/Supprimer/Quitter]: Commande: En fait, pour bien comprendre, je cherche à créer le filtre "Nom" qui contiendrait tous les noms de calques (et que les noms, rien d'autre) commençant par "Nom*" Je me bas depuis une heure et je n'arrive à rien... Pour l'instant, le filtre contient tous les calque, le filtrage "Nom*" n'existe pas, mais le filtre est bien créé. Denis...

Ok, merci pour ton aide. Donc, pour l'instant, j'abandonne la "récupération" des définitions des types de ligne depuis Excel/VBA. Mais je pourrais, plus tard, faire un petit Lisp que je lancerais depuis Excel/VBA et récupèrerais le résultat. J'ai déjà réussi à le faire sur un autre projet (la récupération du résultat d'un Lisp lancé dans AutoCAD depuis Excel, mais pas les types de ligne). Bien que je pense que l'utilisation de LinOut.vlx de CAD Studio serait beaucoup plus simple à mon goût, et pour tout le monde. Encore un grand merci à toi (gile). Denis...

Ah ah ah ! ! ! Encore une fois, c'est du Lisp... Mais je le savais. C'est ton truc (et parfois le mien). C'était curieux qu'un style de texte était décrit dans un style de ligne sans autre forme... On est bien d'accord... Mais j'ai déjà du mal avec les style de ligne, mais je sais que si un style de ligne fasse appel à un style de texte, ce style de texte doit être défini avant la création du style de ligne... Mais là, on passe dans un autre monde... Encore merci à toi... Ô grand @(gile).

Je ne suis pas sur qu'un fichier .lin contient les style de texte qui peuvent être inclus dans ce type de ligne... Je n'ai jamais rien vu la dessus... Ou alors je n'ai pas compris ton message... Mais il me semblait que, dans un nouveau dessin, si on charge un type de ligne qui contient un style de texte, il fallait que ce style de texte soit existant dans le dessin, avant la définition du style de ligne... Je me trompe ?

Bonjour Olivier et merci pour ton aide. Je cherche à reproduire le code de ton raccourcis... Mais j'ai un petit soucis... Peut-on le faire avec une version LT ? Car j'ai vu un (strcat, et je sais que c'est du Lisp ... Mais j'aimerais tout de même créer un .scr...

Bonjour @(gile) et un grand merci pour ton aide (une fois de plus). J'en ai pour des heures à analyser ton message, mais il va bien m'aider... J'en suis certain... Mais je n'ai pas compris les paires 72, 73, 74 et 75, mais je m'en vais les chercher... Mais ça va être coton de faire un code pour récupérer la définition d'une ligne en VBA... Mais je n'ai pas peur... 😉 Je cherche à pouvoir recréer un type de ligne issu, soit d'un DXF, soit d'un dessin pour pouvoir le recréer dans un .scr ou un autre dessin. Et comment faire avec le code DXF 340, quand le dessin est vierge ? Comme toujours, tu es d'un soutient exceptionnel. Encore merci à toi, je reviendrais si je ne trouve pas d'issu au développement de mon code VBA... Bien à toi, la communauté. Denis...

Bonjour Olivier. Je sais maintenant dans quelle direction chercher... Je ne savais pas que les filtres se commandaient avec la commande "calque"... Peut-être parce-que cette option n'est pas dans la liste déroulante de cette commande... Mais je ne la comprends pas très bien, après quelques testes... Encore merci à toi...

Bonjour à la communauté. Voilà, je suis en train de créer des fichier .SCR via Excel. Mais je ne sais pas comment faire, je ne connais pas "la" commande, je n'ai rien trouvé dessus... Quelqu'un aurait une idée ? Bien à toi la communauté. Denis...

Bonjour à la communauté. Dans le même sujet, je cherche à récupérer la définition (ex:A,12,-3,0,-3,0,-3,0,-3) d'un type de ligne dans un DXF et/ou dans un fichier .lin pour pouvoir le recréer en VBA depuis Excel dans un dessin AutoCAD. J'ai cherché dans les définitions DXF du site AutoDesk, mais je n'ai rien trouvé de probant, je n'ai trouvé que du .NET ou du Lisp. Auriez-vous une idée ? Bien à toi, la communauté. Denis...

Salut à la communauté. Je suis bien d'accord avec vous, tous... Mais j'aimerais y apporter quelques petites précisions... Premièrement, le Flash se meurt, ce n'est pas pour le tuer, c'est pour le faire renaitre, le propriétaire du Flash est ? ? ? Adobe, et Dreamweaver (gros logiciel utilisé pas une majorité de WebMaster dans le monde), Hein ? Qui en est le propriétaire ? Ben oui, c'est aussi Adobe... Et pour continuer de comparer le Flash et le Maître Hugo, (j'écoute en ce moment son dernier album 😉), imaginez-vous que quelqu'un y glisse des extraits de Mein Kempf dans une de ses œuvres magistrales ? Que feriez-vous, si on glisserait des virus (ou autre) dans de petites animations sur le Net qui vont vous flinguer vos PC via un virus obsolète qui ne sera pas vu par nos nouveau Antivirus ? Je n'aime pas beaucoup, comme vous, la progression sans recule, l'évolution sans expérience... Mais il faut tout de même mettre à jour le futur de notre passé... Bien à toi, la communauté. Denis...

Bonjour à la communauté. Je suis en cours de développement d'une suite de petits programmes, et j'en suis à la fouille des calques et de leurs propriétés. Et je me pose une question, pourquoi trouve-t-on "ByLayer" dans le type de ligne d'un calque ? 😕 Je pense à une obligation de développement ou à un paradoxe... 😉 Bien à toi, la communauté. Denis...

Oui, merci @Curlygoth pour ta confiance et ton soutient... C'est bon, je commence à avoir des résultats... Voici un code qui fonctionne : Public Sub ImpTypLignCAD_CadXP() Dim AcadApp As Object On Error Resume Next Set AcadApp = GetObject(, "AutoCAD.Application") If AcadApp Is Nothing Then MsgBox "Aucun AutoCAD en cours a été trouvé": Exit Sub Dim DocAutoCad As Object Set DocAutoCad = AcadApp.ActiveDocument Dim TypLign As Object Debug.Print "*Début*" For Each TypLign In DocAutoCad.Linetypes Debug.Print TypLign.name Next Debug.Print "*Fin*" End Sub Je suis content, et vous remercie par la même occasion. Bien à toi, la communauté. Denis (très content)...