Lespounse

c'est effectivement pour l'espace objet, mais j'ai essayé de la faire fonctionner dans l'espace papier et sans résultat ! peut être que je ne fais pas la bonne manip ? je colle le code dans la barre de commande, c'est bien ça ?

Bonjour, je voudrais savoir si quelqu'un aurait une astuce pour créer un nouveau calque dans un dessin qui serait directement gelé dans toutes les fenêtres de plusieurs présentations sauf une ! ma demande peut paraître idiote mais je retouche souvent des fichiers qui contiennent déjà beaucoup de présentations et je dois systématiquement geler dans chaque fenêtre (de chaque présentation sauf une ou deux) un calque que j'aurai rajouté merci d'avance à qui voudra se pencher sur cette petite épine !

Merci de te pencher sur mon problème Bonuscad, mais je n'arrive pas à faire fonctionner ce lisp ... j'ai aussi essayé de coller directement la ligne de codes dans la barre de commande mais rien n'y fait ! peut-être que tu as une astuce ?

pour ce qui est du programmeur débutant, je suis ton homme ! je n'ai jamais créé de lisp mais j'essaye d'en bidouiller ... Sais tu a qui je peux poser ma dernière question pour accrocher une ligne à des textmult sélectionnés ? j'en ai vraiment besoin et ça fait des heures que je bricole sans arriver à rien ! merci

:D tu me rassure ! dis donc, toi qui semble être relativement gradé (avec ta super ceinture rouge) tu ne pourrai pas m'éclairer des fois ? ;)

j'ai dit ou fait quelque chose qu'il ne fallait pas ? qu'est-ce qu'il y a à modérer ? et puis le lisp que j'ai proposé au départ liait déjà une ligne à un textmult alors je pensais qu'une simple petite épuration de celui-ci suffirait (quand à m'y mettre je promet que je suis en train de faire le nécessaire mais ça reste quand même compliqué pour quelqu'un qui a découvert le lisp il y a peu !) je continue en tout cas à espérer que quelqu'un pourra m'aider ... :exclam:

tant pis, en tout cas merci pour tout ce que tu as déjà fait et excellente continuation à toi

alors pour finir j'aurai besoin d'un lisp qui me permettrait d'associer une ligne (disons d'une longueur définissable lors de l'exécution du lisp) au point d'insertion d'une multitude de textmult qui auraient été sélectionnés au préalable (ou lors de l'exécution du lisp). Le but est en fait d'associer une ligne à des centaines de textmult d'un coup ! merci à l'importance que tu accorde à mon problème ...

Bonjour, j'ai besoin d'un lisp qui me permettrait d'associer une ligne (disons d'une longueur définissable lors de l'exécution du lisp) au point d'insertion d'une multitude de textmult qui auraient été sélectionnés au préalable (ou lors de l'exécution du lisp). [surligneur]Le but est en fait d'associer une ligne à des centaines de textmult d'un coup ![/surligneur] merci

C'est presque ça ! serait il possible d'associer une ligne à chaque textmult qui relierait par exemple le centre de la hachure au centre du texte ? et histoire de chipoter, ce serait possible de faire passer le type de surface avant la valeur ? là, ce serait vraiment génial ! et merci encore Gile !

Super, tu as fait vite ! j'ai essayé ton lisp et il m'affiche le nombre de surfaces sélectionnées et l'aire cumulée. en fait le but n'est pas de calculer mais de faire apparaitre la surface de chaque hachure, à la manière du lisp de mon premier message qui fonctionne trés bien, mais seulement pour les polylignes. [Edité le 11/6/2009 par Lespounse]

Bonjour, J'utilise actuellement un lisp pour afficher les surfaces des polylignes de mes dessins et j'aimerais le faire fonctionner sur des hachures ... si quelqu'un peut m'aider ? voici la bête (c'est un lisp que j'ai récupèré sur ce site et que j'ai légèrement modifié): ;; Texte centré sur le centre de gravité et ligne de rappel jusqu'au premier sommet ;; Champs dynamiques (defun c:surprise (/ ad sp ts lp pl sl dl pa sa da ht ip tx) (vl-load-com) (setq ad (vla-get-ActiveDocument (vlax-get-acad-object)) sp (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace ad) (vla-get-ModelSpace ad) ) ts (getvar "TEXTSIZE") lp (getvar "LUPREC") sa (getstring T "\nPrécisez le type de surface ou < Aucun >: " ) da (getint (strcat "\nEntrez le nombre de décimales pour les surfaces <" (itoa lp) ">: " ) ) ) (if (setq ht (getdist (strcat "\nSpécifiez la hauteur de texte <" (rtos ts) ">: ") ) ) (setvar "TEXTSIZE" ht) (setq ht ts) ) (foreach d '(dl da) (or (eval d) (set d lp))) (vla-StartUndoMark ad) (if (ssget '((0 . "LWPOLYLINE"))) (vlax-for o (vla-get-ActiveSelectionSet ad) (setq rg (vlax-invoke sp 'addRegion (list o)) ip (trans (vlax-get (car rg) 'Centroid) 1 0) id (itoa (vla-get-ObjectID o)) ) (vla-addLine sp (vlax-3d-point ip) (vlax-3d-point (vlax-curve-getStartPoint o)) ) (setq tx (vla-addMText sp (vlax-3d-point '(0 0 0)) ht (strcat "%<\\AcObjProp.16.2 Object(%<\\_ObjId " id ">%).Area \\f \"%lu2%pr" (itoa da) (if (= pa sa "") "" (strcat "%ps[ \ , \m² \n " sa "]") ) "\">%" ) ) ) (vla-put-Width tx 0.0) (vla-put-BackgroundFill tx :vlax-true) (vla-put-AttachmentPoint tx acAttachmentPointMiddleCenter) (vla-Move tx (vla-get-InsertionPoint tx) (vlax-3d-point ip)) (mapcar 'vla-delete rg) ) ) (vla-EndUndoMark ad) (princ) ) [Édité par (gile) : formatage et ajout des balises bbcodes]