Patrick_35

Salut Je trouve que le clavier est largement plus pratique que les menus pour la simple raison c'est que je n'ai pas besoin de chercher où se trouve cette fichue commande, surtout quand on change de version d'autocad, il suffit de taper le raccourci de la commande. @+

Salut Juste une précision, ton prog ne travail peut être pas en 32 bits, alors comme c'est du dos, fais attention aux noms (pas plus de 8 caractères) du style c:\progra~1\.... et pas plus de 127 caractères en tout (j'ai un doute, c'est 127 ou 143, je ne sais plus) @+

Salut Un petit lisp vite fait (setq a (ssget)) (setq n 0 d (list)) (while (ssname a n) (setq b (entget (ssname a n))) (if (= n 0) (progn (setq c (vl-remove (assoc -1 b) b)) (setq c (vl-remove (assoc 330 c) c)) (setq c (vl-remove (assoc 5 c) c)) ) (progn (setq c (vl-remove-if-not '(lambda (x) (= (car x) 10)) b)) (setq c (append c (vl-remove-if-not '(lambda (x) (= (car x) 11)) b))) ) ) (setq d (append d c)) (setq n (1+ n)) ) (if (entmake d) (progn (setq n 0) (while (ssname a n) (entdel (ssname a n)) (setq n (1+ n)) ) ) ) (princ) @+

Cococlem, il me semble t'avoir donné la solution Tu quittes Autocad, tu fais la modif dans les registres et tu relances autocad Il faut savoir que dès que l'on quitte Autocad, il écrit de lui-même ses propres valeurs dans les registres, donc si tu as autocad de lancé, que tu modifies dans les registres, ensuite que tu quittes et que tu relances, c'est comme si tu n'avais rien fait @+

Un extrait du fichier acad2000doc.lsp, pour la version 2004 acad2004doc.lsp ? (dans le répertoire support) ;;;===== AutoArxLoad Arx Applications ===== (autoarxload "geomcal" '("cal" "cal")) (autoarxload "geom3d" '("mirror3d" "rotate3d" "align" "mirror3d" "rotate3d" "align")) C'est le chargement automatique @+

Salut La commande Cal vient du programme Geomcal.arx Verifie qu'il n'a pas été déplace ou effacé @+

ah Didier, J'aurai été surpris que tu ne viennes de ta petite contribution quand il s'agit de toucher aux registres. Il n'est pas toujours nécessaire de rebooter quand une modification est faite. Tout dépend à quel niveau tu la fais Amicalement

Salut, Le dir est juste pour l'exemple. C'est un vieux truc de dinosaure qui revient à faire un shell dans autocad et de lancer la commande dos souhaitée Dans ton cas un (command "sh" "Atbash2.exe /d fichier.dfg fichier.dwg password") devrait fonctionner (avec un chemin complet s'il n'est pas défini dans le path pour le fichier.dfg) Et encore une chose, fait directement sur la ligne de commande sh+2 fois entrée, juste pour voir @+

Salut As tu essayé avec la commande sh ? ex : (command "sh" "dir *.* > resultat.txt") @+

Génial, je ne connaissais pas ce truc qu'avec des opérateurs and Et comme on est dans les améliorations, plutôt que de passer par la commande _insert et ensuite de changer l'objet de calque, type de ligne et j'en passe, autant faire un entmake (entmake (list '(0 . "INSERT") '(100 . "AcDbBlockReference") '(2 . "TOTO") (assoc 10 ent) (assoc 8 ent))) @+

