Thelduin

Bonjour ! Je reviens vers vous car j'essaye désespérément de faire un lisp pour extraire les données que je veux, mais j'ai quelques soucis avec la fonction "-extractdonnees" d'AutoCAD. La fonction utilise un fichier gabarit DXE. Ne sachant pas comment créer un tel fichier, j'ai utilisé la fonction "extractdonnees" (sans le tiret) qui est la même mais avec des boîtes de dialogues. Bref. Une fois arrivé à la fin de l'extraction, la fonction demande si on veut intégrer un tableau dans AutoCAD ou si on veut enregistrer les données dans un fichier externe (ce qui m'intéresse du coup !). AutoCAD m'a donc généré un fichier CSV. Jusque là, pas de soucis. Je me suis alors retrouvé avec un fichier DXE qui a enregistré le fait qu'il faut extraire les données dans le fichier "exemple.CSV". Du coup, quand j'utilise la fonction "-extractdonnees" avec comme fichier gabarit le DXE créé précédemment, et bien il extrait les données dans le fichier "exemple.csv". Et c'est là que ça me dérange. J'aimerai pouvoir créer un nouveau fichier (ou remplacer un existant) à CHAQUE extraction. Comment faire ? Cela semble venir du DXE mais je n'ai aucune idée de comment le modifier. Est-ce que quelque chose m'aurait échappé lors de la création du DXE avec "extractdonnees" ? Je sais qu'on s'éloigne pas mal de la rubrique VBA du forum, mais je préfère poser ma question ici plutôt que de créer un nouveau sujet.

Ah mais je passe pas par une routine pour la création du CSV, je passe pas la fonction extractdonnees d'AutoCAD J'essayerai de faire un lisp pour ça pour vous le transmettre, mais j'avoue que là ça dépasse mes compétences en lisp Évidemment, je ne suis pas au bureau aujourd'hui, et je n'ai pas AutoCAD à la maison, du coup je reviens vers vous d'ici la fin de la semaine avec les fichiers

En fait le but ici est de pouvoir remplir l'excel automatiquement après avoir fini mon carnet sur AutoCAD, car pour le moment, on rempli la table des matières à la main, ce qui peux vite devenir long et fastidieux dès qu'on a beaucoup de coupes/pages. Du coup j'ai eu comme idée de faire une extraction de données AutoCAD en CSV pour l'inclure dans excel. Peut-être suis-je parti sur une mauvaise piste ?

Bonjour Didier, Je vais essayer de poser ma question autrement. Admettons, j'ai un fichier CSV qui contient 25 lignes avec une colonne pour le numéro de page et une 2e colonne pour le(s) nom(s) de coupe(s) sur la page : 01,CH1 02,CH2 03,CH3 . . . . . 25,CH25 Est-il possible de faire en sorte que les lignes 1 à 17 du CSV s'insèrent dans la colonne H et les lignes 18 à 25 s'insèrent dans la colonne Q autrement qu'en faisant un copier coller des valeurs après avoir importé le fichier CSV dans un Excel vierge ? En d'autres termes, est-il possible d'automatiser l'importation du CSV pour que les données suivent la mise en page ?

Bonjour à tous, J'ai besoin de votre aide pour l'exploitation de fichier CSV sur Excel, je suis un peu perdu, et je me demande si il faudrait pas que je passe par une routine VBA (j'y connais rien en VBA) pour faire ce que je veux. En fait, je fais régulièrement des carnets de coupes de coffrage (je suis en BE Structure). Ces coupes sont tracées dans des cadres de la taille d'un A3. Ce cadre est un bloc dans lequel je mets le nom de chaque coupe (attributs du bloc). J'arrive donc a extraire dans un fichier CSV les noms des coupes de chacune des pages de mon carnet. Seulement voilà, quand j'importe ce CSV dans Excel pour créer la table des matières du carnet, je ne sais pas comment faire pour que cela suive la mise en page déjà présente. Ci dessous une capture de mon excel et je vous détail ce que je voudrai faire : Vous pouvez voir sur l'image que j'ai 17 lignes disponibles, sur 2 colonnes H et Q, les autres colonnes étant réservées aux indices (ça permet de faire un A3 propre). Ce sont dans ces 2 colonnes que doivent apparaître les noms des coupes. Or, excel ne se préoccupe pas de la mise en page quand j'importe un CSV, donc si le CSV a plus de 17 lignes, je suis marron. Je sais pas comment faire pour qu'à partir de la 18e ligne, les données s'insèrent sur la 2e colonne disponible (la colonne Q). Ci-dessous un exemple de table des matières remplie (à la main ! ce qui est un peu long) : J'espère avoir été suffisamment claire pour que vous puissiez m'apporter votre aide, n'hésitez pas à me demander plus de précision si besoin :) Merci d'avance :)

