Bortch59

Bonjour, Effectivement avec osmode=0 tout fonctionne à merveille. Merci.

Bonjour, comment expliquer le comportement de ma routine (voir fichier ci-joint) ? PAS.dwg

Très juste. Désolé. Je cherche à exploiter (trans) suite à une remarque de bonuscad dans ce post: http://www.cadxp.com/sujetXForum-31360.htm Et je n'arrive pas à comprendre comment exploiter la fonction.

Salut, Merci pour ces explications mais je n'arrive pas à le faire fonctionner correctement. Je m'explique: quand je change le SCU avec UCSfollow à 0 ça fonctionne mais avec UCSfollow à 1 le résultat n'est pas celui escompté. Quelle notion me fait défaut? PS: ceci dit sans utiliser (trans) ça fonctionne aussi quand UCSfollow est à 0. Je pense que je ne maitrise pas le SCU correctement [Edité le 18/3/2011 par Bortch59]

Bonjour, Tout est dit dans le titre, je recherche des explications sur le fonctionnement de (trans). Je suis allé voir dans l'aide mais mon anglais n'est pas au top... Merci

Salut, tu peux faire un bouton avec une macro du genre: ^C^C(load "mon_lisp.lsp");mon_lisp; aprés avoir déclaré le chemin du répertoire ou est rangé ton lisp comme te l'as conseillé x_all. (sinon tu devras rentrer le chemin complet dans la macro) [Edité le 2/3/2011 par Bortch59]

Salut, Je ne suis pas expert mais je vais te donner le conseil que l'on m'a donné, à savoir lire les 4 premiers sujets du forum "Débuter en LISP". Tu y trouveras les notions de base.

Bonjour (gile), aprés test rapide, je me demandais quelle était la différence entre "toute la collection" et "tous les blocs insérés"? Merci.

Salut, merci pour ces remarques constructives. Je m'en vais les prendre en compte dès à présent. PS: je ne vois toujours pas l'utilité de cmdecho... Qu'apporte le fait que les commandes ne s'affichent pas sur la ligne de commande?

J'ai du mal à comprendre l'utilité de la variable cmdecho. y aurait il un sujet à ce sujet??

Bonjour, Je vous soumet mon premier code afin de subir le feu des critiques (méthode, clarté du code...) Je voudrais remercier (gile) et bonuscad pour leur aide dans ce sujet :http:// http://www.cadxp.com/sujetXForum-30982.htm. Merci pour vos commentaires. (defun c:PAS (/ L Ep N Ec P0 P1 P10 P11 B Ba) (setq L (getreal "\nLongueur baffle: ")) (setq Ep (getreal "\nEpaisseur baffle: ")) (setq N (getint "\nNombre de baffles: ")) (setq Ec (getreal "\nEcartement des baffles: ")) (setq P0 (getpoint "\nPt d'insertion PAS: ")) ;Dessin Baffle (setq P10 (list (+ (car P0) (/ Ec 2)) (+ (cadr P0) (/ Ec 2)))) (setq P11 (list (+ (car P10) L) (+ (cadr P10) Ep))) (command "rectangle" P10 P11) ;Changement propriétés bafles (setq B (entget (entlast))) (if (assoc 62 B) (entmod (subst '(62 . 8) (assoc 62 B) B)) (entmod (append B '((62 . 8)))) ) (if (assoc 6 B) (entmod (subst '(6 . "cache") (assoc 6 B) B)) (entmod (append B '((6 . "cache")))) ) (setq Ba (entlast)) (command "reseau" Ba "" "r" N "1" (+ Ep Ec)) ;Dessin PAS (setq P1 (list (+ (car P0) L Ec) (+ (cadr P0) (* N (+ Ep Ec))))) (command "rectangle" P0 P1) )

Merci. Ce coup ci ça fonctionne nickel. Je te donne RDV dans un nouveau post afin de tester et surtout de critiquer mon code une fois celui-ci terminé (dans le forum routines LISP ?).

Choix de l'objet: ((-1 . ) (0 . "LWPOLYLINE") (330 . ) (5 . "3E8") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbPolyline") (90 . 2) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 101.701 72.9422) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 56.1202 49.0638) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (210 0.0 0.0 1.0)) Voici la liste. Ne fonctionne pas non plus avec une droite.

Salut, c'est bien la couleur de l'entité que je veux changer. J'ai refait plusieurs fois l'essai et rien à faire, impossible de changer la couleur d'une polyligne alors que tout est OK avec ligne, cercle, texte. Une idée?

