phil_vsd

That's right man ! Salut à eux ! hé hé !

Bonsoir tous, Voici deux routines, l'une pour remplacer un Textestyle par un autre. L'autre pour modifier la hauteur des tous les Mtextes ayant les même textstyle. J'ai quelques problèmes avec les effets Gras et Italiques, ils ne suivent pas le move ! J'attend vos critiques ! Merci ! Sub Select_style_texte2() Dim SST As AcadSelectionSet On Error GoTo SORTIE Set SST = ThisDrawing.SelectionSets.Add("NewSelect1") SST.Clear Dim TXS As String Dim OB1 As AcadMText Dim TX2 As String Dim OB2 As AcadMText ' Pour piquer l'objet ThisDrawing.Utility.GetEntity OB1, basePnt, "Sélectionnez un style de texte à modifier" TXS = OB1.StyleName 'La variable est renseignée par le style de texte pointé MsgBox "Vous allez modifier le style de texte : " & TXS, vbInformation, "ATTENTION" 'Sélection de la cible ThisDrawing.Utility.GetEntity OB2, basePnt, "Sélectionnez un style de texte cible. " TX2 = OB2.StyleName 'La variable est renseignée par le style de texte pointé Taille1 = OB2.height Dim Filtertype(0) As Integer Dim Filterdata(0) As Variant Filtertype(0) = 7 'DXF des style de texte Filterdata(0) = TXS 'Selection à l'écran des objets SST.Select acSelectionSetAll, , , Filtertype, Filterdata 'Sélectionne tout à l'écran SST.Highlight True 'allume la sélection Dim TEXTSELECTED As AcadMText For Each TEXTSELECTED In SST TEXTSELECTED.StyleName = TX2 TEXTSELECTED.height = Taille1 Next SST.Highlight False 'Eteind la sélection MsgBox "Tous les Mtext ayant le style de texte : " & TXS & " ont maintenant le style : " & TX2, vbInformation, "INFO" SORTIE: SST.Delete 'Vide la sélection End Sub et la deuxième : Sub Select_hauteur_texte() Dim SST As AcadSelectionSet On Error GoTo SORTIE Set SST = ThisDrawing.SelectionSets.Add("NewSelect1") SST.Clear Dim TXS As String Dim OB1 As AcadMText ' Pour piquer l'objet ThisDrawing.Utility.GetEntity OB1, basePnt, "Sélectionnez un style de texte à modifier" TXS = OB1.StyleName 'La variable est renseignée par le style de texte pointé MsgBox "Vous allez modifier le style de texte : " & TXS, vbInformation, "ATTENTION" Dim Filtertype(0) As Integer Dim Filterdata(0) As Variant Filtertype(0) = 7 'DXF des style de texte Filterdata(0) = TXS 'Selection tout à l'écran des objets SST.Select acSelectionSetAll, , , Filtertype, Filterdata 'Sélectionne tout à l'écran SST.Highlight True 'allume la sélection Dim Hauteur As Double Hauteur = ThisDrawing.Utility.GetReal("Entrez la hauteur : ") Dim TEXTSELECTED As AcadMText For Each TEXTSELECTED In SST TEXTSELECTED.color = acRed TEXTSELECTED.height = Hauteur TEXTSELECTED.color = acByLayer Next SST.Highlight False 'Eteind la sélection MsgBox "Tous les Mtext ayant le style de texte : " & TXS & " a maintenant une hauteur de : " & Hauteur, vbInformation, "INFO" SORTIE: SST.Delete 'Vide la sélection End Sub A suivre...

Bonjour à vous, J'ai pensé couplé cela avec pline_block mais je ne savais pas à quelle ligne l'insérer, ou quelle lignes remplacer... Il faut sans doute remplacer celles-là : ;; Sélection d'une entité (while (not (setq ent (car (entsel))))) Confirmation ? Merci !

Et moi si je parle pas Lisp je serai invité ?

Merci pour ton soutien Didier-AD, C'est vrai que j'ai plus facilement tendance à me tourner vars le VBA car la syntaxe me paraît plus familière, mais même en VBA j'ai quelques soucis ! Mon problème est que je me pose des objectifs un peu trop élevés par rapport au (peu) de temps qui m'est alloué pour la prog. C'est vrai qu'une petite routine commentée comme l'a fait (Gile) est une mine d'or ! Mais bon, il paraît que Rome ne s'est pas faite en un jour... A très bientôt !

