LUDWIG

Waou ! Sympa la génération automatique de script. Je n'ai pas réussi à utiliser le lisp de bonuscad... Mais en éditant le .bat de Christian pour y modifier le script, ça fait des choses super ! Merci à Vous, Grands Maîtres !

ah oui 2 boutons, je trouvais ça trop long ! C'est que je suis feignant, moi ! Pourquoi cliquer sur 2 boutons quand 1 suffirait !!!

Merci Bonuscad ! Ca marche maintenant ! Quoique la solution que j'avais apportée ne POUVAIT pas marcher car j'avais fait une erreur de variable. Il faudrait que je vois si ça marche avec la méthode précédente maintenant. Bon, donc voici le programme : ;**************************************** ; -- Déplacer entité sur calque indicé -- ;**************************************** ; By Ludwig DESMIER qui est tout fier de sa réussite !!! (defun c:FDP ( / cmd n jeu ind nb ent prop calque TL CO GEL Nouv DEF) ; cmd : valeur de la variable cmdecho / n : le compteur / jeu : le jeu de sélection / ind : l'indice ajouté aux nouveaux calques ; nb : le nombre d'entités dans le jeu de sélection / ent : le nom de l'entité en cours ; prop : la liste des propriétés de l'entité en cours / calque/TL/CO/GEL : nom/Type de ligne/Couleur/Etat de l'entité en cours ; Nouv : le nouveau nom de calque de l'entité en cours / DEF : table de définition du calque (graphscr) (setq cmd (getvar "CMDECHO")) (setvar "CMDECHO" 0) (prompt "\nChoisissez les entité(s) à mettre sur un calque indicé") (setq n 0) (setq jeu (ssget)) (setq ind (getstring T "\nDonnez le nom de l'indice (_FDP)")) (If (= ind "") (setq ind "_FDP")) (setq nb (sslength jeu)) (repeat nb (setq prop (entget (setq ent (ssname jeu n)))) (setq calque (cdr (assoc 8 prop))) (setq DEF (tblsearch "LAYER" calque)) (setq TL (cdr (assoc 6 DEF))) (setq CO (cdr (assoc 62 DEF))) ;(setq GEL (cdr (assoc 70 DEF))) l'entité selectionnée n'est forcément pas gelée. (setq Nouv (strcat calque ind)) (command "-calque" "nouv" Nouv "CO" CO Nouv "TL" TL Nouv "") (command "chprop" ent "" "ca" Nouv "") (setq n (1+ n)) ) (prin1) (setvar "CMDECHO" cmd) )

Savez-vous s'il est possible de faire un panoramique en utilisant les flèches du clavier (comme si on déplaçait les barres de défilement verticale et horizontale) ?

