phil_vsd

Salut Patrick ! Ton lien est intéressant mais en lisp je suis plus que nul... ha ha ! Heureusement que Gile est là, et Pat_35 aussi... C'est vrai que l'addition de champs est délicate mais faisable vu que dans un tableau tu peux faire la somme de cellule étants elles-même des champs. Donc si Autocad sait le faire, nous pouvons le piloter. Je ne perd pas espoir. Je commence à écumer les forum étrangers. Mais là j'ai sommeil... A++

Bonjour tous, Est-il vrai que l'on peut acheter le fichier d'aide VBA inclus dans Autocad en Français ? Merci pour les infos !

Que dire de plus... :D On va te sponsoriser !

Salut Tramber, En effet je peux avoir jusqu'à 80 logements avec en moyenne 5 polylignes de surfaces par appartements, et cela peut aller jusqu'à 12 pièces pour un T6 ou T5 ! Non seulement je recherche des outils productifs mais en plus il faut qu'ils soient sûrs, à 3000 euros le M², mon patron va pas me louper !!! Quand le promoteur te fais bouger toute une façade c'est pratiquement tous les apparts qui bougnent et quand il faut "re-surfacer", bonjour l'ambiance. J'avais mis en place un tableau renseigné par des champs des aires mais quand j'ai tout copié à l'étage supérieur, le tableau R+1 a gardé les liens avec les surfaces de l'étage en-dessous : l'horreur ! Heureusement que l'on n'a pas déposé le permis comme cela ! Je dois absolument rester dans le "dynamique". En "statique" j'ai les outils qu'il faut mais quand on a goûté aux champs dynamiques et entrevu leurs possibilité. J'y travaille... Merci, à très vite !

Salut Gile ! Je t'avoue que j'y ai pensé, surtout avec ton lisp que tu m'as fais. Je termine la charte graphique du cabinet où je travaille puis je me penche sérieusement sur cette hypothèse. J'ai pensé à une routine qui copierait l'attribut surface (en champ dyn) directement dans les colonnes du tableau. Je crois que j'ai vu ça qqpart sur le forum. Le soucis que j'ai rencontré avec les tableaux c'est que si on copie les polylignes et le tableau de réception contenant une copie des champs dyn, le deuxième tableau contient des infos qui restent liées avec les premières polylignes. Toutes modifs sur les copies n'influeront pas le deuxième tableau, il faudrait briser les liens, les reconstruires... Bref on gagne du temps d'un côté puis on en perds de l'autre... Mais cela reste à méditer... Je teste des options et je reposte. A++

Bonsoir, Appel à tous les Lispeurs ! Je sèche en VBA sur l'addition de champs dynamiques. Si vous avez une routine qui permettrai de cliquer sur plusieurs polylignes et à la fin cela insèrerai un champ dynamique contenant le total des airesvous ferez un heureux. Les meilleurs d'entre vous vont poster la réponse avant le lever du soleil moi il me faudra plusieurs années, ne serait-ce que pour analyser le-dite routine... Merci d'avance !

Messieurs, J'aimerai additionner des champs dynamiques que j'ai extrait. Je ne sais pas comment m'y prendre. Comment additionner des chaînes "String" qui par définition ne peuvent s'additioner ? Je sèche complètement, voilà un extrait des champs dynamiques. 'Instruction des variables du champs en code ASCII prefixe = Chr(37) & Chr(60) & Chr(92) & "AcObjProp Object" & Chr(40) & Chr(37) & Chr(60) & Chr(92) & "_ObjId" milieu = entObjectID suffixe = Chr(62) & Chr(37) & Chr(41) & " .Area " & Chr(92) & "f " & Chr(34) & Chr(37) & "lu2" & Chr(37) & "pr2" & Chr(34) & Chr(62) & Chr(37) Dim tt As String tt = (prefixe & " " & milieu & suffixe & " m²") J'aimerai cliquer sur plusieurs surfaces successivement puis à la fin cela donnerai le total en dynamique. Merci à vous ! PS : Si qq'un a une routine Lisp je prend quand même !

