Big666

je n'est que ça.

ne rigoler pas! tous vas bientôt changer

bonjour pour ma part je me sert des filtres de groupe si il y a trop de calque. j’évite le fen ext je préféré fenêtre ext..(par exemple) je pense que je ne suis pas le seule qui va utilisée mon fichier. je bien un xls avec mes calques mais je ne doit pas le partager c'est idiot mais c'est comma ça.

certes ma méthode d'apprentissage est discutable. mais étant pour l'instant incapable de créé de toute pièce un lisp, je regarde ce qui existe, je l’arrange a ma sauce et je l'essaye . ci cela fonctionne du premier coup joie! Bonheur! Félicite . Sinon je fait Ctrl+F2 fenêtre de texte autocad et là j'essaye de résoudre le problème . en dernier recoure je vous demande de l'aide. pour ce lisp: il fonctionne très bien chez moi mais au bureau non! Le message est : Commande: qsp ; erreur: une erreur est survenue dans la fonction *erreur*type d'argument incorrect: stringp nil Pour les fautes je fait de mon mieux . merci pour votre aide ;;; SPURGE version 1.40 ;;; Purge tout, y compris les blocs imbriqués, les blocs vides, ;;; les xrefs et les images non référencées (vl-load-com) (defun c:QSP (/ AcDoc lay l_lst ss n obj name bloc ent r_lst x_lst p_lst c_lstm) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))) ;; Purge les xrefs et rasters non référencées ;;(c:xref_purge) ;;(c:raster_purge) ;; Dévérouillage de tous les calques (vlax-for c (vla-get-Layers AcDoc) (if (= :vlax-true (vla-get-lock c) ) (progn (vla-put-lock c :vlax-false) (setq l_lst (cons c l_lst)) ) ) ) ;; r_lst : liste des blocs et "sous-blocs" insérés ;; x_lst : liste des xrefs insérées (setq ss (ssget "_X" '((0 . "INSERT")))) (if ss (progn (repeat (setq n (sslength ss)) (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))) ) (if (vlax-property-available-p obj 'EffectiveName) (setq name (vla-get-EffectiveName obj)) (setq name (vla-get-Name obj)) ) (if (and (= 0 (vla-get-count (vla-item (vla-get-Blocks AcDoc) name)) ) (= :vlax-false (vla-get-isXref (vla-item (vla-get-Blocks AcDoc) name) ) ) ) (vla-delete obj) ;_ Suppression des blocs vides (if (= :vlax-true (vla-get-isXref (vla-item (vla-get-Blocks AcDoc) name) ) ) (if (not (member name x_lst)) (setq x_lst (cons name x_lst)) ) (if (not (member name r_lst)) (setq r_lst (cons name r_lst)) ) ) ) ) ;; Ajout des "sous-blocs" des blocs insérés à r_lst (setq n 0) (if r_lst (while (setq name (nth n r_lst)) (setq bloc (vla-item (vla-get-blocks acDoc) name)) (repeat (setq m (vla-get-count bloc)) (setq ent (vla-item bloc (setq m (1- m)))) (if (and (= (vla-get-ObjectName ent) "AcDbBlockReference") (not (member (vla-get-name ent) r_lst)) ) (setq r_lst (reverse (cons (vla-get-Name ent) (reverse r_lst))) ) ) ) (setq n (1+ n)) ) ) ) ) ;; c_lst liste des définitions de blocs de la collection (setq c_lst nil) (vlax-for b (vla-get-blocks AcDoc) (setq c_lst (cons (vla-get-name B) c_lst)) ) ;; p_lst : liste des blocs à purger, soit les blocs de la collection ... ;; ... moins les blocs "*Model_Space" "*Paper_Space*" et les blocs insérées (setq p_lst (vl-remove-if '(lambda (x) (or (= (substr x 1 1) "*") (member x r_lst) ) ) c_lst ) ) ;; ... moins les xrefs insérées et les blocs qu'elles contiennent (mapcar '(lambda (x) (setq p_lst (vl-remove-if '(lambda (y) (wcmatch y (strcat x "*")) ) p_lst ) ) ) x_lst ) ;; suppression de tous le blocs de p_lst (mapcar '(lambda (x) (vla-delete (vla-item (vla-get-Blocks AcDoc) x)) ) p_lst ) ;; Purge et audit du dessin (vla-PurgeAll AcDoc) (vla-AuditInfo AcDoc :vlax-true) ;; Restauration de l'état des calques (if l_lst (mapcar '(lambda (x) (vla-put-lock x :vlax-true) ) l_lst ) ) ;; control enregistre ferme etranmit (command "CONTROLE" "O" ) (command "-PURGER" "TO" "*" "N") (command "_qsave") (command "_-etransmit" "_c" (strcat (getvar "dwgprefix") (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 3) ) "ZIP" ) ) (princ) )

non La prophétie maya le dit bien, le 21/21/12012, plus aucun logiciel de dessin ne fonctionnera. Je ne sait pas quelle en seras les conséquences mais en vérité je vous le dit . Pour nous le monde vas disparaitre.

au secours

Bonjour ce lisp qui et la somme de lisp qui a été créé par d'autre, beaucoup plus qualifier que moi,fonctionne chez mois et pas au bureau. je rappelle qui je suis au stade bricoleur dans ce domaine, merci pour votre aide. ;;; SPURGE version 1.40 ;;; Purge tout, y compris les blocs imbriqués, les blocs vides, ;;; les xrefs et les images non référencées ;;; j'ai modifier le nom meci a l'auteur pour son travail (defun c:QSP (/ AcDoc lay l_lst ss n obj name bloc ent r_lst x_lst p_lst c_lst m) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))) ;; Purge les xrefs et rasters non référencées ;;(c:xref_purge) ;;(c:raster_purge) ;; Dévérouillage de tous les calques (vlax-for c (vla-get-Layers AcDoc) (if (= :vlax-true (vla-get-lock c) ) (progn (vla-put-lock c :vlax-false) (setq l_lst (cons c l_lst)) ) ) ) ;; r_lst : liste des blocs et "sous-blocs" insérés ;; x_lst : liste des xrefs insérées (setq ss (ssget "_X" '((0 . "INSERT")))) (if ss (progn (repeat (setq n (sslength ss)) (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))) ) (if (vlax-property-available-p obj 'EffectiveName) (setq name (vla-get-EffectiveName obj)) (setq name (vla-get-Name obj)) ) (if (and (= 0 (vla-get-count (vla-item (vla-get-Blocks AcDoc) name)) ) (= :vlax-false (vla-get-isXref (vla-item (vla-get-Blocks AcDoc) name) ) ) ) (vla-delete obj) ;_ Suppression des blocs vides (if (= :vlax-true (vla-get-isXref (vla-item (vla-get-Blocks AcDoc) name) ) ) (if (not (member name x_lst)) (setq x_lst (cons name x_lst)) ) (if (not (member name r_lst)) (setq r_lst (cons name r_lst)) ) ) ) ) ;; Ajout des "sous-blocs" des blocs insérés à r_lst (setq n 0) (if r_lst (while (setq name (nth n r_lst)) (setq bloc (vla-item (vla-get-blocks acDoc) name)) (repeat (setq m (vla-get-count bloc)) (setq ent (vla-item bloc (setq m (1- m)))) (if (and (= (vla-get-ObjectName ent) "AcDbBlockReference") (not (member (vla-get-name ent) r_lst)) ) (setq r_lst (reverse (cons (vla-get-Name ent) (reverse r_lst))) ) ) ) (setq n (1+ n)) ) ) ) ) ;; c_lst liste des définitions de blocs de la collection (setq c_lst nil) (vlax-for b (vla-get-blocks AcDoc) (setq c_lst (cons (vla-get-name B) c_lst)) ) ;; p_lst : liste des blocs à purger, soit les blocs de la collection ... ;; ... moins les blocs "*Model_Space" "*Paper_Space*" et les blocs insérées (setq p_lst (vl-remove-if '(lambda (x) (or (= (substr x 1 1) "*") (member x r_lst) ) ) c_lst ) ) ;; ... moins les xrefs insérées et les blocs qu'elles contiennent (mapcar '(lambda (x) (setq p_lst (vl-remove-if '(lambda (y) (wcmatch y (strcat x "*")) ) p_lst ) ) ) x_lst ) ;; suppression de tous le blocs de p_lst (mapcar '(lambda (x) (vla-delete (vla-item (vla-get-Blocks AcDoc) x)) ) p_lst ) ;; Purge et audit du dessin (vla-PurgeAll AcDoc) (vla-AuditInfo AcDoc :vlax-true) ;; Restauration de l'état des calques (if l_lst (mapcar '(lambda (x) (vla-put-lock x :vlax-true) ) l_lst ) ) (princ) ;; control enregistre ferme etranmit (command "CONTROLE" "O") (command "-PURGER" "TO" "*" "N") (command "_qsave") (command "_-etransmit" "_c" (strcat (getvar "dwgprefix") (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 3) ) "ZIP" ) ) (command "_close" "_n") (princ) )