Salut et merci mais... Je n'y arrive pas !!! Dans ton code : Coul_Ent (cdr(assoc 62 list_ent)) TL_Ent (cdr(assoc 6 list_ent)) Coul_Ent et TL_Ent sont la couleur et le type de ligne de l'entité. Moi, il me faudrait la couleur et le type de ligne DU CALQUE DE L'ENTITE. J'ai essayé : (setq Coul_Ent (cdr (assoc 62 (entget cal_ent)))) (setq TL_Ent (cdr (assoc 6 (entget cal_ent)))) Mais ça ne fonctionne pô !!! Help !!! PS0 : Dans la fin d eton programme, tu modifies la couleur et le type de ligne de l'objet. Ce n'est pas ce que je veux faire. Je veux modifier la couleur et type de ligne du calque de l'objet. Mais mon PS, c'est surtout que jene comprends pas la syntaxe de if : (If Coul_Ent (command...)) . Je n'y vois pas d'expression conditionnellle (j'ai l'habitude de if (valeur si vrai ; valeur si faux). Est-ce que If Coul_Ent signifie "Si Coul_Ent existe" ??? PS1 : je n'ai pa pu m'empêcher de zieuter dans l'aide pour ENTMOD et je crois comprendre que c'est pour modifier les propriétés (XDATA) des entités directement. Mais tu as raison, je vais d'abord apprendre "à marcher" PS2 : c'est quoi comme nationalité ce forum ? Car l'heure des messages que je postes n'est pas du tout la même que mon "heure système". Ou alors le changement d'heure n'a pas eu lieu ? [Edité le 10/11/2004 par LUDWIG]

Bonjour, Je crée une commande pour déplacer des entités sur un calque indicé "FDP" (ex : de calque "ELECTRICITE" vers "ELECTRICITE_FDP). Le calque d'origine doit être conservé. Le programme fonctionne (exceptionnel pour moi !). Sauf que les calques créés sont tous en "ducalque" et "blanc". Quelqu'un pourrait me donner une piste pour extraire les données de couleur, d'épaisseur, de type de ligne et éventuellement les états actif/geler/verrouiller... Merci d'avance. ;**************************************** ; Déplacer entité sur calque indicé "FDP" ;**************************************** (defun c:FDP ( / compteur sélection nombre_entité nom_entité list_propr_entité calque_entité Nouv_nom_calque) (graphscr) (prompt "\nChoisir les entité(s) à mettre sur un calque indicé FDP") (setq compteur 0) (setq sélection (ssget)) (setq nombre_entité (sslength sélection)) (repeat nombre_entité (setq list_propr_entité (entget (setq nom_entité (ssname sélection compteur)))) (setq calque_entité (cdr (assoc 8 list_propr_entité))) (setq Nouv_nom_calque (strcat calque_entité "_FDP")) (command "-calque" "nouv" Nouv_nom_calque "") (command "chprop" nom_entité "" "ca" Nouv_nom_calque "") (setq compteur (1+ compteur)) ) (prin1) )

ben ce n'est pas encore précis, je sais que je vais avoir à faire des scripts. Ce que je ne saurais pas faire c'est automatiser l'ouverture d'un dessin puis la fermeture et l'ouverture du suivant. 1 - Ouvre le premier dessin d'un dossier 2 - Effectue le script (ça je saurais faire). Par exemple Activer/Dégeler/Déverrouiller Tout ;Zoom Etendu ; Changer Propriétés Couleur/Epaisseur/Type de ligne DuCalque ; Enregister 3 - Fermer le dessin et ouvrir le suivant. Tu traites cela avec un script ?

Merci les gars ! J'ai pris t'a commande, Christian, que je comprends mieux. Serge, celle que tu m'as transmise ne semble pas fonctionner. Geom3d est chargée, mais ça doit être une erreur d'espace ou point virgule que je n'arrive pas à déceler. En tout cas la condition (while (> (getvar "cmdactive") 0) me servira ailleurs. Merci.

Didier : je ne savais pas que LAYISO enregistrait l'état du calque. Il l'enregistre dans le gestionnaire lman. Eric : Merci ! C'est exactement ce que je cherchais. En fait, LAYUNISO n'apparait pas dans le menu des Express Tools. C'est pour ça que je ne le trouvais pas..

Il me semble qu'il existait un bouton "UNISOLATE" dans les Express Tools d'autocad 2002 qui permettait de revenir à l'état du calque avant isolation (même multiple). Je ne l'ai jamais revu. Est-ce que ça dit quelquechose à quelqu'un. J'ai modifié la macro d'isolate et j'ai créé unisolate si ça intéresse quelqu'un : ISOLATE ^C^C-lman;s;isol;;layiso UNISOLATE ^C^C-lman;r;isol;d;isol;;; mais ça ne permet pas de revenir à l'état initial après des isolations multiples. attention : en fonction des options du layer manager (enregistrement du type de ligne, de la couleur etc) vous pourriez perdre les modifications que vous faites à un calque que vous avez isolé) [Edité le 8/11/2004 par LUDWIG]

marche pô merci quand même

marche pô le lien ?? :(

Hello Est-il possible, dans un bouton et sans passer par un lisp, de récuperer une variable, lancer une commande, puis remettre la variable une fois la commande terminée ? Je m'explique, je veux lancer la commande _align et que l'accrochage soit automatiquement ext+mil. Une fois la commande finie, je voudrais retrouver mon osmode précédent (si je n'ai pas annulé la commande en cours bien sûr). ^C^Csetq O (getvar ("osmode"));setvar "osmode" 3);_align;setvar (osmode O) Mais bien sûr ça ne marche pas...

Cette méthode m'interessait fortement mais ne fonctionnait pas. Je l'ai corrigée : *^C^C_SELECT;\chprop;P;;ca;TOTO;co;rouge;; Merci Christian Par contre, je n'arrive toujours pas à faire mon bouton qui me permettrait de faire une sélection et de ne garder sélectionné que les blocs... ^C^C_SELECT;\(ssget '((0 . "INSERT"))); ??? Ce que j'arrive à faire c'est D'ABORD de faire ma sélection PUIS de cliquer sur le bouton ^C^C(ssget "I" '((0 . "INSERT")));_pselect;p;;, ce qui ne me satisfait pas. Problème : ça ne marche pas quand il n'y a aucun bloc dans la sélection. Help !!! [Edité le 8/11/2004 par LUDWIG]

ben ça m'intéresse... Faire un script qui convertir tout en ducalque + zoom étendu, je sais faire mais comment faire pour fermer le dessin et ouvrir le suivant ?

Dans le même esprit, comment empêcher la palette d'outils de s'afficher à chaque démarrage dans Autodesk Architectural Desktop 2004 ?

Oui, oui je suis propre et je sors proprement du logiciel... :thumbup: Super ! C'était ce ¤$#*¤$#*¤$#* d'espace. Maintenant, ça marche nickel. Merci à vous !

Je te remercie, je vais plutôt faire le test et je donne des nouvelles... [...] Bon j'ai renommer mon .mns en .mnu et rechargé le menu mais le problème n'est pas réglé. Peut-être que ça vient d'Autodesk Architectural Desktop 2004 ? Ou du fait que je ne sois pas encore enregistré (mais ça m'étonnerait). Donc en fait je veux bien que tu test, si tu as autre chose qu'Autodesk Architectural Desktop 2004 et que ça marche chez toi, ça viendra sans doute d'Autodesk Architectural Desktop 2004 (ou d'une différence de configuration a déterminer...). Sinon, y-at'il un moyen de charger mon menu par un lisp chargé au démarrage ? Je n'arrive pas à passer outre la boîte de dialogue de _Menuload... [Edité le 5/11/2004 par LUDWIG]

Merci de me répondre. Oui, j'ai bien une section. Voici le début de mon fichier : // // AutoCAD fichier de menu - C:\Documents and Settings\ldesmier\Application Data\Autodesk\Autodesk Architectural Desktop 2004\R16.0\fra\Support\Ludwig.mns // ***MENUGROUP=OUTILS LUDWIG ***TOOLBARS **OUTILS ID_OUTILS_0 [_Toolbar("OUTILS", _Floating, _Show, 397, 77, 1)] ID_Filter_0 [_Button("Filter", "Filter.bmp", "Filter.bmp")]^C^C_filter .............................. Je travail sur Autodesk Architectural Desktop 2004.

Hello Je me suis créer de nouvelles barres d'outils dans un groupe de menu personnel ( ludwig.mns) mais je suis obligé de le charger ( _menuload) après chaque démarrage d'autocad. Quelqu'un saurait-il comment forcer mes barres d'outils à rester bien gentiment dans ma session ? :question: Le chemin du fichier .mns est pourtant défini dans outils/options/fichiers/chemin de recherche de fichier de support et chemin de recherche de fichier de support en cours d'utilisation. Le chemin du fichier de menu courant restant celui qui pointe AutoCAD.mns . J'ai essayé de placer mon fichier .mns dans le même répertoire que AutoCAD.mns mais ça ne change rien. Merci d'avance.

Bonjour ;) J'ai un bouton qui me permet de sélectionner tous qui n'est pas un bloc dans la sélection que je viens de faire : ^C^C(ssget "I" '((-4 . "NOT")(0 . "INSERT")(-4 . "NOT>")));_pselect;p;; 1 je sélectionne mes objets 2 j'appuie sur le bouton 3 mon filtre (tous ce qui n'est pas bloc) est appliqué dans ma sélection. Je n'arrive pas à ce qu'autocad m'invite à faire la sélection APRES que j'ai appuyé sur le bouton : 1 j'appuie sur le bouton 2 je fais une sélection 3 mon filtre (tous ce qui n'est pas bloc) est appliqué dans ma sélection. Une âme charitable pourrait-elle me renseigner ??? Merci d'avance. [Edité le 4/11/2004 par LUDWIG]