bonuscad

Pour info, Si les PDF sont généré par PDFCreator (voir avec le driver interne d'autodesk... pas testé!) avec GsView et l'addon PstoEdit, sur la même page, on peut faire cette conversion gratuitement. Bon ne pas penser récupérer des objets complexes, mais pour un dessin basique ça peut beaucoup aider.

Salut, En passant par les formules (seul moyen d'accéder à la valeur d'une cellule), il n'est pas possible de récupérer la valeur si celle-ci n'est pas numérique. Cela est bien spécifié dans l'aide sur les tableaux et sur l'utilisation des formules. Pourquoi tu n'utilise pas la numérotation de ta ligne (1ère colonne de ton tableau) qui est unique? C'est pas du texte, mais le référencement serait correct.

Pour éviter la sélection de la polyligne couvrant la FMULT, on peut aussi filtrer à la sélection au lieu de vérifier l'entité sélectionnée par (entsel). (while (null (setq f_m (ssget "_:S:E" '((0 . "VIEWPORT"))))) (princ "\nN'est pas une fenêtre") ) (setq ent (ssname f_m 0))

Me méfiant de toute manipulation médiatique, je rajoute un commentaire fait par un lecteur du Point. Son propos n'ai pas inintéressant, en voici le contenu: Mais bon je pense que "L'arbre qui cache la forêt..." reste de mise.

Bonjour, Tout le monde connait la maxime de notre dirigeant: "Travailler plus [surligneur]longtemps[/surligneur] pour [surligneur]faire[/surligneur] gagner plus [surligneur]aux actionnaires et toute la clique...[/surligneur]" Je vous laisse apprécier la lecture entre les lignes. :o Mais si vous prenez la peine de lire cet article, vous jugerez de l'effort demandé au citoyen. Cherchez l'erreur ! :mad: A t-on simplement affaire à une une guerre économique civile et mondiale? où bien sure la richesse produite par notre labeur est rackettée en coulisse par les puissants. A mon avis, seule une déferlante humaine massive (et peut être incontrôlable) peu endiguer cet asservissement que l'on veut nous faire subir graduellement et en catimini. (comme la grenouille plongé dans l'eau dont la température monte doucement jusqu'à la cuisson complète sans réaction de celle-ci) Vous n'êtes pas encore cuit ? Cela ne saurait tarder... ;)

Salut, Regardes ce sujet ...

Bonjour, La dernière fois que j'ai voulu utiliser une Summagraphic (série II), j' avais utilisé le driver Wintab. Cela avais fonctionné (il y a déjà plusieurs année, sous Win98 je crois), la tablette me servait ainsi de souris avec Windows et de tablette avec Autocad. Faire une recherche avec "Wintab" sous google devrait te permettre de trouver un driver... Reste le problème de l'OS que tu utilise!

Ce qui est désolant, c'est que tout ceci n'est pas nouveau. N'est ce pas Monsieur Einstein ? C'est bien les dirigeants le problème... [Edité le 2/6/2010 par bonuscad]

