Morgul

Bonjour, Je recherche un lisp permettant d'extrair tous les blocs d'un fichier en plusieurs fichiers. J'avais ce lisp, mais je ne le retrouve plus. Merci à tous.

Bonjour, Moi aussi je suis intéressé : robot.nono@gmail.com Merci.

Bonjour à tous, J'ai créé un bloc dynamique avec des attributs. Je veux l'attaquer avec un lisp, mais apparemment, on ne peut l'attaquer comme un bloc normal. En effet, la commande suivante ne le trouve pas : (setq NomEntSel (ssget "X" (list (cons 2 "NomBloc")))) Merci de votre aide.

Merci de me répondre. Mais ça ne fonctionne pas, l'attribut n'est pas sélectionné lorsque je fais mon cadre de capture.

Bonjour, J'ai créé un bloc dynamique avec des actions d'étirements. Tout s'étire correctement sauf les attributs qui ne suivent pas l'étirement. Impossible d'associer les attributs avec les actions. Comment faire ? Merci.

Merci Maximilien, C'était bien ça. Mais pourquoi faut-il lancer ça alors qu'avant je ne le faisait pas ? C'est naze, quand même ! En tout cas merci encore, ça me sauve la vie je pensait qu'il fallait encore tout réécrir.

Bonjour à tous, Apparemment, il y a un problème sous 2008 avec la commande "VLAX-GET-ACAD-OBJECT". AutoCAD me renvoit : Erreur : no function definition: VLAX-GET-ACAD-OBJECT; erreur: une erreur est survenue dans la fonction *erreur*paramètre de la variable AutoCAD rejeté: "cmdecho" nil Est-ce que quelqu'un à eu ce problème ? Sous 2007 mon lisp fonctionnait très bien ! Merci.

Bonjour, Tu peux utiliser la commande "gatte" ce qui veut dire global attribut edit. C'est un vieille commande issue du bonux express.

Bonjour à vous, J'avais le même problème que vous, c'est super chi... ! Est-ce que vous avez une imprimante ricoh ? Ou peut-être une imprimante utilisant un driver Post-Script ? Moi, la seule solution que j'ai trouvé c'est d'utiliser un vieux driver et non le tout dernier. Pour cela il faut allez sur le site de votre marque d'imprimante et tester un à un les drivers en allant du plus récent au plus vieux. C'est ma solution, elle n'est pas forcément simple, mais elle marche ! Bon courrage.

Bonjour, J'ai fait un bloc dynamique qui est en gros un rectangle que je peux étirer en tirant sur une des deux faces parallèle. Mon bloc est donc composé d'un paramètre distance associée à deux actions d'étirement. Je souhaite donc que le point d'insertion soit le centre du rectangle, et qu'il se mette à jours en fonction de l'étiremment. Comment faire ? D'avance Merci.

Merci, je vais tester demain.