Bonjour Serge Pour te répondre à ton livre pour du lisp, je pense que ça pourrait intéresser beaucoup de monde, malgré ce site très explicite en autolisp, mais il doit manquer une ou deux fonctions et surtout, il n'y a rien concernant le visual lisp Le souci pour faire de la prog sur autocad, c'est en général du volontariat au sein d'une société et en dehors des heures de travail. De plus, ce n'est pas ce qu'on demande à un employé, il a été embauché pour d'autres compétences. Il existe sur le marché des professionnels qui savent faire, et on leur fait plus facilement confiance. Alors, de là à demander à son patron à acheter tel ou tel livre pour mieux se perfectionner en lisp. C’est seulement des passionnés qui achèteront ces livres et qui programmeront le soir chez eux pour se perfectionner (il faut être célibataire), les autres, même s’ils souhaitent faire de même ne vont pas investir dans un livre qu’ils ouvriront une fois ou deux dans l’année et encore, que pour répondre à une question précise. Il est plus facile de faire appel à un forum. Donc pour résumer, si tu fais un bouquin sur le lisp et le visual lisp, ça intéressera beaucoup de monde, mais pour l’acheter, c’est une autre histoire. La solution serait de le faire en ligne et de se faire rémunérer par ce biais, surtout que je connais pour l’instant aucun manuel en français sur le visual lisp. Il y a bien les pdfs fournit avec autocad, mais bon, c’est en anglais et je pense ne pas être le seul à avoir un peu de mal avec @+

Suite...

Salut Il faut quitter et relancer Autocad pour prendre en compte la modification des valeurs dans les registres Juste une chose, il faut faire très attention à ce que l'on manipule, tu peux faire exploser ta config, donc avant toute modif, faire une sauvegarde @+

hummm, on dirait que le site est plus subtile qu'il en parait @+

Salut, Je pense que la solution est là @+

Salut Didier C n’est en aucun cas une critique, juste une précision pour notre ami Bucheron qui apprend le lisp et pour le faire progresser. Il faut d’abord faire ses lisps avec des conditions pour comprendre comment ça marche, puis passer à l’étape suivante avec les filtres @+

Salut, je vais te simplifier un peu ton prog si tu le permets, ça te permettras de voir un peu autrement la condition if (defun C:cbbloc (/ NomBloc Nombre b a) ; PROGRAMME: CBBLOC.LSP ; EDITER PAR F.CARRE LE 01/06/94 ; Compter le nombre d'occurrences d'un bloc. En modifiant quelque ; peu ce programme, il pourra compter n'importe quelle autre entité. (setq NomBloc (getstring "\nEntrez le nom du bloc: ")) (setq a (ssget "x" (list (cons 2 NomBloc)))) (if a (princ (strcat "\nCe bloc est inseré " (itoa (sslength a)) " fois dans ce dessin.")) (princ "\nCe bloc ne figure pas dans la base de données.") ) (princ) ) @+

Bonjour, juste une précision, plutôt que de sélectionner tous les cercles et ensuite de faire un test sur le rayon d'un cercle, on peut aussi faire un filtre un peu plus élaboré avec les fonctions and, or, xor et not Par exemple (setq jeu (ssget "_x" '((-4 . "AND") (0 . "CIRCLE") (40 . 0.1) (-4 . "AND>")))) Je choisis que des cercles avec un rayon de 0.1 @+ Ps : Ajouter un "<" devant le premier AND , c'est à cause du message qui ne s'affiche pas complètement si on le laisse dedans. [Edité le 22/10/2004 par Patrick_35]

Salut, Tu as bien la fonction gc, mais je n'ai jamais réellement compris à quoi elle servait @+

C'est vrai qu'ils sont bien, mais un peu figés. Un seul s'anime @+

Bonjour, Je rejoins Didier et c'est juste pour ajouter qu’il en est de même pour les erreurs fatales à répétition, ne cherchez pas le crack... @+

Salut Ce qui est bien en se mettant au lisp, c’est que ça permet d’approfondir ses connaissances sur autocad, de fouiller là où jamais on n’aurait mis le nez auparavant. Comme le souligne Didier, commence par un besoin précis (comme incrémenter un texte par exemple) et n’hésite pas à poser des questions, même si elles te paraissent bêtes (les questions ne le sont jamais, seules des réponses peuvent l’être) et plusieurs personnes sur le site se feront un plaisir de t’aider @+

Salut Fais un menu partiel que tu pourras charger avec la commande _menuload @+

Salut Tu devrais trouver ton bohneur sur ce fil de discution @+

Salut Si tu veux plus d'info sur Trace elec pro @+