Salut Jalna, Je vais voir ça demain . En attendant y'a du code lisp qui pourrait te correspondre chez : Accueil du Forum > LISP et Visual LISP > Routines LISP > Bloc avec champ dynamique Gile nous a donné une routine qui pourrait t'aller. Sinon tu modifie toi-même le champ manuellement. Double clik dans le texte, Clik droit dans le texte, "Modifier le champs", "Format du champ", "Facteur de conversion". La deuxième étape sera d'additionner des champs pour avoir un total dynamique lui-aussi ! La il me faudra de l'aide. Quelqu'un a vu Didier ? Hé hé ! En attendant tu peut aller voir cette routine : Accueil du Forum > VBA et VB > Routines VBA > Routine Additin de Surfaces Mais attention, tu es limité à 12 pièces et le résultat n'est pas dynamique ! Tu bouges une surfaces et tu es obligé de relancer la routine. A bientôt !

Vous me découragez les gars... Même des petits bouts de codes de rien du tout me dépassent... Je crois que le lisp sera pour dans une autre vie...

Bonsoir Gile ! Merci pour ta réponse rapide ! Entre temps j'ai composé une variante en VBA en traduisant en codes ASCII l'horrible chaîne de caractères du champs que VBA mettait en erreur... Je t'avoue que j'ai énormément de mal avec le Lisp, surtout à cause du manque de temps... Ceci dit, je suis tombé sur tes premiers messages, tes premiers pas ! hé hé ! Du coup je me sens moins seul :) Encore merci.

Bonsoir tous, Je vous présente une petit routine qui insère des champs dynamiques renseignant l'aire des polylignes. 1- on choisit la polyligne 2- on choisit le lieux d'insertion du texte 3- on continue... Public Sub champs() line1: On Error GoTo line2 Dim champs As String Dim prefixe As String Dim suffixe As String Dim milieu As String ' Pour piquer l'objet polyligne Dim entObjectID As Long Dim entry As AcadObject ThisDrawing.Utility.GetEntity entry, basePnt, "Sélectionnez un objet SVP" entObjectID = entry.ObjectID 'Instruction des variables du champs en code ASCII Merci Gile, merci Didier prefixe = Chr(37) & Chr(60) & Chr(92) & "AcObjProp Object" & Chr(40) & Chr(37) & Chr(60) & Chr(92) & "_ObjId" milieu = entObjectID suffixe = Chr(62) & Chr(37) & Chr(41) & " .Area " & Chr(92) & "f " & Chr(34) & Chr(37) & "lu2" & Chr(37) & "pr2" & Chr(34) & Chr(62) & Chr(37) Dim tt As String tt = (prefixe & " " & milieu & suffixe & " m²") ' insère le champs renseingnant l'aire Dim Pt1 As Variant Pt1 = ThisDrawing.Utility.GetPoint(, "Sélectionnez un Point SVP") ThisDrawing.ModelSpace.AddText tt, Pt1, 3 'pour changer la hauteru de texte, changez le chiffre 3 GoTo line1 'Loope le programme line2: 'Sortie si erreur End Sub La première étape est franchie, je m'attaque à la seconde !

Bonsoir tous ! Merci à vous deux pour vos réponses. J'ai pris l'option de Didier, à savoir, utiliser les codes ASCII. C'est périlleux mais ça marche ! Je poste ma routine dans le forum, même si elle fait un peu doublon avec celle de Gile en Lisp. La première étape est franchie. Encore merci !

Salut, Utilises-tu Autocad ou un dérivé ? Je ne connais pas cette expression : ( INSERER COMPOSENT : SYMBOLES SCHEMATQUES IEC) Une fois inséré, le disjoncteur est-il un "bloc" ? Pour le savoir tu ouvres la fenêtre "Propriétés" et tu cliques sur ton disjoncteur. Renseigne-nous que l'on puisse t'aider. A bientôt.

Bonjour, J'essaie de modifier le lisp de gile pour qu'il n'y ai plus d'attribut "nom de pièce" ni "longueur de polyligne", je veux garder uniquement le champs aire. Je ne sais même pas par où commencer, je n'arrive même pas à trouver la hiérarchie des données... Je suis complètement paumé... J'ai plein de messages d'erreurs ! Si Gile pouvait me poster le lisp sans ces attributs ce serai sympa ! Merci d'avance !