merci pour vos réponse le copier colle a fonctionner je vais essayer les autre solution.

bonjour explication provenant de aide: Détermine l'utilisation d'un processeur supplémentaire pour améliorer la vitesse des opérations comme ZOOM qui redessinent ou régénèrent le dessin. WHIPTHREAD n'a aucun effet sur des ordinateurs à processeur unique. personnellement, je pensée que de mettre cette variable a 3 utilisée les 3 cœurs de mon processeurs. mais non c'est plus complexe que ça . ci une personne a la science exacte sur cette variable. a propos mon processeur a 4 cœur. merci

bonjour comment imprimer la liste des calques vers un fichier excel. j'ai bien sur essayer, -ouvrir le gestionnaire de calque -copier et -coller dans xls, mais le résulta n'est pas nickel . Merci de votre aide.

merci je vais bricolé ça.

bonjour toujours dans mon apprentissage du lisp,(jusqu'ici je modifie des lisps existant) je veut créé un lisp qui change la valeur des variables système. comme cela ne peut pas être aussi simple je vous demande votre aide. merci ;; réinitialisé la valeur de certaine variable (defun c:aaa () (setq mirrtext <0>) (setq menubar <1>) (princ)

bonjour je doit faire l'inventaire de fichier dwg, c'est fichier ce trouve sur un serveur; existe t'il un utilitaire pour lister ces fichier. bien sur recherche de Windows mais y a t'il mieux. merci

Explique

bonjour lorsque tu creé un style de texte annotative . tu coche annotatif, il est demander la hauteur du texte sur le papier, là il n'y a qu'un seul choix possible. donc pour ma part je pense que cela n'est pas possible.

merci mais cela est il réversible.

bonjour j'ai maintenant quelque lisp, peut on les compressés sous un format ? pour les regrouper. a la question pourquoi pour charger un seul fichier le cas ou je change de poste ou un formatage. merci

bravo je suis très impressionner par le résultat certain passage son hyper-réaliste .

nous allons être véctoriser

Sert arrivée a e transmit , il me demande des options enregistre le zip n'importe ou et ne ferme pas le dessin . donc il faut que je creuse encore . merci pour cette aide.

merci je ne peut pas modifier maintenant, mais si c'est ça GRRRR! le Temps que j'ai passée a GRRRRR

bonjour j'ai rajouter a ce lisp un e transmit ,le lisp s’exécute bien mais pas de e transmit. avant dans arrivée là j'ai batailler dure en recherchant dans d'autre lisp ,bon vous avez compris je ni connais pas grand chose . il doit manquer un petit truc pour le faire fonctionner en totalité merci de votre aide ;;; SPURGE version 1.40 ;;; Purge tout, y compris les blocs imbriqués, les blocs vides, ;;; les xrefs et les images non référencées (defun c:QSP (/ AcDoc lay l_lst ss n obj name bloc ent r_lst x_lst p_lst c_lst m ) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))) ;; Purge les xrefs et rasters non référencées ;;(c:xref_purge) ;;(c:raster_purge) ;; Dévérouillage de tous les calques (vlax-for c (vla-get-Layers AcDoc) (if (= :vlax-true (vla-get-lock c) ) (progn (vla-put-lock c :vlax-false) (setq l_lst (cons c l_lst)) ) ) ) ;; r_lst : liste des blocs et "sous-blocs" insérés ;; x_lst : liste des xrefs insérées (setq ss (ssget "_X" '((0 . "INSERT")))) (if ss (progn (repeat (setq n (sslength ss)) (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))) ) (if (vlax-property-available-p obj 'EffectiveName) (setq name (vla-get-EffectiveName obj)) (setq name (vla-get-Name obj)) ) (if (and (= 0 (vla-get-count (vla-item (vla-get-Blocks AcDoc) name)) ) (= :vlax-false (vla-get-isXref (vla-item (vla-get-Blocks AcDoc) name) ) ) ) (vla-delete obj) ;_ Suppression des blocs vides (if (= :vlax-true (vla-get-isXref (vla-item (vla-get-Blocks AcDoc) name) ) ) (if (not (member name x_lst)) (setq x_lst (cons name x_lst)) ) (if (not (member name r_lst)) (setq r_lst (cons name r_lst)) ) ) ) ) ;; Ajout des "sous-blocs" des blocs insérés à r_lst (setq n 0) (if r_lst (while (setq name (nth n r_lst)) (setq bloc (vla-item (vla-get-blocks acDoc) name)) (repeat (setq m (vla-get-count bloc)) (setq ent (vla-item bloc (setq m (1- m)))) (if (and (= (vla-get-ObjectName ent) "AcDbBlockReference") (not (member (vla-get-name ent) r_lst)) ) (setq r_lst (reverse (cons (vla-get-Name ent) (reverse r_lst))) ) ) ) (setq n (1+ n)) ) ) ) ) ;; c_lst liste des définitions de blocs de la collection (setq c_lst nil) (vlax-for b (vla-get-blocks AcDoc) (setq c_lst (cons (vla-get-name B) c_lst)) ) ;; p_lst : liste des blocs à purger, soit les blocs de la collection ... ;; ... moins les blocs "*Model_Space" "*Paper_Space*" et les blocs insérées (setq p_lst (vl-remove-if '(lambda (x) (or (= (substr x 1 1) "*") (member x r_lst) ) ) c_lst ) ) ;; ... moins les xrefs insérées et les blocs qu'elles contiennent (mapcar '(lambda (x) (setq p_lst (vl-remove-if '(lambda (y) (wcmatch y (strcat x "*")) ) p_lst ) ) ) x_lst ) ;; suppression de tous le blocs de p_lst (mapcar '(lambda (x) (vla-delete (vla-item (vla-get-Blocks AcDoc) x)) ) p_lst ) ;; Purge et audit du dessin (vla-PurgeAll AcDoc) (vla-AuditInfo AcDoc :vlax-true) ;; Restauration de l'état des calques (if l_lst (mapcar '(lambda (x) (vla-put-lock x :vlax-true) ) l_lst ) ) (princ) ;; control enregistre ferme (command "-MODIFLISTECHELLE" "R" "O" "Q") (command "CONTROLE" "O" ) (command "-PURGER" "TO" "*" "N") (command "_qsave") (command "_etranmit") (command "FERMER") (princ) )

bonjour je ne pense pas résoudre t'ont problème. Mais j’ai eu a peut prés le même problème , que j’ai résolu avec deux styles de côte. il est vrais que je côte métré -"un" mètre 1.00, pour les côtes inférieure au métré 99, je supprime le zéro de début . bon si cela peut te diriger sur une piste.

Je sais qu'il me regarde comme un extraterrestre , avec les petit programme que je trouve ici et la , que je modifie tant bien que mal, mais il sont bien contant quant je leurs installe sur leur poste.