Bonjour à tous, Je voudrais savoir s'il est possible d'extraire des données d'une présentation. Je m'explique : je travail en BE Structure et je fais régulièrement des carnets de coupes sur murs et autres linteaux. J'ai donc une présentation par page. Par exemple, sur la page 1 je vais avoir les coupes A, B et C, puis la page 2 aura les coupes D, E et F et ainsi de suite. Je voulais savoir s'il était possible d'extraire les données d'une présentation pour récupérer les noms des coupes (c'est un bloc avec attribut) et le numéro de la page (soit le nom de la présentation) et ainsi avoir un tableau répertoriant les coupes par page (une table des matières en somme). Est ce possible ? Merci d'avance ! :) PS: hésitez pas à me demander plus de précision si ma demande n'est pas suffisamment claire !

Super, merci pour ta trouvaille Kegaska !

Ah, j'sais pas comment expliquer autrement ... limite faudrait que je fasse une vidéo pour que vous voyez bien ce qu'il se passe, mais alors là, je sais pas du tout comment faire. Sinon, tant pis, j'ferai avec le soucis, et peut être que je finirai pas trouver la solution un jour

UCSFOLLOW ne change rien pour mon soucis, je viens d'essayer Je vais essayer de donner une explication plus claire. Je suis en train de faire un plan de coffrage. Je suis donc obligé de partir du plan architecte. Or, là, le plan archi est en biais lorsque que je l'insert en xref. J'ai donc créé un 2e scu, pour m'aligner sur l'archi, et ainsi avoir le fond de plan "droit", ce qui est beaucoup plus simple pour travailler. J'ai donc, dans ma liste de SCU, le général (qui devient biais du coup) et celui que je viens de créé (et que j'ai appelé "archi", qui lui est orthogonal à ma fenêtre de tracé). Pendant le tracé de mon plan (pour rappel, je travail dans le scu "archi", celui que j'ai créé), je suis amené à insérer quantité de textes multiple. D'habitude, je n'ai aucun soucis particulier pour éditer mon texte, il reste bien aligné avec mon SCU de travail (et non le général). Seulement voilà, depuis quelques temps, et sans en comprendre la raison, lorsque je veux éditer mon texte multiple, les caractères s'orientent par rapport au SCU général (alors que je continue à travailler avec le SCU "archi") dès lors que je rajoute un caractère (comme on peut le voir dans le screen de mon premier post). Une fois mon édition de texte terminé, j'enregistre les modifications, et je sors de l'éditeur de texte, et là, tous les caractères s'alignent de nouveau avec mon scu de travail ("archi"). Donc en fait, le problème n'apparait que quand j'édite le texte. J'ai le même soucis avec les lignes de repères. Tous mes textes et lignes de repères ont été inséré dans mon SCU de travail, et non pas le SCU général

Bonjour à tous, J'ai un petit soucis quand j'édite mes textes multiple depuis peu, et je ne sais pas d'où ça peut venir. En fait, dès que je change quoi que ce soit dans le texte, il tourne pour se caler sur le SCU général, mais que pendant l'édition ! Ensuite il revient à son orientation de base lorsque je sors de l'éditeur. Savez-vous d'où peut venir ce phénomène ? Je vous joint un screen, parce que je me rends bien compte que mon explication n'est pas très claire :D Screen (ce que j'ai rajouté au texte sur le screen c'est le "zefzef" en rouge) PS: ça ne le fait pas que avec les textes multiple, mais aussi avec le texte des lignes de repères

Merci ! Je me sens tellement bête pour le coup ! :(rires forts):