maintenant que tu es plus précis, ce code devrait pouvoir suffire. Autrement teste et continu à faire tes propositions. (defun c:crtxt (/ sel1 n ent Asso1 pos) (setq sel1 (ssget "X" '((0 . "*TEXT")))) (cond (sel1 (setq n 0) (while (setq entname (ssname sel1 n)) (setq ent (entget entname) Asso1 (cdr (assoc 1 ent)) ) (cond ((setq pos (vl-string-search "00.00 m2" asso1)) (entmod (subst (cons 1 (substr asso1 1 pos)) (assoc 1 ent) ent)) ) ((setq pos (vl-string-search "0.00 m2" asso1)) (entmod (subst (cons 1 (substr asso1 1 pos)) (assoc 1 ent) ent)) ) ) (setq n (1+ n)) ) ) ) (prin1) )

'sor, dans ton navigateur, menu "outil" -> choisir "options des dossiers..." dand la BD qui s'ouvre choisir dans l'onglet "Affichage": cocher "Afficher les fichiers et les dossiers caché" décocher "Masquer les extensions des fichiers dont le type est connu"

Cela vient de là: (while (setq ent (entget (ssname sel1 n))) Tu fais un test de boucle sur un entget, alors qu'il faudrait le faire sur ssname La boucle s'arrête quand il n'y a plus d'entité dans le jeux de sélection. (while (setq entname (ssname sel1 n)) (setq ent (entget entname))....... Autrement vu que tu fais une sélection filtrée sur des TEXTE, la condition (if (wcmatch Asso0 "*TEXT") est inutile.

Ta macro est correcte et fonctionne si rien n'est coché dans la BD de XAttacher. Il suffit de cocher une option (point d'insertion, échelle, rotation) pour que la macro ne fonctionne plus. Le lisp peut arranger les choses car tu peux boucler en examinant la variable CMDACTIVE. Donc dans ta macro, tu peut mettre du lisp et cela devrait fonctionner dans tout les cas de figure ^C^C((lambda ( / ) (command "_.UCS" "_World" "_.-LAYER" "_Make" "CalqueXRef" "")(command "_.XATTACH" (while (not (zerop (getvar "cmdactive"))) (command pause))) (command "_.-LAYER" "_Set" "0" "" "_.UCS" "_Previous")));^Z

Moi j'ai rien contre les juifs, et même simplement contre les Israéliens, ou les Coréens. Je suis plutôt remonté contre cette soi disant élite qui gouverne et qui mène les peuples au précipice. La seule force qui nous reste c'est de boycotter de manière massive et unifié l'économie Israélienne de manière autonome (votre choix!). On ne peut plus faire confiance à cette élite en place pour entraver ce cheminement absurde.

Non pas vraiment, il m'en reste encore, mais une certaine lassitude. Peut être simplement un coup de blues . Enfin des choses d'ici et d'ailleurs... Pour l'instant je prends toujours plaisir à vous lire, même si je me détache...

Bonsoir, Pour ma part, je suis un peu froissé quand je lis ceci: Alors que si on examine le code que j'ai publié ici , on peu s'apercevoir que le copier-coller a fonctionné... Ce n'est pas qu'on utilise des morceaux de mes code qui me chagrine, mais plutôt qu'on se les approprie si facilement sans avoir chercher à améliorer un tant soi peu le code (qui date en plus!) Mais bon, cela a été mon choix de publié en "open", a défaut des lauriers, j'aurais le ragout ;) Autrement une réflexion (ancienne) que j'avais mené sur les projection de polyligne sur des 3DFaces. Sans rancune, Bonuscad qui se détache doucement de l'activité sur le forum

Bonsoir, A tu déjà essayé simplement de refaire complétement ton fichier de configuration du traceur utilisé sous AutoCad (ajout traceur) C'est dingue tout ce qui est skoké dans ces ces fichiers, une modification mineure sur le réseau ou le traceur peut provoquer des conflits avec les paramètres enregistrés.

Merci de vos réponses les gars, Concernant les proxy voici ce que j'ai essayé: delproxy.vlx Donc, vu l'extension, pas modifiable... et consultable. :( Pour moi il n'a pas fonctionné, je pence qui traite plutôt les proxy en provenance d'une application verticale comme architectural (objet AEC). Pour mon cas ce serait plutôt du Map, en fait j'expérimente chez moi la bascule de fichier DXF vers du SHP pour QantumGIS. Je suis content j'ai réussi à faire la bascule pour beaucoup de fichiers, mais des entités proxy n'ont pus être récupérés. Je sais qu'il est recommandé de charger les ObjectEnabler sur le site d'AutoDesk pour la version utilisée d'Autocad, mais ne chercher pas à comprendre, je n'ai pas envie de passer par cette voie. (je trouve que les échanges DXF issus d'autocad sont de plus en plus incompatible avec les logiciels tiers) @Patrick_35, si tu veux un fichier, pas de problème, juste une adresse...

Bonjour, Si tu n'as pas déjà d'objet OLE dans ton document word, tu peux tenter un "collage spécial" (il te faut d'abord ouvrir ton document word et tout sélectionner et copier) Choisir de coller en tant qu'entité Autocad peut même être avantageux pour des modifications au lieu d'avoir un objet OLE au final.

Bonjour, Une suggestion: Certainement un peu ardu, car je n'ai rien trouvé d'efficace sur le net. Mais un nettoyage d'objet proxy m'intéresserais bien. Pour moi c'est là seule chose qui résiste à une purge radicale que j'obtiens en passant par un DXF d'objet en R12. (Ces objets sont ignorés par DxfOut, donc je les perds purement et simplement, ce qui ne fait pas mon affaire)

Bonjour, Dans le fichier que tu insère en Xref, vérifie d'abord la variable INSBASE ...

Salut (gile), Pour 2008, comme lili2006, la colonne de présentation et vide. Autre remarque, si je relance TEST, les informations dans la boite sont affichés de manière répétitive et ce autant de fois que je relance la commande. Pour 2009, je pourrais tester dans 2 ou 3 jours... si tu n'a pas de retour d'ici là!

D'autres clichés ! Un montage de plusieurs clichés montés en gif sur l'évolution de la nappe du 26 avril au 18 mai Un cliché par temps plus dégagé du volcan Eyjafjöll

Essayes avec Prism4CAD Cela à l'air de correspondre à colorize Perso, je ne connais pas !

Pour répondre à ta demande par MP, il aurait été mieux de faire le suivi sur le forum Ainsi d'autre que moi aurait pu répondre... Donc le code pour un réseau irrégulier (defun c:PERCAGE ( / jsel key_hole id_ent js hole_point hole_diameter hole_depth column_dist column_point lst_pt row_dist1 row_point1 row_dist2 row_point2 row_dist3 row_point3 row_dist4 row_point4) (princ "\nSélectionner un solide.") (while (null (setq jsel (ssget "_+.:E:S" '((0 . "3DSOLID"))))) (princ "\nCe n'est pas un solide!") ) (initget "2 4 6 8 10") (setq key_hole (getkword "\nNombre de trous à percer[2/4/6/8/10]? : ")) (setq id_ent (entlast) js (ssadd)) (initget 9) (setq hole_point (getpoint "\nPoint du Trou de départ: ")) (initget 71) (setq hole_diameter (getdist "\nDiamètre du Trou: ")) (initget 71) (setq hole_depth (getdist hole_point "\nProfondeur du Trou: ")) (cond ((eq key_hole "2") (initget 71) (setq column_dist (getdist hole_point "\nEcart entre colonne: ")) (setq column_point (polar hole_point 0 column_dist)) (setq lst_pt (list hole_point column_point)) ) ((eq key_hole "4") (initget 71) (setq column_dist (getdist hole_point "\nEcart entre colonne: ")) (setq column_point (polar hole_point 0 column_dist)) (initget 71) (setq row_dist1 (getdist hole_point "\nEcart entre la 1ère rangée: ")) (setq row_point1 (polar hole_point (* pi 0.5) row_dist1)) (setq lst_pt (list hole_point column_point row_point1 (list (car column_point) (cadr row_point1) (caddr hole_point)) ) ) ) ((eq key_hole "6") (initget 71) (setq column_dist (getdist hole_point "\nEcart entre colonne: ")) (setq column_point (polar hole_point 0 column_dist)) (initget 71) (setq row_dist1 (getdist hole_point "\nEcart entre la 1ère rangée: ")) (setq row_point1 (polar hole_point (* pi 0.5) row_dist1)) (initget 71) (setq row_dist2 (getdist row_point1 "\nEcart entre la 2ème rangée: ")) (setq row_point2 (polar row_point1 (* pi 0.5) row_dist2)) (setq lst_pt (list hole_point column_point row_point1 (list (car column_point) (cadr row_point1) (caddr hole_point)) row_point2 (list (car column_point) (cadr row_point2) (caddr hole_point)) ) ) ) ((eq key_hole "8") (initget 71) (setq column_dist (getdist hole_point "\nEcart entre colonne: ")) (setq column_point (polar hole_point 0 column_dist)) (initget 71) (setq row_dist1 (getdist hole_point "\nEcart entre la 1ère rangée: ")) (setq row_point1 (polar hole_point (* pi 0.5) row_dist1)) (initget 71) (setq row_dist2 (getdist row_point1 "\nEcart entre la 2ème rangée: ")) (setq row_point2 (polar row_point1 (* pi 0.5) row_dist2)) (initget 71) (setq row_dist3 (getdist row_point2 "\nEcart entre la 3ème rangée: ")) (setq row_point3 (polar row_point2 (* pi 0.5) row_dist3)) (setq lst_pt (list hole_point column_point row_point1 (list (car column_point) (cadr row_point1) (caddr hole_point)) row_point2 (list (car column_point) (cadr row_point2) (caddr hole_point)) row_point3 (list (car column_point) (cadr row_point3) (caddr hole_point)) ) ) ) ((eq key_hole "10") (initget 71) (setq column_dist (getdist hole_point "\nEcart entre colonne: ")) (setq column_point (polar hole_point 0 column_dist)) (initget 71) (setq row_dist1 (getdist hole_point "\nEcart entre la 1ère rangée: ")) (setq row_point1 (polar hole_point (* pi 0.5) row_dist1)) (initget 71) (setq row_dist2 (getdist row_point1 "\nEcart entre la 2ème rangée: ")) (setq row_point2 (polar row_point1 (* pi 0.5) row_dist2)) (initget 71) (setq row_dist3 (getdist row_point2 "\nEcart entre la 3ème rangée: ")) (setq row_point3 (polar row_point2 (* pi 0.5) row_dist3)) (initget 71) (setq row_dist4 (getdist row_point3 "\nEcart entre la 4ème rangée: ")) (setq row_point4 (polar row_point3 (* pi 0.5) row_dist4)) (setq lst_pt (list hole_point column_point row_point1 (list (car column_point) (cadr row_point1) (caddr hole_point)) row_point2 (list (car column_point) (cadr row_point2) (caddr hole_point)) row_point3 (list (car column_point) (cadr row_point3) (caddr hole_point)) row_point4 (list (car column_point) (cadr row_point4) (caddr hole_point)) ) ) ) (T (setq lst_pt (list hole_point)) ) ) (setvar "cmdecho" 0) (mapcar '(lambda (x) (command "_.circle" "_none" x "_Diameter" hole_diameter) (command "_.extrude" (entlast) "" hole_depth) ) lst_pt ) (if key_hole (progn (ssadd id_ent js) (while (setq id_ent (entnext id_ent)) (ssadd id_ent js) ) ) (ssadd (entlast) js) ) (command "_.subtract" jsel "" js "") (setvar "cmdecho" 1) (prin1) )

C'est vrai que les nuages nous empêche d'apprécier la grandeur du panache, aucune vue terrestre. On semble juste distinguer un bout de cote Islandaise. (bas-droite de l'ile) Pour ma part j'apprécie la longueur du panache de cendre à environ 5 X la taille de l'Islande, mais ce n'est qu'une appréciation visuelle. Le même cliché en définition plus élevée La nappe de pétrole n'a rien à voir avec ce qu'un pétrolier aurait pus déverser. C'est consternant :( je pense qu'on peu classer la catastrophe équivalent à un Tchernobyl. Les effets seront là pour de nombreuses années. La nappes se divise en de nombreuses parties en profondeur. A la façon je pense des lampes kitches (décoratives) des années 70: de grosses bulles colorées qui se déplaçaient dans un bocal (2 liquides non miscibles). Et le cliché date, a peu près du début (1 semaine). [Edité le 18/5/2010 par bonuscad]