Z'en voulez d'autres ? http://www.youtube.com/watch?v=mSyL7u-L_dE&mode=related&search= Mieux que le Rennie ou le Smecta...

Et voilà le travail :

Réponse en 60 mn chrono ! J'ai même pas eu le temps d'imaginer la réponse que déjà elle apparaît !

Mes enfants aussi savent le faire... Mais après il faut nettoyer l'écran !

Bonjour ! Encore mille mercis ! Nous y voyons plus clair maintenant, surtout moi... Le lisp m'apparaît assez hermétique et sans une aide "sur mesure" je n'aurais jamais accroché. Maintenant que j'ai un outil pour extraire des attributs de surfaces bien "renseignés" je vais pouvoir bien avancer au travail ,et, du coup, me pencher un peu plus dans l'études du lisp et VBA. Il me reste plus qu'à pister les lignes avec l'aide ouverte et comprendre les subtilités : VLA VLAX VLA-GET- etc... Jusqu'à présent j'utilisais le bloc-note pour éditer, je passerai par l'éditeur dorénavant. C ya !

Salut tous, Je viens de me faire embaucher par un cabinet d'architecte à Marseille et auparavant je ne faisait que des missions d'interim : VRD, Clim, BA... Nous faisons des logements collectifs, des lotissements. J'était magasinier avant de faire une formation sur AutoCAD 2002 et trouver du boulot sans expérience était une drôle d'épreuve... Sur Paris j'ai eu droit à une formation Catia V5 mais j'ai déménagé à Cholet de suite après et là bas... Dead zone ! Un grand merci à Eric Veillet et TIS géomètre pour leurs périodes de stages. Back in Marseille depuis Mai 2006 dans le cab. d'archi. Je ne suis ingénieur en rien, diplômé en pas grand chose, Ha si ! J'ai un brevet de pilote privé passé à l'aéroclub d'Eurocopter à Marignane (Si certain d'entre vous veulent parler avion...). Je performe sur Autocad en me disant que c'est lui qui doit travailler pour moi, pas l'inverse. Pour cela j'étudie le VBA et le lisp mais c'est dur de dégager du temps pour étudier. Merci à tous ceux qui ont, et, auront la patience de lire mes questions et surtout d'y répondre, j'ai la prétention de croire que moi aussi un jour je serai utile comme vous l'êtes. [Edité le 30/9/2006 par phil_vsd]

Bonsoir tous ! Le lisp, j'ai promis de m'y mettre... He bien j'y suis... Il y a un fossé entre ce que je sais faire et ce que je voudrai obtenir ! Ce message s'adresse à (Gile), je sais tu vas me trouver super lourd mais j'essaie de comprendre. J'ai repris ton lisp et j'essaie de le transformer pour qu'il opère sur 2 attributs : Le nom, le 2ème nom (Etiquette appelée "info") puis l'aire. Nous avons deux attributs normaux puis un dynamique... Et j'arrive pas, j'ai tout analyser ligne par ligne et je ne sais pas où user du scalpel. J'ai fait des copier coller de ligne, j'ai imprimé les différents lisp que tu proposes sur du calque pour les comparer... Juste si tu pouvais me mettre un petit rajout de rien du tout... STP ! Comme ça on saura comment faire pour 4 ou 5 attributs pour la suite ! Merci !

'soir tous ! Apparament ce sont mes paramètres régionaux qui étaient pas si bien réglés... Ceci dit avec Attout cela s'exporte bien mais avec l'extraction classique "Outils : extraction d'attribut" j'ai un fichier Excel avec un " 'delete " qui s'affiche... Du coup j'exporte en fichier txt que j'ouvre avec XL. Cela me suffit pour l'instant. Merci à vous !

Que l'on peut abréger par : "Une fonction récursive.". Moi presque tout compris... Hé hé A suivre !

Bonjour, J'ai pu convertir en "nombre" qu'une seule colonne, et pas celle contenant les cellules "aire", j'avais déjà remarqué le petit triangle vert au boulot, il n'y était pas dans la colonne "aire" (Cela aurait été trop facile ! hé hé ). Je retrourne au boulot pour re-essayer. Chez moi le Csv me met tous les attributs dans la même cellule et lors de l'extraction il ne me propose pas d'option pour les espaces, et lorsque j'exporte en xls je n'ai qu'une cellule "Delete" et rien d'autre... Je fais des test avec Attout et je reposte. A++

Bonjour, J'ai compris l'idée, j'avoue ne pas avoir posé mon regard dans la FAQ ni cherché dans le forum pensant que le sujet serai exclusif. Ce passage de l'article est clair : "lorsque la première procédure fait appel à elle-même, l'état de la première procédure doit rester en mémoire pendant que la deuxième s'exécute." , d'où l'appellation d'empilement sans doute. J'ai bien aimé le passage : la Loi récursive de Hofstadter par exemple : "Il faut toujours plus de temps que prévu, même en tenant compte de la loi de Hofstadter." Tout cela me rappelle les fractales... Merci pour tout, à bientôt !

Bonsoir tous ! Lorsque j'extrait mes attributs vers excel j'ai des problèmes pour en faire des sommes. Mes attributs comportent des champs et c'est sans doute là le problème. Je précise que mes champs ne comportent que des chiffres, pas de suffixes ou de préfixes comme "m²" par exemple. Dans excel, chaque cellule de ma colonne attributs a un petit apostrophe devant le nombre, pas dans la cellule elle même mais dans la zone en haut ou l'on peut saisir des choses. Je transforme mes cellules en format "Nombre" mais rien n'y fait, impossible d'en faire des additions. Si qq'un peut m'éclairer, qu'il ne se gêne pas ! Merci d'avance.

Yo man ! Quelle différence fais tu entre récursivité et ré-itération, ou itération. Du moins en point de vue langage lisp ou Vb ?

Bonsoir, http://perso.orange.fr/maxence.delannoy/vba/att_excel.htm A cette adresse tu trouveras le fichier Excel à télécharger, il contient les macros. Lis bien tout ce que l'on a écrit plus haut ! A++

Salut Micacao, Oui j'ai remarqué : L'id de Objet 1 est : 2130055032 L'id de Objet 1 dans la somme est : 2130042096 L'id de Objet 2 est : 2130055040 L'id de Objet 2 dans la somme est : 2130042080 Cette nouvelle ientification qui arrive de on ne sait où vient perturber l'ambiance... J'avais pensé transformer le tout en Ascii, même le _FldPtr mais cette nouvelle Id... BoumBadaboum... Ceci dit j'ai une piste : Pour additionner des champs dynamiques on prend leurs valeurs brutes, sans les m² ou tout suffixe, rien que des chiffres et on transfère cette valeur qui est une "String" dans une nouvelle valeur "Double" que l'on peut additionner à souhait ! Comme ça : Dim S_info as string 'Pas de caractères alphanumériques Dim D_info as double D_info = val(S_info) Je vais repprendre ma routine "Addition de surface" dans le forum VBA routine, puis au lieu de piquer des polylignes et d'extraire leurs area, je vais concatainer le champs dynamiqe en Ascii, et balancer leurs valeurs dans des variable Double et faire la somme. Faut que je trouve du temps pour le faire. On sera limités à 12 pièces mais c'est déjà bien ! Te tiens au courant ! bye ! [Edité le 23/9/2006 par phil_vsd]

Ha pardon, Je croyais qu'il devait commencer par un "defun xxxxxxx" ! Merci ! Je teste et je reposte !

Allez sois cool, le même lisp mais en entier comme ça je fais un copier coller... La je ne sais même pas ce que je dois mettre dans mon bouton... Et celui qui rigole je le gèle ! Merci beaucoup ! PS : en fait j'ai le Layiso dans les Express qui fait l'affaire mais en fait j'aimerai que les calques "1", "2" et "3" restent allumés... See you ! :D

C'était Aperture, ou Ouverture (Je crois que c'est pareil) !! Je l'avais pourtant noté dans mon carnet rouge, à la lettre "A" mais quand j'ai regardé j'ai pas lu jusqu'au bout, fallait tourner la page... Allez je prend une pelle et je m'enterre... Merci à vous !

Bonsoir, Je comprend pas tout au lisp, ni aux math mais d'après ta et que les résultat de factorielle doivent gagner un zéro à chaque multiple de 5 on peut concatainer et peut être ralonger la liste. Non ? http://villemin.gerard.free.fr/Denombre/Factorie.htm Et avec la fonction dite "Equation logistique" ? Le lisp se met en erreur lors d'un dédoublement de période ? Fun non ? http://fr.wikipedia.org/wiki/Fonction_logistique Je t'avoue que j'utilise rarement les factorielles pour faire mes coupes et façades ! ;) Mais parfois ça tourne à la théorie du chaos... See you !

Salut tous, Avant de me lancer dans la quête, quelles sont les différences entre : Vlisp, Autolisp et le lisp lui même ? Merci à vous !