re, De plus j'ai trouvé ce lien qui peut-être te plaira... http://www.netik.name/index.php?lg=FR&menu=Schema Amicalement.

Bonjour, comme le dit Didier tu n'as pas d'échelle à proprement parler dans l'espace objet, de plus si c'est un schémas électrique tout doit y être symbolique. Peut-être que tu dois juste modifier l'échelle de ton disjoncteur afin de le ramener à unetaille convenable pour tes 4 fils d'arrivées. A très bientôt !

Bonjour à tous, I need you ! Je travail sur une routine qui jonglera avec des champs dynamiques et je doit scinder une variable pour changer l'ID. Voici la variable : %<\AcObjProp Object(%<\_ObjId 2130095992>%).Area \f "%lu2">% Vous l'aurez reconnu c'est un champ renseignant l'aire d'une polyligne. Or il y a des % et des " guillemets qui viennent mettre le programme en défaut. Si je lui dit : Pref, suff as string pref = %<\AcObjProp Object(%<\_ObjId suff = >%).Area \f "%lu2">% VBA me dit : erreur compil, attendu expression. J'attends les votres d'expressions à ce sujet... SVP... pitié.... Même si je met des guillemets comme ceci ">%).Area \f "%lu2">%", comme il y en a à l'intérieur de l'expression ça pose problème... Merci d'avance pour vos réponses.

tyrese69_, Je me permet d'interférer dans ce sujet car moi aussi je me met au lisp. Gile m'a donné une petite routine qui ressemble à la tienne sauf qu'en plus la surface change automatiquement car c'est à base de "champs dynamiques". Va voir dans : Accueil du Forum > LISP et Visual LISP > Routines LISP > Bloc avec champ dynamique Je ne sais pas faire un lien vers un post. En espérant que cela puisse t'aider...

Salut, C'est pas que le sujet ne nous passionne pas mais pour ma part je me sens désarmé face à ce problème. J'ai failli t'écrire pour te dire d'essayer le compilo de Tramber mais je ne l'ai pas encore essayé moi même. J'ai pensé décompiler le cui en hexadécimal pour en extraire les données mais cela me parait hasardeux... je ne suis pas sûr que la hiérarchie des données dans un cui soit la même, donc compatible, avec un "ancien" mns... J'y pense parfois mais là je sèche... :( A suivre...

Grrrr.... Merci à toi !

Bonsoir tous, J'ai plusieurs styles de texte en fonction de leurs utilisations. Lorsque je modifie un style de texte dans la boîte de dialogue les modifications ne se répercutent pas sur l'ensemble des textes ayant ce style. Exemple, j'ai un style qui s'appelle "Nom pièce" en Arial standard, hauteur 0.3 , si je passe la hauteur en 0.5 tous les textes insérés dans le dessins ne suivent pas, leurs hauteurs restent à 0.3. Si qq'un sait... Merci à vous !

Et alors Patrick_35, on a un wagon de retard ? Hé hé :cool: Tu es pardonné, tu dois être en train de nous concocter de nouvelles petites bombes... Merci à tous les lispeurs, bougez pas j'arrive ! :P

Bonsoir tous, Apparement la réponse de Bred va bien car j'ai viré les chemins complets pour ne retenir que les noms. J'ai déclaré le chemin dans les support. Je teste sur plusieurs machines avant de clôturer ce sujet. Meric. A très bientôt !

Salut tous ! Le lisp ? Je vais m'y mettre... Piano piano... Mais promis je vais m'y mettre. Je pense que c'est le second palier dans la carrière d'un dessinateur. En ce moment je décortique les lisps mais je devrai commencer par des lisps plus simples, pour m'imprégner de la syntaxe. A ++

Bonjour Gile, Premier concerné, premier à s'exprimer ! Encore merci pour ton aide, je compile tes différents post pour comprendre l'envers du décor. La barre était placée un peu trop haut pour de simples novices en lisp et il fallait, je pense plusieurs heures de vol avant d'arriver à cette fin. J'espère que ce précieux lisp servira à beaucoup de monde. La balle est dan snotre camp pour l'adapter à notre usage. A très bientôt ! :) :)