Je vous l'envoie pas wetransfer, je n'arrive pas à le joindre sur le forum. https://we.tl/t-LxumG8NCms

salut tout le monde ! J'ai un petit soucis avec mes hachures que je n'arrive pas à résoudre, je me tourne donc vers vos lumières en espérant que vous m'aiderez à trouver une solution. AutoCAD ne détecte pas mes blocs en tant que contour pour une zone de hachure. Cela marche sur la plupart de mes fichiers, mais pas tous ! Et là est le problème, c'est que je sais pas d'où ça peut venir. J'ai tous déplacer sur z, puis tout remis à 0, et rien n'y fait. Je vous joint une capture d'écran pour illustrer mon problème. Vous verrez, sur la capture, des traits rouges, qui correspondent à mes voiles, des traits discontinues bleus pâles pour l'impact, les traits cyan pour les linteaux et rives de dalles, et les traits discontinus verdâtres pour les relevés. On voit bien que la zone entre la rive de dalle et le trait de relevé est complètement fermé, or, comme je disais plus tôt, j'ai l'impression que AutoCAD refuse de considérer mon bloc de voiles (rouge) en tant qu'objet pouvant servir au contour de la zone de hachure. (lien de l'image : http://www.noelshack.com/2018-52-5-1546005540-pb-hachure.png) J'ai eu le soucis ce matin sur un autre fichier. Il a fallut que je copie tous mon dessin sur un autre fichier où cela marchait correctement pour que je puisse hachurer comme je voulais. Seulement, j'ai pas tellement envie de le faire pour tous mes plans :D Je sais pas si j'ai réussi à être assez clair, mais j'espère que vous pourrez m'aider.

Salut ! Je me suis penché sur le changement des valeurs des paramètres dynamiques d'un bloc dynamique via le lisp (en fouillant le site à la recherche d'info sur les fonctions vla et vlax). Sur un bloc dynamique, j'arrive à changer la valeur du premier paramètre, mais dès que j'ai plusieurs paramètres (en général, j'en ai 6 ou 7), je suis incapable de changer ces autres valeurs, j'ai une erreur : AutoCAD.Application : entree incorrecte ... Je vous mets un extrait du code : (defun c:test() (setq acob (getvar "osmode")) (setvar "osmode" 0) (command "-inserer" "Cadre + façonnage 25e" "e" 0.1 0 0) (vl-load-com) (setq cadre (vlax-ename->vla-object (entlast))) (setq pr (vlax-invoke cadre 'getdynamicblockproperties)) (setq h_cadre (nth 0 pr)) (setq enr_g (nth 1 pr)) (setq enr_d (nth 2 pr)) (setq enr_h (nth 3 pr)) (setq enr_b (nth 4 pr)) (setq l_cadre (nth 5 pr)) (vlax-put h_cadre 'value 40.0) (vlax-put enr_g 'value 4.0) (vlax-put enr_d 'value 3.0) (vlax-put enr_h 'value 5.0) (vlax-put enr_b 'value 2.0) (vlax-put l_cadre 'value 16.0) (command "regntout") (setvar "osmode" acob) ) Mon cadre a bien une hauteur de 40, par contre, tous les autres paramètres ne bougent pas...Pourquoi ? :unsure: Merci d'avance

Ah mais dans ce cas, je ne déclare pas calcul dans mon defun c:sub()

Bonjour ! (ou bonsoir ^^) J'ai eu une petite baisse de motivation, mais je viens de m'y remettre et j'ai une question ! J'ai cru comprendre, en testant, que l'ordre dans lequel sont définies les fonctions ont une importance, par exemple si j'écris ça : (defun c:sub(/ calcul a B) (setq a (getreal "\nValeur de a ?")) (calcul) (prompt (strcat "/n" itoa B)) (princ) (defun calcul() (setq b (+ a 10)) ) J'ai un message d'erreur me disant que la fonction calcul n'existe pas, alors que si j'écris mon code comme ceci : (defun c:sub(/ calcul a B) (defun calcul() (setq b (+ a 10)) ) (setq a (getreal "\nValeur de a ?")) (calcul) (prompt (strcat "/n" itoa B)) (princ) à ce moment-là, ça fonctionne. Est-ce normal ? Et du coup, est-ce que cet ordre d'écriture est à respecter avec des sous-routines avec argument ?

Salut ! Bon, je fais face à un problème, je ne sais pas comment déclarer toutes mes variables, sachant qu'elles passent d'une fonction à une autre. Et je ne sais pas quelles variables je peux passer en argument dans mes fonctions Ça va faire deux semaines que j'essaye de faire bien, comme me l'a fortement conseillé (gile) et là j'avoue que je sèche complètement ... Je pense que j'ai trop avancé dans mon code, j'aurai du le faire dès le début (mais je ne le savais pas) et du coup, il est pas du tout pensé pour des fonctions à arguments

Salut ! Effectivement, je l'ai oublié. Le voilà : trace : dialog{ label = "Données"; : edit_box { label = "Epaisseur de la dalle"; key = "epdalle"; } : edit_box { label = "Niveau brut"; key = "brut"; } : edit_box { label = "Niveau fini"; key = "fini"; } : edit_box { label = "Epaisseur du relevé"; key = "eprel"; } : edit_box { label = "Arase supérieure du relevé"; key = "arase_sup"; } : edit_box { label = "Longueur de l'élément"; key = "longueur"; } : row { : button { label = "OK"; is_default = true; key = "accept"; } : button { label = "Annuler"; is_default = false; is_cancel = true; key = "cancel"; } } } Je n'en fais pas fi, c'est juste que j'avais mal compris cette histoire de variable globale et locale. En fait, savais pas où déclarer mes variables parce qu'elles passent d'une fonction à une autre, mais en restant la même chose. Mais ce que j'ai compris de ton message, c'est que ma fonction defun c:trace_releve est ma fonction principale, et que, parmi les variables, il y aura les fonctions que je vais définir dans ma fonction principale avec un defun, c'est bien ça ? Je vais donc avoir : (defun c:trace_releve(/ toutes_mes_variables recup initia reinitia kw_oui rel_haut rel_bas calcul_h calcul_B) Et derrière, je vais définir mes fonctions dans mon defun c:trace_releve C'est bien ça ? :D

Bonjour (ou bonsoir :D) ! J'ai réussi à calculer mon ferraillage. J'ai finalement fait tous mes calculs dans le LISP, voilà l'état de mon code à l'heure actuelle (j'ai passé 3h30 à faire la partie ferraillage :D) : J'ai pas déclaré de variable comme vous me l'avez dit, parce que j'utilise les mêmes variables avec les mêmes valeurs dans plusieurs fonctions (defun c:trace_releve() (initia) (command "_-dimstyle" "_r" "COT25") (setq kw "Oui") (while ( = kw "Oui") (setq dclid (load_dialog "releve.dcl")) (new_dialog "trace" dclid) (action_tile "accept" "(recup)") (action_tile "cancel" "(done_dialog)") (start_dialog) ;=====calcul des paramètres utiles=====; ;niv_inf_dalle = arase inférieure de la dalle ;brut = niveau brut de la dalle ;epdalle = épaisseur de la dalle ;fini = niveau fini ;eprel = épaisseur du relevé ;arase_sup = arase supérieure du relevé ;diff_niv = différence de niveau entre le brut et le fini ;COFFRAGE; (setq niv_inf_dalle(- brut epdalle)) (setq x_insert(car(getpoint "\nSpécifiez le point d'insertion du point inférieur droit (seul le x est retenu) : "))) ;à revoir (setq p1(list (+ x_insert eprel 50) brut 0)) (setq p2(list (+ x_insert eprel 50) niv_inf_dalle 0)) (setq p3(polar p1 (+ 0 pi) 50)) (setq p4(polar p2 (+ 0 pi) (+ 50 eprel))) (setq p5(list (car p4) arase_sup 0)) (setq p6(list (+ (car p5) eprel) (- (cadr p5) 1) 0)) (setq diff_niv(- fini brut)) (setq p7(polar p3 (/ pi 2) diff_niv)) (setq p8(polar p1 (/ pi 2) diff_niv)) (if (tblsearch "LAYER" "01_BA_Coupe") ;test la présence du calque de coupe (setvar "clayer" "01_BA_Coupe") (command "_layer" "_M" "01_BA_Coupe" "_CO" 6 "" "ep" 0 "" "tl" "Continuous" "" "") ) (command "_pline" p1 p3 p6 p5 p4 p2 "") (if (tblsearch "LAYER" "01_BA_Fini") ;test de présence (setvar "clayer" "01_BA_Fini") (command "_layer" "_M" "01_BA_Fini" "_co" 3 "" "ep" 0 "" "tl" "AXES" "" "") ) (command "_line" p7 p8 "") (if (tblsearch "LAYER" "01_BA_Cotation") ;test de présence (setvar "clayer" "01_BA_Cotation") (command "_layer" "_M" "01_BA_Cotation" "_co" 2 "" "ep" 0 "" "tl" "Continuous" "" "") ) (command "cotord" p7 "TE" "<>f" (polar p7 0 30)) (command "cotord" p3 "TE" "<>b" (polar p3 0 30)) (command "cotlin" p2 p1 (polar p1 0 10) "cotcont" p8 p6 p5 "" "") (command "cotord" p5 (polar p5 0 (+ eprel 30))) ;FERRAILLAGE; (initget 1 "Oui Non") (setq kw_fer (getkword "\nVoulez-vous tracer le ferraillage ? [Oui/Non]")) (cond ((= kw_fer "Oui")(kw_oui)) ((= kw_fer "Non")(prompt "dommage")) ) (initget 1 "Oui Non") (setq kw(getkword "\nVoulez-vous tracer un autre relevé/garde-corps/acrotère ? [Oui/Non]")) ) (setvar "clayer" "0") (reinitia) ) ;=========Fonction de récupération DCL========; (defun recup() (setq epdalle(get_tile "epdalle")) (setq epdalle(atof epdalle)) (setq brut(get_tile "brut")) (setq brut(atof brut)) (setq fini(get_tile "fini")) (setq fini(atof fini)) (setq eprel(get_tile "eprel")) (setq eprel(atof eprel)) (setq arase_sup(get_tile "arase_sup")) (setq arase_sup(atof arase_sup)) (setq longueur(get_tile "longueur")) (setq longueur(atof longueur)) (done_dialog) ) ;==========Fonctions initialisation=========; (defun initia() (setq acob (getvar "osmode")) (setq unitang (getvar "aunits")) (setvar "osmode" 0) (setvar "aunits" 3) ) ;=================================== (defun reinitia() (setvar "osmode" acob) (setvar "aunits" unitang) ) ;======FONCTIONS POUR CALCUL=======; (defun kw_oui() (setq pcent_sct_b 0.5) (setq haut_bas (- arase_sup fini)) (setq sup_inf (> haut_bas 30)) (cond ((= sup_inf T)(rel_haut)) ((= sup_inf nil)(rel_bas)) ) (cond ((= typerel "haut")(calcul_h)) ((= typerel "bas")(calcul_B)) ) ) ;======================================= (defun rel_haut() (setq typerel "haut") (setq hauteur_h haut_bas) (setq hauteur_b (- fini niv_inf_dalle)) ) ;============================================================================== (defun rel_bas() (setq typerel "bas") (setq hauteur (- arase_sup niv_inf_dalle)) ) ;============================================================================== (defun calcul_h() (setq as_ha6 0.565) (setq nb_ha6 (fix (/ hauteur_h 20))) (setq as_tt_ha6 (* as_ha6 nb_ha6)) (setq sct_bet_h (* hauteur_h eprel)) (setq sct_bet_b (* hauteur_b eprel)) (setq pcent_sct_h (+ 0.17 (* 0.0625 (- longueur 4.0)))) (setq as_rel_h (/ (* sct_bet_h pcent_sct_h) 100)) (setq as_deduit_h (- as_rel_h as_tt_ha6)) (setq as_rel_b (/ (* sct_bet_b pcent_sct_B) 100)) (setq result_part_h (strcat "\nSection d'acier nécessaire calculé dans la partie haute : " (rtos as_rel_h 2 2) "cm2")) (setq result_h (strcat "\nSection d'acier nécessaire restant dans la partie haute : " (rtos as_deduit_h 2 2) "cm2")) (setq result_b (strcat "\nSection d'acier nécessaire dans la partie basse : " (rtos as_rel_b 2 2) "cm2")) (prompt result_h) (prompt result_B) ) ;=============================================================================== (defun calcul_b() (setq sct_bet_b (* hauteur eprel)) (setq as_rel_b (/ (* sct_bet_b pcent_sct_B) 100)) (setq result (strcat "\nSection d'acier nécessaire : " (rtos as_rel_b 2 2) "cm2")) (prompt result) ) ;hauteur_h = hauteur de la partie exposé dans le cas d'un relevé haut ;hauteur_b = hauteur de la partie non exposé dans le cas d'un relevé haut ;hauteur = hauteur du relevé dans le cas d'un relevé bas ;typerel = type de relevé ;haut_bas = différence arase_sup fini ;sct_bet_h = section de béton exposé dans le cas d'un relevé haut ;sct_bet_b = section de béton non exposé dans le cas d'un relevé haut ou section de béton d'un relevé bas ;pcent_sct_h = pourcentage d'acier mini pour la partie haute ;pcent_sct_b = pourcentage d'acier mini pour le relevé bas ou la partie basse ;as_ha6 = section d'un lit ha6 (soit 0.565cm2) ;nb_ha6 = nombre de lit de ha6 de peau ;as_tt_ha6 = sections total en ha6 ;as_rel_h = section calculé dans la partie haute d'un relevé haut ;as_deduit_h = section restante après déduction des aciers de peau de as_rel_h ;as_rel_b = section calculé d'un relevé bas ou de la partie basse d'un relevé haut Maintenant, ma dernière question (je pense) pour ce projet concerne les blocs dynamiques. En effet, j'ai une bibliothèque de blocs dynamique de ferraillage (U, cadre, barres ...) avec des champs (voir image : ) Seulement, toutes les données qu'on entre dans l'onglet "personnaliser" des propriétés, j'arrive pas à y avoir accès. Je pensais qu'avec un entget je pourrais les avoir, mais non. Du coup, je ne sais absolument pas comment accéder à ces données ... EDIT : si vous pensez que c'est trop au dessus de mon niveau, j'ai une autre solution, mais j'aimerais voir comment manipuler des blocs dyn en lisp. De plus, on se sert des ces blocs au quotidien au bureau, donc j'ai l'habitude de m'en servir

Oui je me suis un peu emballé :D Et plutôt que de faire une liste déroulante, je peux toujours faire un texte avec les ferraillages et sections Merci

Salut ! J'ai eu une idée pour mon projet, et j'aimerais vous la soumettre. En fait, je fais le calcul dans le lisp, et juste après le calcul, je fais apparaître une boite de dialogue dans laquelle je fais afficher le résultat du calcul. Et plus de ça, je fais une liste déroulante avec les ferraillages communs (2Ha10, 2Ha12 etc...) avec la section correspondante affiché à côté Ça permettrait d'avoir un point de contrôle sur ce qui sort du lisp, et ça donne le choix à l'utilisateur du ferraillage qu'il veut. Vous pensez que c'est faisable ?

Merci Didier !

Salut ! Si je récapitule, vous m'avez proposé soit de tout faire dans le lisp, ce que je trouve assez séduisant comme idée, soit de passer par un CSV, c'est bien ça ? Je vais explorer ces deux pistes dès que je peux (ce week end je pense), et je reviens vers vous si j'ai des soucis de compréhension ! :D

Effectivement, le prof qui nous a fait cours de lisp ne nous a pas parlé de l'utilité de renseigner les variables J'ai fait le choix de faire un DCL pour deux raisons : 1/ je trouve ça plus intuitif pour un utilisateur, même s'il est vrai qu'une saisie en ligne suffit amplement 2/ ça m'entraîne =D Je note ton conseil sur l'extraction des données de la polyligne, mais pour ce que je veux faire, je trouvais plus simple de réutiliser les données que je demande (arase, épaisseur etc ...), après, je me trompe peut-être ! Pour ce qui est du CSV, tout ce que j'en sais c'est que c'est, en gros, un tableau mais sous forme de texte, dont les valeurs sont séparés par un point virgule, mais je n'en ai jamais vu, et je ne connais pas l'utilité d'un tel fichier et je ne sais pas comment on s'en sert

Super merci !