Patrick_35

Salut Un site à retenir @+

Salut, Une routine pour exporter dans le répertoire de ton dessin tout les blocs qu'il contient. Il ne reste plus qu'a faire un script pour ouvrir tout les fichiers et lancer la routine (defun c:exp() (defun exporte() (setq c (strcat a (cdr (assoc 2 b)) ".dwg")) (if (findfile c) (command "_.wblock" c "_yes" "=") (command "_.wblock" c "=") ) ) (setq a (getvar "dwgprefix")) (setq b (tblnext "block" t)) (exporte) (while (setq b (tblnext "block")) (exporte) ) (princ) ) @+

Je suis comme Tramber, tout en gris (même dans windows). Le blanc est beaucoup trop agressif et fatigue la vue (à mon humble avis) @+

Pour charger un menu partiel en lisp (command "_.menuload" "MONMENU.mns") (menucmd "P10=+MON_MENU.Pop1") @+ [Edité le 5/11/2004 par Patrick_35]

Salut Dans Menugroup, supprime l'espace entre OUTILS et LUDWIG et ça devrait fonctionner normalement @+

Salut Fais un peu plus simple. Pour le bouton, la commande (ssget '((-4 . "NOT") (0 . "INSERT") (-4 . "NOT>"))) Maintenant, la procédure à suivre est la suivante 1) tu cliques sur ton bouton, et tu fais ta sélection (sauf les blocs bien sûre) ou encore ta sélection puis le bouton, c'est au choix 2) tu lances ta commande 3) Dans le choix des objets, tu fais p (précédent) et tu valides Tu as quand même plus simple avec la commande _filter ou la sélection rapide (_qselect) ps : ne pas oublier d'ajouter un "<" devant le premier not @+

Pour CDL Plutôt de faire FORMAT A : /s < oui.txt, tu peux passer par un pipe, c'est à dier echo o|format a:/s @+

http://www.click-smilies.de/sammlung0304/spezial/Fool/leb.gif 10000 INSCRITS, ça démontre la qualité du site et de ses intervenants http://www.click-smilies.de/sammlung0304/spezial/Fool/leb.gif CADXP, une véritable mine d'informations Faites une donation pour que vive Cadxp L'argent est comme un sixième sens et sans lui, on ne peut se servir des cinq autres. William Somerset Maugham, 1874-1965, écrivain anglais.

Salut Un extrait de l'aide d'autocad :mad: grrrr..., le "<" ne passe pas avec les opérandes, ne pas oublier de les ajouter @+ [Edité le 3/11/2004 par Patrick_35]

Et puisque c'est dans la semaine du grand nettoyage, pour effacer automatiquement le répertoire temporaire il suffit de créer ce bat à placer dans le démarrage de windows echo o|del c:\temp\*.* @+

C'est normal que ça ne marche pas. Le code -1 est le nom de l'entité, le 5 son identificateur et le 330 un pointeur. Par définition, ils sont uniques et c'est pour ça qu'on ne peut les recréer avec entmake @+

C'est génial, on quitte le site et les autres poursuivent le sujet qui n'est pas très évident. :thumbup: Pour Tramber, je crois comprendre en prenant ton exemple que tu fais une copie d'entité. Dans ce cas, dans la copie, il faut que tu vires le code dxf -1, 5 et 330 (fonction vl-remove list) et tu verras que l'entmake se fera sans problème @+ [Edité le 3/11/2004 par Patrick_35]

Salut, Il n'y a rien de plus simple que de copier le bloc avec un jeu de entmake et entnext Pour ce qui est de savoir si un bloc est utilisé dans un dessin, le seul moyen que je connais est par un (ssget "x" (list (cons 0 "INSERT") (cons 2 "NOM_BLOC"))) @+

Pour compléter la liste *.xlg *.bk* @+

Salut Tramber (setq a (tblsearch "block" "BLOC?")) ; définition du bloc (setq b (entget (cdr (assoc -2 a)))) ; 1ere entité qui compose le bloc (setq b (entget (entnext (cdr (assoc -1 b))))) ; entité qui suit dans le bloc, si plus rien entnext=nil @+

Salut Il n'y a malheusement pas de solution miracle Si tu veux que ta commande passe quelle que soit la langue, tu peux faire par exemple (command "_.pedit" objet "_w' "0.5" "") @+

Je pense savoir où ça se trouve, c’est sûrement dans les données étendues (xdata). Mais comment les nettoyer ? C’est la bonne question @+

