ahbv

la "vraie" vie commence et trés bonne retraite profitez bien au plaisir de vous lire ( pour moi c'est dans -8 ans ) :( ahbv

salut X_all, je crois qu'il existe un lisp de Gile "ssDynBloc.lsp" SSD version 2.6 (gile) qui pouraait répondre à tes attentes cordialement AHbv

tu peux aussi changer les touches raccourcis dans le fichier acadxx.pgp, c, ;copie (cela fait gagner 1 clic pour la commande copie qui est plus souvent utiliser que cercle) cc, ; cercle d, ; deplacer etc...

j'ai essayé avec cette modification mais le soucis et qu'il efface toutes les hachures solides quelle que soit la valeur du code (wcmatch (vla-get-layer o) , donc a priori il ne filtre pas les layer ?? merci quand même pour ta réponse.

exact, j'ai spécifié un calque "*Model?Unit?-?Zone?Category" donc normalement le lisp devrait n'effacer que les hachures de type "solide" sur le calque "*Model?Unit?-?Zone?Category" non ?

j'ai mis la maj suivante: (defun c:KHATCH_BCK-LAYERS (/ b o) (vl-load-com) (vlax-for b (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object) ) ) ;(setq b(vla-item(vla-get-Blocks(vla-get-ActiveDocument(vlax-get-acad-object)))0)) (or (and (= (vla-get-IsLayout B) :vlax-true)(/= (vla-get-Name B)"*Model_Space")) (= (vla-get-IsXref B) :vlax-true) (vlax-for o b ;(setq o(vla-item b 3)) (if (and (wcmatch (vla-get-ObjectName o) "AcDb*Hatch") (= (vla-get-PatternName o) "SOLID") (not (vl-position (vla-get-layer o) '("Model?Unit?-?Zone?Category" "Model?Unit?-?Zone?Category_Pen_No__*"))) ) (vla-delete o) ) ) ) ) ) (c:KHATCH_BCK-LAYERS) (command "_regen") cependant cela efface toutes les hachures (alors que je ne veux effacer que celles qui sont sur la ligne "(not (vl-position (vla-get-layer o) '" ?? une idée

zut je me suis emporté trop vite, la modification efface toutes les hachures et non pas que celle s'appellant "Calque 1" "Calque 2" question: est ce que l'on peut mettre des caractére générique style "*truc?*" MILLES MERCI Patrick_35 :)

oups milles excuses pour la "bourde" merci mister "lecrabe"

Bonjour, je souhaiterais améliorer le Lisp "KHATCH_BLOCK-SOLID" à savoir qu'il efface toutes les hachures de type solide et sur des calques "définis" ,le Lisp fonctionne a merveille mais il efface toutes les hachures solides de tous les calques et je voudrais qu'il m'efface que ceux qui seraient dans une selection/défini, j'avais pensé a rajouter une ligne du style "vla-get-layer" après la ligne " (= (vla-get-PatternName o) "SOLID")" mais cela ne fonctionne pas (et c'est normal car je n'y connais pas grand chose,je tatonne mais sans grand résultat, je sais c'est un métier) donc si une âme charitable pouvait m'aider svp? merci d'avance. AHBV (defun c:KHATCH_BLOCK-SOLID (/ b o) (vl-load-com) (vlax-for b (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object) ) ) ;(setq b(vla-item(vla-get-Blocks(vla-get-ActiveDocument(vlax-get-acad-object)))0)) (or (and (= (vla-get-IsLayout B) :vlax-true)(/= (vla-get-Name B)"*Model_Space")) (= (vla-get-IsXref B) :vlax-true) (vlax-for o b ;(setq o(vla-item b 3)) (if (and(wcmatch (vla-get-ObjectName o) "AcDb*Hatch") (= (vla-get-PatternName o) "SOLID")) (vla-delete o) ) ) ) ) ) (c:KHATCH_BLOCK-SOLID) (command "regen")

encore merci pour ton aide, j'ai enlevé les guillemets mais ca ne fonctionne pas (je m'en doutais un peu) je vais potasser les liens mais malheureusement par manque de temps je vais devoir finir mon script à la main..

merci FRAID pour ta réponse, effectivement j'ai changé le lancement de la commande en tapant (c:count) et là j'ai bien la commande qui se lance par contre la sélection "(ssget "_W" (list 127000.0 190000.0)(list 70000.0 -120000.0))" n'est pas interprétée ?? (pour dire vrai je n'y connais pas grand chose en lisp, donc je cherche des exemples et j'essaye de les appliquer mais la plupart du temps ca "foire" donc je demande a des "experts" via cet excellent site mais peut-etre que la ligne de selection que je veux appliquer ne peut etre interpreter par Autocad (mep2015)??

Bonjour, je souhaite améliorer un script qui mélange des commandes autocad basic avec du lisp et j'aurais besoin d'aide/de vos lumières sur le problème suivant: sur la ligne de commande je colle/execute ceci: (command "_count" "(ssget "_W" (list 127000.0 190000.0)(list 70000.0 -120000.0))" "" "80000.0,-125000.0") ou "count" est un programme lisp déjà chargé dans autocad (permet de crée une table des éléments selectionné par "ssget "_w") j'ai le message suivant Command: COUNT Unknown command "COUNT". Press F1 for help." alors que si je tape count sur la ligne de commande j'ai ceci Command: COUNT Select blocks to count <all>: ---------------------- bien sur mon script s’arrête a cette ligne m’empêchant de poursuivre sur d'autres commandes. Quelqu'un aurait une idée la solution,svp ? D'avance merci. ANHG

je suppose aussi que tu as fais un regen

Salut, regarder aussi du coté des objets annotatifs ? (peux être) la commande msltscale a 0 ?

Bonjour a tous, est ce qu'il serait possible de compter aussi les polylignes dans les blocs normaux et blocs dynamiques (j'utilise souvent le lisp longt.lsp qui fonctionne a merveille mais losrque je dois metrer des polylignes dans des blocs (surtout dynamiques) il faut que je les explose et j'ai tres souvent des mauvaises surprises !!). merci d'avance (et bravo pour vos lisp)