LUDWIG

J'ai ajouté un (command "regen") car les changements n'apparaissaient pas. Mais je suis confronté à un petit problème avec ce code : les changements ne sont pas enregistrés ! Je m'explique : j'ai un fichier archi contenant divers textes, je lance le lisp (que j'ai nommé "txt"), tous es textes changent et apparaissent avec la police txt. Je vais faire un tour dans les styles de texte, la police txt est bien notée à tous les styles. J'enregistre, je ferme, j'ouvre à nouveau : les textes ont leur police d'origine, et les polices de chaque styles sont celles d'origine... Je fais la manipulation sans le lisp, j'enregistre et je réouvre : les changements sont enregistrés... Ou est-ce que je me plante ?? Conig : autocad 2010

J'ai ajouté le report d'un petit bug http://www.cadxp.com/XForum+viewthread-fid-114-tid-18505-page-3.html

J'ai un petit bug avec la version qui m'a été transmise (http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=24012#pid103372), quand l'option de mettre les entités des blocs sur le calque 0, TOUTES les entités vont sur le calque 0, pas que celles dans les blocs (il y a une histoire du style l'espace objet est un bloc qu'il faut exclure, je crois)

encore mieux !

idem sur 2010 quelques autres essais, calculs justes. 713-655 faux 712 - 655 fzux etc

[surligneur] Génial ![/surligneur] Merci (gile) J'ai supprimé (vla-delete spl) car je garde l'axe Je vais me faire un bouton sur firefox pour coller automatiquement le texte "merci (gile)" !

Bonjour, Sauriez-vous s'il existe un moyen simple et rapide pour créer des splines parallèles. En gros, un compromis entre la spline et la multiligne,pour représenter des gaines souples. Actuellement, je trace une spline (axe de la gaine) que je décale de part et d'autre du rayon de ma gaine. Merci d'avance pour vos contributions !

J'avais lu une astuce (mais c'était pour l'impression jpg) qui consistait à créer une taille de papier personnalisé 10 fois plus grand

je ne sais pas si ça peut vous servir : http://www.autocad2010.fr/mike_astuces.html?t=4#cal

A part redessiner les contours avec une polyligne fermée en cliquant les extrémités des lignes, puis relancer la commande hachure, je ne vois pas... [Edité le 4/6/2009 par LUDWIG]

J'insiste quand même sur le conseil d'utiliser le programme de sechanbask... Je pense que supmt va supprimer le formatage forcé des textes mêmes dans les blocs, à tester. Ensuite, change la police de chaque style de texte. J'avais un lisp qui changeait les entités dans les blocs de la couleur "ducalque" à une couleur forcée suivant la couleur du calque d'origine, puis les plaçait sur le calque 0. Il "suffirait" de le modifier un peu (ne pas traiter que dans les blocs, et pas le code dxf de la couleur mais celui du type de ligne). Mais là ça fait trop longtemps que je ne fais plus de lisp pour pouvoir t'aider (defun c:nb2 () (setq echoold (getvar "cmdecho")) (setvar "cmdecho" 0) ;(command "-calque" "a" "e" "Normalise" "" "" "") (COMMAND "-calque" "L" "*" "AC" "*" "D" "*" "") (COMMAND "-calque" "E" "0" "") ;Normalisation des blocs dans la table des blocs (if (/= nil (setq i (tblnext "block" t)))(progn ; RECHERCHE LA PREMIERE ENTREE DANS LA TABLE DES BLOCS (setq tot 1) (while i (setq n (cdr (assoc -2 i))) ; SELECTIONNE LA PREMIERE ENTITE QUI COMPOSE LE BLOC (while n (setq n (entget n)) (setq colorigin (cdr (assoc 62 n))) (if (or (= nil colorigin)(= 256 colorigin)(= "BYLAYER" colorigin))(setq colorigin (cdr(assoc 62 (tblsearch "layer" (cdr (assoc 8 n))))))) (if (> 0 colorigin)(setq colorigin (- 0 colorigin))) ;Récupère la couleur de l'entité d'origine (ou de son calque si la couleur est "bylayer") ; RECUPERE LES VALEURS DES ENTITES QUI COMPOSE LE BLOC (if (/= (cdr (assoc 8 n)) "0") (progn (setq n (subst (cons 8 "0") (assoc 8 n) n)) ;SI L'ENTITE N'EST PAS SUR 0, LA DEPLACE SUR 0 (entmod n) ) ;_ Fin de progn ) ;_ Fin de if (if (not (assoc 62 n)) ;SI L'ENTITE N'A PAS LE CODE DXF 62 (=DuCalque), LE CREE ET LUI AFFECTE LA VALEUR de son calque d'origine (setq n (append n (list (cons 62 colorigin))))) ;CHANGE LA COULEUR EN COULEUR D4ORIGINE (setq n (subst (cons 62 colorigin) (assoc 62 n) n)) (entmod n) (setq n (entnext (cdr (assoc -1 n)))) ;ENTITE SUIVANTE ) ;_ Fin de while (setq i (tblnext "block") tot (1+ tot) ) ;BLOC SUIVANT ) ;_ Fin de while ;Normalisation des étiquettes d'attributs de blocs dans le dessin (car une étiquette peut avoir des valeurs de calque, couleur, etc. différentes de l'attribut) (setq sel (ssget "x" (list (cons 0 "INSERT")))) (setq j 0) (setq nat 0) (while (ssname sel j) (setq n (entget (ssname sel j))) (if (assoc 66 n) (progn (setq i (entget (entnext (cdr (assoc -1 n))))) (while (/= (cdr (assoc 0 i)) "SEQEND") (setq i (subst (cons 8 "0") (assoc 8 i) i)) ; mettre l'attribut sur le calque 0 (if (not (assoc 62 i))(setq i (append i (list (cons 62 0))))) (if (/= (cdr (assoc 62 i)) 0)(setq i (subst (cons 62 0) (assoc 62 i) i))) ; mettre l'attribut en couleur dubloc (entmod i) ; modifier l'entité (entupd (cdr (assoc -1 i))) ; mettre à jour sur l'écran l'entité (setq nat (+ 1 nat)) (setq i (entget (entnext (cdr (assoc -1 i))))) ) ;_ Fin de while ) ;_ Fin de progn ) ;_ Fin de if (setq j (1+ j)) ) ;_ Fin de while ;Résultat ;----------------------------------------------- (princ (strcat "\nTraitement de " (itoa (+ tot nat)) " bloc(s) (" (itoa tot) " dans la table des blocs et " (itoa nat) " étiquette(s) d'attribut(s) de bloc(s) dans le dessin)" ) ;_ Fin de strcat ) ;_ Fin de princ ;(command "-calque" "a" "s" "Normalise" "" "") (command "regen") (setvar "cmdecho" echoold) (graphscr) (princ) ) ) )

Ben ça dépend... ça dépend du pdf (vectorisé ou pas), de la taille du pdf, et de ta configuration.

Ok, c'est testé ! Je n'avais pas compris que les côtes étaient DANS le bloc, je croyais qu'elle cotaient le bloc. Mais ou as tu trouver ça ?

Je n'ai pas réussi à faire pareil...

Je crois que sur 2007 par défaut, l'espace de travail est "MODELISATION 3D". Il faut que tu la change pour "AUTOCAD CLASSIQUE" ou "AUTOCAD 2D".

Merci Lili2006 J'ai donc bien pu tester le programme. Terrible ! Je l'essayerais au boulot.

Le lien de la bibliothèque me téléchargeait un zip mais celui était annoncé corrompu par windows. Ton lien me télécharge une page html qui dit : Warning: filesize() [function.filesize]: Stat failed for modules/UpDownload/store_folder/AutoCAD/VBA/Nettoyeur_v1.0.zip (errno=2 - No such file or directory) in /homez.70/cadxp/www/modules/UpDownload/dl-util.php on line 350 Warning: Cannot modify header information - headers already sent by (output started at /homez.70/cadxp/www/modules/UpDownload/dl-util.php:350) in /homez.70/cadxp/www/modules/UpDownload/dl-util.php on line 350 Warning: filesize() [function.filesize]: Stat failed for modules/UpDownload/store_folder/AutoCAD/VBA/Nettoyeur_v1.0.zip (errno=2 - No such file or directory) in /homez.70/cadxp/www/modules/UpDownload/dl-util.php on line 351 Warning: Cannot modify header information - headers already sent by (output started at /homez.70/cadxp/www/modules/UpDownload/dl-util.php:350) in /homez.70/cadxp/www/modules/UpDownload/dl-util.php on line 351 Warning: Cannot modify header information - headers already sent by (output started at /homez.70/cadxp/www/modules/UpDownload/dl-util.php:350) in /homez.70/cadxp/www/modules/UpDownload/dl-util.php on line 352 Warning: readfile(modules/UpDownload/store_folder/AutoCAD/VBA/Nettoyeur_v1.0.zip) [function.readfile]: failed to open stream: No such file or directory in /homez.70/cadxp/www/modules/UpDownload/dl-util.php on line 354 Configuration : windows XP familial, firefox 3.0.10

Ca ressemble à un bug plus qu'à une mauvaise utilisation. Si ça peut te rassurer ... As tu installer des "service pack" ? Essayes de "réinitialiser" le bloc issu de la palette (clic droit).

Très simplement avec la commande déplacer : de 0,0,0 à 0,0,-4 (si tes unités sont des centimètres)

Regardes ce post récent, il donne un lien vers le programme de Sechanbask : http://www.cadxp.com/sujetXForum-24012.htm Sinon, mes lisps (enfin, ma biblio plutôt, la plupart ne sont pas les miens) ;NORMALISER BLOCS ;Place les entités constituant chaque blocs sur le calque 0 en couleur DuBloc (defun c:nb (/ i n tot) (setq echoold (getvar "cmdecho")) (setvar "cmdecho" 0) ;(command "-calque" "a" "e" "Normalise" "" "" "") (COMMAND "-calque" "L" "*" "AC" "*" "D" "*" "") (COMMAND "-calque" "E" "0" "") ;Normalisation des blocs dans la table des blocs (if (/= nil (setq i (tblnext "block" t)))(progn ; RECHERCHE LA PREMIERE ENTREE DANS LA TABLE DES BLOCS (setq tot 1) (while i (setq n (cdr (assoc -2 i))) ; SELECTIONNE LA PREMIERE ENTITE QUI COMPOSE LE BLOC (while n (setq n (entget n)) ; RECUPERE LES VALEURS DES ENTITES QUI COMPOSE LE BLOC (if (/= (cdr (assoc 8 n)) "0") (progn (setq n (subst (cons 8 "0") (assoc 8 n) n)) ;SI L'ENTITE N'EST PAS SUR 0, LA DEPLACE SUR 0 (entmod n) ) ;_ Fin de progn ) ;_ Fin de if (if (not (assoc 62 n)) ;SI L'ENTITE N'A PAS LE CODE DXF 62 (=DuCalque), LE CREE ET LUI AFFECTE LA VALEUR 0 (=DuBloc) (setq n (append n (list (cons 62 0))))) (if (/= (cdr (assoc 62 n)) 0) ;SI L'ENTITE N'EST PAS DE COULEUR 0, LA CHANGE EN 0 (=DuBloc) (setq n (subst (cons 62 0) (assoc 62 n) n)) ) ;_ Fin de if (entmod n) (setq n (entnext (cdr (assoc -1 n)))) ;ENTITE SUIVANTE ) ;_ Fin de while (setq i (tblnext "block") tot (1+ tot) ) ;BLOC SUIVANT ) ;_ Fin de while ;Normalisation des étiquettes d'attributs de blocs dans le dessin (car une étiquette peut avoir des valeurs de calque, couleur, etc. différentes de l'attribut) (setq sel (ssget "x" (list (cons 0 "INSERT")))) (setq j 0) (setq nat 0) (while (ssname sel j) (setq n (entget (ssname sel j))) (if (assoc 66 n) (progn (setq i (entget (entnext (cdr (assoc -1 n))))) (while (/= (cdr (assoc 0 i)) "SEQEND") (setq i (subst (cons 8 "0") (assoc 8 i) i)) ; mettre l'attribut sur le calque 0 (if (not (assoc 62 i))(setq i (append i (list (cons 62 0))))) (if (/= (cdr (assoc 62 i)) 0)(setq i (subst (cons 62 0) (assoc 62 i) i))) ; mettre l'attribut en couleur dubloc (entmod i) ; modifier l'entité (entupd (cdr (assoc -1 i))) ; mettre à jour sur l'écran l'entité (setq nat (+ 1 nat)) (setq i (entget (entnext (cdr (assoc -1 i))))) ) ;_ Fin de while ) ;_ Fin de progn ) ;_ Fin de if (setq j (1+ j)) ) ;_ Fin de while ;Résultat ;----------------------------------------------- (princ (strcat "\nTraitement de " (itoa (+ tot nat)) " bloc(s) (" (itoa tot) " dans la table des blocs et " (itoa nat) " étiquette(s) d'attribut(s) de bloc(s) dans le dessin)" ) ;_ Fin de strcat ) ;_ Fin de princ ;(command "-calque" "a" "s" "Normalise" "" "") (command "regen") (setvar "cmdecho" echoold) (graphscr) (princ) ) ) );_ Fin de defun (prompt "\nnb : Normaliser les blocs du dessin (calque 0 - Couleur Dubloc)" ) ;_ Fin de prompt ; supprime le formatage forcé des mtext (defun c:supmt (/ ss n txt e_lst str start end lst) ;;;(while (not (setq ss (ssget '((0 . "MTEXT")))))) (if (setq ss (ssget "_X" '((0 . "MTEXT"))))(progn (repeat (setq n (sslength ss)) (setq txt (ssname ss (setq n (1- n))) e_lst (entget txt) str (apply 'strcat (mapcar 'cdr (append (vl-remove-if-not '(lambda (x) (= (car x) 3)) e_lst) (list (assoc 1 e_lst)) ) ) ) ) (while (setq start (vl-string-search "{\\" str)) (setq str (vl-string-subst "" "{" (vl-string-subst "" "}" str start) start ) ) ) (setq start 0) (while (setq start (vl-string-search "\\" str start)) (cond ((= "\\P" (substr str (1+ start) 2)) (setq start (1+ start) end (1+ start) ) ) ((= "\\L" (substr str (1+ start) 2)) (setq end (+ (vl-string-search "L" str start) 2)) ) ((= "\\l" (substr str (1+ start) 2)) (setq end (+ (vl-string-search "l" str start) 2)) ) (T (setq end (+ (vl-string-search ";" str start) 2))) ) (setq str (vl-string-subst "" (substr str (1+ start) (- end start 1)) str ) ) ) (setq lst nil) (if (< 250 (strlen str)) (progn (while (< 249 (strlen str)) (setq lst (cons (cons 3 (substr str 1 250)) lst) str (substr str 251) ) ) (setq lst (reverse (cons (cons 1 str) lst))) ) (setq lst (cons (cons 1 str) lst)) ) (setq e_lst (append (vl-remove-if '(lambda (x) (or (= (car x) 3) (= (car x) 1))) e_lst ) lst ) ) (entmod e_lst) ) (princ) ) )) ;Supprimer les hachures (même dans les blocs) (defun c:suph () (vl-load-com) (setq a (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))) (vlax-for bl a (vlax-for ent bl (if (= (vla-get-objectname ent) "AcDbHatch") (vla-delete ent) ) ) ) (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acActiveViewport) )

Merci Lili. C'est la dernière version ? Pourquoi Windows m'annonçait une archive corrompu ??

Tout simplement,Draworder est la commande pour l'ordre d'affichage, avec les options Dessus, Dessous, devant l'objet, Derrière l'objet

Pour l'édition dans le dessin de blocs dynamiques, autocad avertit et propose de créer une nouvelle occurence non dynamique du bloc. Pour AcDbBlockRepETag , j'ai trouvé un lien via Google, mais faut traduite, je ne suis pas sûr que la soultion y soit... http://forums.augi.com/showthread.php?t=47619

pas ce soucis sur 2010, mais il me semble qu'avant c'était pas possible. Je n'ai pas retrouvé le message du forum de l'époque qui parlait de ce sujet. Tu as bien essayé "draworder > D" ?

Le bloc n'est-il pas dynamique ?