Salut Tramber (setq a (list (cons 0 "block")(cons 2 "NOUVEAU_BLOC")(cons 70 64)(cons 10 '(400.0 150.0 0.0)))) ; définition du bloc (setq b (list (cons 0 "insert")(cons 100 "AcDbEntity")(cons 2 "BLOC1")(cons 10 '(400.0 160.0 0.0)))) ; insertion d'un bloc (setq c (list (cons 0 "insert")(cons 100 "AcDbEntity")(cons 2 "BLOC2")(cons 10 '(400.0 155.0 0.0)))) ; puis d'un autre (setq d '((0 . "endblk"))) ; fin du bloc ; création du bloc (entmake a) (entmake b) (entmake c) (entmake d) ; il ne reste plus qu'à l'insérer @+

Salut J'ai trouvé un viewport qui traine, donc un clique droit sur l'onglet de présentation, puis supprimer (c'est en faisant un (entget (ssname (ssget "x") 0)) qu'on le voit) Je continu à chercher... @+

Quand je récupère le texte, je ne sais pas ce qui est écrit dedans et d'après ta demande, tu indiquais un niveau de 358.62NGF et comme j'ai besoin d'une valeur numérique pour faire une soustraction, je dois virer le NGF afin de convertir le texte 358.62 en réel. Voilà pourquoi c’est là @+

Bonjour à vous deux Je suis bien d'accord avec toi didier, rien ne vaut les attributs, mais bon, on fait avec ce que l'on a ;) Pour ldidber Je viens de voir qu'il y avait un oubli dans le lisp. Je n'ai pas tenu compte des justifications Normalement, ton texte se positionne en dessous du texte d'origine. (setq nivbase (getreal "\nNiveau de référence : ")) (setq sel (ssget "x" (list (cons 0 "TEXT") (cons 8 "0")))) ; sélectionne les textes sur le calque 0, à modifier en fonction des besoins (setq n 0) (while (ssname sel n) (setq obj (entget (ssname sel n))) (setq txt (vl-string-subst "" "NGF" (cdr (assoc 1 obj)))) (setq val_txt (rtos (- (atof txt) nivbase) 2)) (if (and (/= (cadr (assoc 11 obj)) 0) (/= (caddr (assoc 11 obj)) 0)) (setq codedxf 11) (setq codedxf 10) ) (setq pos_y (- (caddr (assoc codedxf obj)) (* (cdr (assoc 40 obj)) 1.5))) (setq ent (vl-remove (assoc -1 obj) obj)) (setq ent (vl-remove (assoc 330 ent) ent )) (setq ent (vl-remove (assoc 5 ent) ent )) (setq ent (subst (cons codedxf (list (cadr (assoc codedxf ent)) pos_y (cadddr (assoc codedxf ent)))) (assoc codedxf ent) ent)) (setq ent (subst (cons 1 val_txt) (assoc 1 ent) ent)) (entmake ent) (setq n (1+ n)) ) ps : Tous les textes qui sont sélectionnés sont sur le calques 0 (code dxf 8) @+

Tout chaud, tout frais (setq nivbase (getreal "\nNiveau de référence : ")) (setq sel (ssget "x" (list (cons 0 "TEXT") (cons 8 "0")))) ; sélectionne les textes sur le calque 0, à modifier en fonction des besoins (setq n 0) (while (ssname sel n) (setq obj (entget (ssname sel n))) (setq txt (vl-string-subst "" "NGF" (cdr (assoc 1 obj)))) (setq val_txt (rtos (- (atof txt) nivbase) 2)) (setq pos_y (- (caddr (assoc 11 obj)) (* (cdr (assoc 40 obj)) 1.5))) (setq ent (vl-remove (assoc -1 obj) obj)) (setq ent (vl-remove (assoc 330 ent) ent )) (setq ent (vl-remove (assoc 5 ent) ent )) (setq ent (subst (cons 11 (list (cadr (assoc 11 ent)) pos_y (cadddr (assoc 11 ent)))) (assoc 11 ent) ent)) (setq ent (subst (cons 1 val_txt) (assoc 1 ent) ent)) (entmake ent) (setq n (1+ n)) ) @+

Salut C'est l'expérience qui rentre. ;) Ton niveau, tu le veux à la place de la cote NGF ou juste en dessous, au dessus, à sa droite ou encore à sa gauche ? :exclam: Encore une chose, tes niveaux, tu les sélectionnes un par un ou on automatise la sélection, dans ce cas, il faut quelque chose que distingue ton texte des autres (calque, style, hauteur et j'en passe) @+

Salut http://www.pdf995.com/ @+

Salut Tu fais la commande Rtext-->Diesel-->$(xrefs) @+