Bonjour à tous, Voilà mon problème, j'ai créé une boite de dialogue habillé avec des clichés. Avec aussi un bouton Ok et Annuler. Je voudrais supprimer le bouton OK affin que l'on ai juste à cliquer sur l'un des clichés et la commande ce lance comme si l'on avait cliqué Ok. Je souhaite conserver le bouton annuler. Voici mon code lisp : (setq id_dcl (load_dialog "Favoris.dcl")) (if (not (new_dialog "Boite" id_dcl) ) (exit)) (setq x (dimx_tile "image1") y (dimy_tile "image1")) ; pour récuperer la taille de l'image dans le dcl (start_image "image1") (slide_image 1 -6 x y "Mesures.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y) (end_image) (setq x2 (dimx_tile "image2") y2 (dimy_tile "image2")) ; pour récuperer la taille de l'image dans le dcl (start_image "image2") (slide_image 1 -6 x2 y2 "Blocs.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y) (end_image) (setq x3 (dimx_tile "image3") y3 (dimy_tile "image3")) ; pour récuperer la taille de l'image dans le dcl (start_image "image3") (slide_image 1 -6 x3 y3 "Fenetres.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y) (end_image) (setq x4 (dimx_tile "image4") y4 (dimy_tile "image4")) ; pour récuperer la taille de l'image dans le dcl (start_image "image4") (slide_image 1 -6 x4 y4 "Texte.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y) (end_image) (setq x5 (dimx_tile "image5") y5 (dimy_tile "image5")) ; pour récuperer la taille de l'image dans le dcl (start_image "image5") (slide_image 1 -6 x5 y5 "Presentation.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y) (end_image) (setq x6 (dimx_tile "image6") y6 (dimy_tile "image6")) ; pour récuperer la taille de l'image dans le dcl (start_image "image6") (slide_image 1 -6 x6 y6 "Calques.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y) (end_image) (setq x7 (dimx_tile "image7") y7 (dimy_tile "image7")) ; pour récuperer la taille de l'image dans le dcl (start_image "image7") (slide_image 1 -6 x7 y7 "Tracer.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y) (end_image) (setq x8 (dimx_tile "image8") y8 (dimy_tile "image8")) ; pour récuperer la taille de l'image dans le dcl (start_image "image8") (slide_image 1 -6 x8 y8 "Purger.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y) (end_image) (setq x9 (dimx_tile "image9") y9 (dimy_tile "image9")) ; pour récuperer la taille de l'image dans le dcl (start_image "image9") (slide_image 1 -6 x9 y9 "Quitter.sld") ; les deux 0 correspondent au décalage éventuel pour centrer ton slide (x et y) (end_image) (action_tile "image1" "(setq OuvreProg va)") (action_tile "image2" "(setq OuvreProg vb)") (action_tile "image3" "(setq OuvreProg vc)") (action_tile "image4" "(setq OuvreProg vd)") (action_tile "image5" "(setq OuvreProg ve)") (action_tile "image6" "(setq OuvreProg vf)") (action_tile "image7" "(setq OuvreProg vg)") (action_tile "image8" "(setq OuvreProg vh)") (action_tile "image9" "(setq OuvreProg vi)") (action_tile "OK" "OK (done_dialog)") (action_tile "Annuler" "(done_dialog 0)") (if (= (start_dialog) 1) (progn (start_dialog) (unload_dialog id_dcl) etc... Voici le code de la dcl : Boite : dialog {label ="Favoris"; : spacer {} : spacer {} : row { : column { : spacer {} : image_button {key = "image1"; width = 15; height = 6; color = graphics_background;} : text {value = "Mesures"; alignment = centered;} : spacer {} } : column { : spacer {} : image_button {key = "image2"; width = 15; height = 6; color = graphics_background;} : text {value = "Blocs"; alignment = centered;} : spacer {} } : column { : spacer {} : image_button {key = "image3"; width = 15; height = 6; color = graphics_background;} : text {value = "Fenêtres"; alignment = centered;} : spacer {} } : column { : spacer {} : image_button {key = "image4"; width = 15; height = 6; color = graphics_background;} : text {value = "Textes"; alignment = centered;} : spacer {} } : column { : spacer {} : image_button {key = "image5"; width = 15; height = 6; color = graphics_background;} : text {value = "Présentations"; alignment = centered;} : spacer {} } : column { : spacer {} : image_button {key = "image6"; width = 15; height = 6; color = graphics_background;} : text {value = "Calques"; alignment = centered;} : spacer {} } : column { : spacer {} : image_button {key = "image7"; width = 15; height = 6; color = graphics_background;} : text {value = "Tracer"; alignment = centered;} : spacer {} } : column { : spacer {} : image_button {key = "image8"; width = 15; height = 6; color = graphics_background;} : text {value = "Purger"; alignment = centered;} : spacer {} } : column { : spacer {} : image_button {key = "image9"; width = 15; height = 6; color = graphics_background;} : text {value = "Quitter"; alignment = centered;} : spacer {} } } : spacer {} : spacer {} :row{fixed_width = true;alignment = centered; : ok_button {label = "OK"; width = 15;} : spacer {} : spacer {} : spacer {} : spacer {} : spacer {} : cancel_button {label = "Annuler"; width = 15;} } } Merci pour votre aide. PS : Pendant que j'y suis, Comment fait-on pour mettre un cadre rouge autour du cliché choisi ?

Bonjour, Je n'ai pas bien compris les réponses au message de l56 concernant l'exécution d'un fichier via le net. Oui nous pouvons éxécuter des fichiers, mais des Lisps c'est possibles ? Merci.

Bonjour à vous, Est-ce que cela veut dire que nous pourrions exécuter des lisp via le net ?

Bonjour à tous, Est-ce que quelqu'un utilise une version d'essais en français ? Si oui pouvez-vous le dire comment vous l'avez eu ? J'ai fait les démarches pour avoir le CD et rien. Et pour la télécharger c'est pas possible en français. En effet, je voudrais tester les nouvelles fonctions avant de demander à mon chef d'entreprise d'acheter la mise à jour. Merci.

Bonjour à tous, Est-ce que vous pouvez m'aider ? Je n'en peu plus ! J'ai plusieurs fichiers comportants des textes en Arial, et lorsque j'imprime les textes s'alongent comme si on modifait le facteur d'espacement, puis ils reviennent normaux lorsque l'impression est terminée. Que les textes soient simples ou multiples ça ne change rien ! Cela ne vient pas non plus de l'imprimante car ça le fait sur plusieurs type de traceurs. Est-ce que vous rencontrez le même problème? Merci de votre aide.

Merci à vous deux, c'est cool !

Bonjour à tous, Je voudrais savoir si l'on peut accéder la base de registre de windows en lisp ? En effet, je voudrais limiter l'accès à certains lisps dans mon bureau d'étude en créant une clés de registre. Merci.

Bonjour, Je me sens un peu seul aujourd'hui, car je doit implanter tout un système de détection incendie sur des plans d'archi, mais je ne connais pas la norme des symbols. Pourriez-vous éventuellement me fournir une bibliothèque de symbols pour AutoCAD ? Merci à tous.

Bonjour Patrick_35, C'est vrais que tu es super cool, et que tes lisps sont très utiles. Toutes fois, est-ce que je peux revenir à la charge pour mon toggle "inversion d'impression" concernant ONG. Il me serait très utile, et si cela l'est pour moi, je pense que ça pourrait l'être pour d'autres.... Tu m'avais proposé de changer le lisp de la manière suivante : La solution pour inverser la variable sel (while (not (eq sel "")) (setq pos (strcat (itoa (read sel)) " " pos)) (setq sel (substr sel (+ 2 (strlen (itoa (read sel)))) (strlen sel))) ) (setq sel (substr pos 1 (1- (strlen pos)))) Si tu touves que j'exagères, tu me le dis et je le comprendrai car il est vrais que tu ne peux pas répondre sur mesure à tout le monde ! Meci encore pour tout ;)

Bonjour à tous, Est-il possible de lancer des lisps dans DWG TrueView 2007 ? Je sais que c'est possible dans autocad LT via une interface que des petits malins ont créé.

Bonjour, Je voudrais créer un fichier exécutable pour créer des arborescences de répertoire et sous répertoires, du type : -> code site-nom du site -> code site-PLANS -> Ind-A -> code site-TRAVAUX Une boite de dialogue devrait s'ouvrir demandant le code site, le nom du site ainsi que le chemin où créer l'arbo sur le réseau. Et l'arborescence devrait être créée par le fichier exécutable via un fichier config.ini que l'on pourrait modifier pour rajoutter ou enlever des répertoires. Je ne sais pas quel langage utiliser pour créer un exécutable. Merci de votre aide.

Cool ! Merci et bonne soirée.

Bonjour à tous, Je débute en lisp et j'ai découvert ce forum. ObjectDCL c'est quoi ? et comment ça marche ? Merci.

Merci à vous deux, Est-ce que je pourrais vérifier l'existance du répertoire avant de le créer ? Ou que ce passe-t-il si je veux créer un répertoire qui existe déja ?