Salut, concentré que j'étais à déchiffrer ce code, je ne l'avais pas encore testé sur mon fameux rectangle, et à mon grand étonnement il n'a pas changé de couleur. La démarche serait-elle différente pour une polyligne? PS: j'ai édité mon message et tout m'a paru normal.

Salut, j'ai essayé ce code qui correspond bien à l'objectif que je me suis fixé. J'en suis à la phase compréhension et j'ai du mal à tout interpréter: (setq dxf_ent (entget (car (entsel "\nChoisir un objet: ")))) Le nom de l'entité sélectionnée est récupéré par (car) et sa liste est renvoyée par (entget). (if (assoc 62 dxf_ent) Là je suis pas trop sur: Si 62 à une valeur (autre que du calque auquel cas il n'apparait pas) (entmod (subst '(62 . 4) (assoc 62 dxf_ent) dxf_ent)) On remplace la valeur de 62 par (62 . 4) dans dxf_ent et on met à jour la liste (entmod (cons '(62 . 4) dxf_ent)) Sinon (donc si l'objet est du calque) on rajoute (62 . 4) à la liste Peut tu me dire si j'ai bon? Merci

Ok pour rajouter le code à priori avec cons?? (cons (62 . "??") liste) Sauf que je ne vois pas quoi mettre à la place de ?? . A moins que ce ne sois pas la bonne façon de faire?

Salut, je souhaiterais maintenant intervenir sur la couleur de ce rectangle. J'ai essayé avec entget mais elle n'apparait pas dans la liste qui est extraite. Quelqu'un peut-il m'aiguiller svp? Merci

Je viens d'avoir la réponse à cette question dans l'un de ces sujets. Merci pour ton aide

Ok c'est donc normal vu que ma dernière expression est (command "-reseau"). A propos de (command) j'ai l'impression que le lisp ne fait pas de différence entre reseau et -reseau, le lisp ne permet pas d'afficher les boites de dialogue?

Merci pour cette piste. J'ai réussi, tout fonctionne bien. Une fois le lisp terminé, nil s'affiche sur la ligne de commande. Saurais tu me dire si c'est normal? Merci

Bonjour, je suis en train d'écrire mon premier lisp. J'ai pour l'instant réussi à dessiner un rectangle (ça c'est pour vous donner mon niveau). Je voudrais ensuite faire un réseau mais comment sélectionner ce rectangle sans passer par une intervention utilisateur ?? Merci.

Bonjour, je me suis mal fait comprendre. Ce n'est pas au niveau des macros que ça coince, j'ai déjà créé des barres d'outils d'insertion de blocs sans problème. Dans l'interface personnaliser fichier cuix, je créé mon noveau menu dans Ancienne\menu de mosaîque, l'étape suivante étant de remplir ce nouveau menu avec les commandes d'insertion de blocs. A cette étape, autocad ne m'autorise pas à glisser mes commandes depuis "liste de commandes" vers mon menu. Bug ou mauvaise manip sous LT2010?? J'ai contouné le problème en créant un menu sur une version 2008 que j'ai réintégré à ma version LT2010, et là plus de problème. Merci pour vos participations, je serais quand même curieux de savoir pourquoi ça ne marche pas comme ça devrais - sachant que je fais exactement la même manip sous 2008 que sous LT2010 (différence entre LT et pleine?) - si quelqu'un à une idée... Sinon je classe le post comme résolu.

Bonjour, je sais cela et c'est précisément la commande que je créé que je n'arrive pas à insérer dans mon menu (ni celle là ni une autre d'ailleurs). Encore plus étonnant, la macro d'appel du menu mosaique fonctionne parfaitement et ouvre mon menu... vide.

Bonjour, j''ai créé un menu de mosaïque d'images mais je n'arrive pas à y mettre les commandes d'insertion de blocs. Quand je fais glisser une commande vers le menu que j'ai créé, l'accés à ce dernier m'est refusé (alors que je peux la faire glisser jusqu'à une barre d'outils par ex). J'ai trouvé sur le forum (autocad 2008LT) des problèmes relatifs à l'insertion des clichés mais aucun sur l'insertion des commandes. La démarche serait elle différente sur 2010? Je sais que les palettes ont maintenant les faveurs des utilisateurs, mais si quelqu'un à une idée... Merci