fabdo

Bonjour, A partir de polylignes fermées autocad peut-on transférer les infos sous forme de tableau dans excel et vice et versa???

Salut Merci à tous, je n'avais pas encore cette routine (gile) elle fonctionne super! Juste pour faire une petite variante au cas ou, quelle modif pour insérer sans le Z? Biensur si cela ne prend pas trop de temps. Et encore merci!!

Bonjour Dans le lisp de (gile) suivant : (defun c:PointFile (/ AcDoc Space bloc file str mat alt ins ref) (vl-load-com) (and (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (or (tblsearch "BLOCK" (setq bloc "PointFile")) (findfile (setq bloc "PointFile.dwg")) ) (setq file (getfiled "Choisir le fichier" "" "txt" 0)) (setq file (open file "r")) (while (setq str (read-line file)) (setq str (vl-string-right-trim "," str) mat (substr str 1 (vl-string-position (ascii ",") str)) str (substr str (+ 2 (vl-string-position (ascii ",") str))) alt (rtos (atof (substr str (+ 2 (vl-string-position (ascii ",") str 1 T)))) 2 2) ins nil ins (cons (atof alt) ins) str (substr str 1 (vl-string-position (ascii ",") str 1 T)) ins (cons (atof (substr str (+ 2 (vl-string-position (ascii ",") str 1 T)) ) ) ins ) str (substr str 1 (vl-string-position (ascii ",") str 1 T)) ins (cons (atof str) ins) ref (vla-InsertBlock Space (vlax-3d-point ins) bloc 1.0 1.0 1.0 0.0 ) ) (mapcar '(lambda (x y) (vla-put-TextString x y)) (vlax-invoke ref 'GetAttributes) (list mat alt) ) ) ) (princ) ) Quelles sont les modifs nécessaires pour que la routine fonctionne avec ce format de point 1 5000.0000 1000.0000 0.000 2 4956.6620 909.1830 0.000 3 4980.1440 993.8660 0.000 4 4990.5320 989.4800 0.000 5 4997.1450 986.7050 0.000 en sachant que l'ancien format était : 1,5000,0000,1000.0000,0.0000, merci de vos réponses.

bonjour Je suis en week end, je teste lundi! Merci LaurentM.

Salut LaurentM Je ne savais pas que c'était possible, si tu as retrouvé la mémoire je suis très interressé par cette astuce. Merci d'avance.

C'est ok gile En plus un dimanche!... Once again you're great! Thanks.

Salut, Il faudrait que le listing puisse être de la forme: 2001 608638.700 186869.000 120.251 2002 608601.500 186897.000 121.002 2003 608568.193 186903.665 120.089 2004 608496.896 186917.933 120.075 En fait gile c'est un peu comme la manip inverse de ce que je t'avais soumis; j'avais au début une liste sous cette forme à insérer afin d'obtenir des blocs topo maitenant j'aimerai pouvoir en faisant une selection complète des blocs topo obtenir une liste comme celle ci-dessus de façon à l'insérer dans un autre système

Bonjour, Peut-on créer une liste de points topo sous la forme fichier.txt? Merci.

Merci gile Tout fonctionne comme d'hab... Bon week-end.

Ok gile Je pense que je dois avoir un souci lors de la création de mon pointfile, je te tiens au courant. Grand Merci!!

Bonsoir gile, je n'arrive plus à charger mes points avec pointfile je pense que c'est du au nouveau format, est-il possible de modifier quelques paramètres pour que cela puisse marcher, mon nouveau format est : 3621 607842.161 186630.952 53.809 3621 609293.313 186570.308 53.809 3622 607829.639 186632.375 53.399 3622 609274.530 186572.442 53.399 3623 607813.552 186645.811 53.194 merci d'avance. bonne soirée

Oups désolé Celui-ci fonctionne très bien gile c'est de celui la qu'il s'agit, I'm sorry. (defun c:PointFile (/ AcDoc Space bloc file str mat alt ins ref) (vl-load-com) (and (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (or (tblsearch "BLOCK" (setq bloc "PointFile")) (findfile (setq bloc "PointFile.dwg")) ) (setq file (getfiled "Choisir le fichier" "" "txt" 0)) (setq file (open file "r")) (while (setq str (read-line file)) (setq str (vl-string-right-trim "," str) mat (substr str 1 (vl-string-position (ascii ",") str)) str (substr str (+ 2 (vl-string-position (ascii ",") str))) alt (rtos (atof (substr str (+ 2 (vl-string-position (ascii ",") str 1 T)))) 2 2) ins nil ins (cons (atof alt) ins) str (substr str 1 (vl-string-position (ascii ",") str 1 T)) ins (cons (atof (substr str (+ 2 (vl-string-position (ascii ",") str 1 T)) ) ) ins ) str (substr str 1 (vl-string-position (ascii ",") str 1 T)) ins (cons (atof str) ins) ref (vla-InsertBlock Space (vlax-3d-point ins) bloc 1.0 1.0 1.0 0.0 ) ) (mapcar '(lambda (x y) (vla-put-TextString x y)) (vlax-invoke ref 'GetAttributes) (list mat alt) ) ) ) (princ) ) fab.

Bonjour (gile) Tu avais créé cette routine pour charger des blocs points sous la forme point,X,Z (defun c:matricule (/ mat mlst ss n bloc att lst opt cnt ind pt) (if (and (setq mat (car (nentsel "\nSélectionnez un matricule: "))) (setq mlst (entget mat)) (= "ATTRIB" (cdr (assoc 0 mlst))) (= (type (read (cdr (assoc 1 mlst)))) 'INT) (setq ss (ssget "_X" (list '(0 . "INSERT") (assoc 2 (entget (cdr (assoc 330 mlst)))) ) ) ) ) (progn (repeat (setq n (sslength ss)) (setq bloc (ssname ss (setq n (1- n))) att (entnext bloc) ) (while (not (equal (assoc 2 (entget att)) (assoc 2 mlst))) (setq att (entnext att)) ) (setq lst (cons (cons (atoi (cdr (assoc 1 (entget att)))) (trans (cdr (assoc 10 (entget bloc))) bloc 1) ) lst ) ) ) (while (progn (initget "2d 3d") (setq opt (getkword "\nSpécifiez le type de polyligne [2d/3d] < Quitter >: " ) ) ) (cond ((= opt "2d") (command "_pline")) ((= opt "3d") (command "_3dpoly")) (T (command)) ) (setq cnt 0) (while (/= 0 (getvar "CMDACTIVE")) (setvar "CMDECHO" 0) (cond ((< 2 cnt) (initget "Clore annUler")) ((< 1 cnt) (initget "annUler")) ) (setq ind (getint (strcat "\nEntrez le matricule du point" (cond ((< cnt 2) "") ((< cnt 3) " ou [annUler]") (T " ou [Clore/annUler]") ) ": " ) ) ) (cond ((numberp ind) (cond ((setq pt (cdr (assoc ind lst))) (command "_non" pt) (setq cnt (1+ cnt)) ) (T (princ "\nMatricule non valide.") ) ) ) ((= ind "Clore") (command "_C")) ((= ind "annUler") (command "_U") (setq cnt (1- cnt)) ) (T (command)) ) (setvar "CMDECHO" 1) ) ) ) ) (princ) ) j'ai maintenant des listings de points sous la forme: 2001 608638.700 186869.000 12.122 2002 608601.500 186897.000 5.122 2003 608568.193 186903.665 10.524 2004 608496.896 186917.933 12.012 Est-il possible de changer quelque chose dans ta routine pour que cela puisse fonctionner. Et quelle ligne est à modifier pour charger des blocs contenant jusqu'au 4 chiffres après la virgule sous ta première routine? D'avance merci. fab.

salut, Ok lovecraft merci tout de même. bye

lovecraft, Peut-on reprendre cette vba d' excel et la transformer pour vba microstation? Salut.

Laurent Je te remercie de voler aussi souvent à mon secours!!!! Bonne soirée Fabdo.

Bonjour à tous, Peut-on modifier une cellule dans un dessin et appliquer cette transformation à toutes les cellules identiques de celui-ci un peu à la manière de redéfinir un bloc dans autocad?

Laurent, Si je comprends, on crée un modèle soit à partir d'un fichier ou dessin dans un dgn quelconque ou on peut le créer à partir du dessin lui même, le principe et d'attacher ensuite le modèle ou le dessin en référence en fonction du résultat que l'on veut obtenir? bonne journée fabdo

Bonjour Laurent Je ne trouve pas attacher/vues enregistrées dans Outil/Attacher/vues enregistrées...?

bonjour Lorsque l'on a un modèle dans son fichier dgn comment fait-on pour le faire apparaître sur son dessin original car lorsque je clic sur l'un puis sur l'autre ils ne s'affichent en même temps je veux dire pas en superposition je pense que je n'ai pas encore saisi toutes les subtilités si quelqu'un peut m'éclairer. Merci d'avance.

Laurent Merci, c'est juste un peu plus compliqué. Je voulais revenir sur l'une des réponses que tu m'avais donné à propos de la Version XM nous travaillons actuellement sous la V8, car selon mes sources azitop et azidan ne fonctionnent pas avec la XM. Question : Dans un cartouche lorsque l'on a des titres encadrés peut-on associer aux textes les cadres de façon que lorsque le l'on modifie le texte et que celui-ci soit plus court que le précédent le cadre s'ajuste automatiquement? Voila, bonne soirée. fabdo

salut Laurent Ok j'essaie ça demain. Merci..

Ok laurent, Je ne travaille avec microstation que de temps en temps, tout au moins pas 8 ou 9 heures par jour, du coup j'ai un peu de mal car je voudrais aller aussi vite qu'autocad pour mes constructions. De plus, notre dessinat.. ne cherche vraiment pas à améliorer ses connaissances.. J'arrête les lamentations et en tout cas merci pour ton encouragement. bye

Bonjour Est-il possible de sélectionner dans un dessin les points (cellules) qui ont servi à construire les lignes ceux-ci et pas d'autres (pour en faire un fichier .txt et récupérer ainsi les points, x, y, z). Merci de vos réponses.

Ok Merci roadmaster.