yalta

C'est plus que parfait, c'est EXCELLENT .... ;) :) :D MERCI Gile. ....j'ai une suggestion polyvalente. ...et ta réponse va au delà de mon souhait ;) ....encore merci, Yalta

Bonjour, Je viens de retrouver ce lisp sur le site.... ;;;--------------------------------------------------------------------; ;;; PNT2BLK.LSP ;;; July 2001 ;;;--------------------------------------------------------------------; ;;; DESCRIPTION ;;;Insère un BLOC sur les coordonnées des Points sélectionnés dans le calque courant ... ;;;--------------------------------------------------------------------; ;;;********************************************************************* ;;; Function: CNT2BLK ;;; function to convert point objects to blocks. ;;; block must be defined in the current drawing ;;; blocks including attdefs will not address the attributes ;;; if the block references attdefs with default or constant values, ;;; these will be populated. ;;;********************************************************************* (defun c:pnt2blk( / ss ct len e eb bname pt attreqhold echohold) ;;;get command echo setting and store it (setq echohold (getvar "CMDECHO")) ;;;set command echo off (setvar "CMDECHO" 0) ;;;get attribute request setting and store it (setq attreqhold (getvar "ATTREQ")) ;;;set attribute request off (setvar "ATTREQ" 0) ;;;get name of block to insert (setq bname (getstring "\nBlock name: ")) ;;;check that the block is defined in the current drawing (if (tblsearch "block" bname) (progn ;;;prompt for point selection (princ "\nSelect point objects:") (setq ss (ssget)) ;;;filter selection to only point objects (if ss (ssget "p" (list (cons 0 "POINT")))) ;;;if point objects were selected (if ss (progn ;;;walk through point objects (setq len (sslength ss)) (setq ct 0) (while (< ct len) ;;;for each point (setq e (ssname ss ct)) (setq ct (+ ct 1)) (setq eb (entget e)) ;;;get insert point (setq pt (cdr (assoc 10 eb))) ;;;insert block (command "_insert" bname pt "" "" "") ) ) (princ "\nNo point objects selected.") ) ) (princ "\nInvalid, block not defined in drawing.") ) ;;;restore command echo setting to stored value (setvar "CMDECHO" echohold) ;;;restore attribute request setting to stored value (setvar "ATTREQ" 0) (princ) ) ...et dans la mesure où son auteur et propriétaire n'y voit aucun inconvénient,.... ;) ..serait-ce possible de faire une sélection du bloc plutôt que d'avoir à taper son nom..?? (Le bloc serait déjà inséré au dessin bien sûr) Merci, Yalta

....si j'avais réussi je n'aurai pas demandé de l'aide ;) (je ne maitrise pas la 3D.) ......ce n'est pas de moi mais je transmettrai. ...........tes plans n'apparaissent pas...!! :o Merci à vous deux

Bonjour, http://img337.imageshack.us/img337/9431/tunnelmd9.jpg Ceci est l'entrée d'un tunnel avec sa vue de dessus et on me demande la longueur de l'onde lumineuse qui démarre du point bas à gauche (A) pour redescendre 11.78m plus loin en B et en passant par le sommet du tunnel © entre ces 2 points. Qq'un pourrait-il m'aider, merci d'avance, :) Yalta

Essaie [surligneur]MIM.lsp[/surligneur] tjs de Patrick ;) Yalta

...voilà une solution à laquelle je n'avais pas pensé...merci ;) [Edité le 11/9/2007 par yalta]

Bonjour, La plupart de mes blocs élec. (prises, inter, luminaires....etc) sont réalisés à la base avec des épaisseurs de traits allant de 0.2mm à 0.35mm, et à l'impression des plans à l'échelle 1/50 le rendu de ces blocs est "correct" disons. Par contre si j'édite au 1/100 mes blocs se transforment en "pâtés" illisibles du fait de l'épaisseur de leurs traits.... :P :casstet: :mad: ....quelle(s) solution(s) peut-on apporter à ce désagrémént...?? ;) Merci d'avance, Sylvain

Bonjour, .....le point de départ étant Besançon , le point de chute quant à lui est à........... Royan....!!..........nous dirons donc que je serai au plus près de Montpellier à Paray-le-Monial (71)..!! :cool: . Dommage pour la mousse ;) Bonne vacances à tous, Yalta

Bonjour et merci Patrick, ...et à ce sujet ce n'est pas moi qui vais te dire le contraire, il n'y a rien de tel... ;) Merci encore. Yalta

Bonjour, Pardonnez moi de relancer le sujet, mais je ne vois tjs pas comment l'on commence, je suis complètement largué :P :P . Ce doit être tout simple mais voilà....!! Mon pb n'est pas de charger et d'exécuter les lisp, ça c'est OK, mais plutôt ce "folio" qu'en est-il ? - Un bloc ? - Un gabarit ?.....je ne comprends pas..!! :cool: Alors si qq'un peut me donner les grandes lignes de départ c'est un grand MERCI que je lui adresse ;) Yalta

Bonjour à tous et à toutes, Tout comme Oran je n'ai pas compris, et je n'ai pas honte de le dire, d'où sort ce "folio" .....!!!! Pour faire simple supposons que je viens d'ouvrir un dessin vierge (absolument rien sur l'EO), comment dois-je m'y prendre maintenant ??? :P Désolé mais je ne vois vraiment pas comment m'y prendre.... ....ce qui paraît simple et évident pour certain ne l'est pas obligatoirement pour d'autres et c'est mon cas ici :P je vais donc faire mon deuil de ce sujet :mad2: [Edité le 19/6/2007 par yalta]

....non pas les oreilles !!! stp :cool: ....en tant que "Français moyen" et encore une fois, je n'ai pas lu le mode d'emploi dans son intégralité et en détail. J'ai attaqué bêtement bille en tête comme d'hab. :red: Pourtant je sais que que lorsque Christian rédige un manuel il n'y a pas à revenir dessus il s'uffit d'appliquer à la lettre les consignes. ....je pense avoir vu mon erreur ;) :P ....la hoooooonte que j'ai, en plus c'est expliqué en photo..!! ;) ;) ..ça roule. Merci [Edité le 15/6/2007 par yalta]

Bonjour, :red: .... :red: ...j'ai, encore, cuiquer qq part ça ne peut pas être autrement :mad2: Je viens de tout installer [surligneur]_Mise_en_page[/surligneur] mais la totalité des icônes est remplacé par de vulgaires.... http://img505.imageshack.us/img505/2584/11ee8.jpg Que faut-il que je fasse ?? ;) PS: je l'ai installé içi : C:\Documents and Settings\sf\Application Data\Autodesk\Autodesk Architectural Desktop 2005\fra\Support\_Mise_en_page Yalta [Edité le 15/6/2007 par yalta]

Re..... je te mets également celui-ci, à tout hasard, ce peut être utile aussi. Remettre un (ou des) mtext dans le style de texte courant (defun c:mtxt2cstyle (/ ss n txt e_lst) (setq ss (ssget "_X" '((0 . "*TEXT")))) (repeat (setq n (sslength ss)) (setq txt (ssname ss (setq n (1- n))) e_lst (entget txt) e_lst (subst (cons 7 (getvar "TEXTSTYLE")) (assoc 7 e_lst) e_lst ) ) (entmod e_lst) ) (princ) )

Bonjour, ...essaie ça, mais ce n'est pas de moi. ; supprimer les propriétés qui auraient pu être forcées (couleur, fonte, caractères gras, italique ou sous-ligné) ; qu'il soit en textes ou en mtextes dans le dessin (defun c:mtxt2Std (/ ss n txt e_lst str) (setq ss (ssget "_X" '((0 . "*TEXT")))) (repeat (setq n (sslength ss)) (setq txt (ssname ss (setq n (1- n))) e_lst (entget txt) str (cdr (assoc 1 e_lst)) ) (if (= "{" (substr str 1 1)) (progn (while (and (setq start (vl-string-search "\\" str)) (setq end (vl-string-search ";" str start)) ) (setq str (vl-string-subst "" (substr str (1+ start) (- end start -1)) str ) ) ) (if (= "\\L" (substr str 2 2)) (setq str (vl-string-subst "" (substr str 2 2) str ) ) ) (setq str (vl-string-right-trim "}" (vl-string-left-trim "{" str) ) e_lst (subst (cons 7 (getvar "TEXTSTYLE")) (assoc 7 e_lst) (subst (cons 1 str) (assoc 1 e_lst) e_lst) ) ) (entmod e_lst) ) ) ) (princ) ) Sylvain

...merci, mais quelle est l'astuce ??? ;)

Bonjour à toutes et à tous, Sur un carnet de schémas, je désirerai faire apparaître sur la page d'entête le dernier indice (A, B, C....etc) de mise à jour de mes folios. En clair, supposons que mon folio n°1 ait un indice A, celui-ci se répercute automatiquement, grace aux champs, sur ma page d'entête. Plus tard le folio n°5 passe en indice B, peut-on faire en sorte que B écrase A sur la page d'entête, tjs par le biais des champs..??? Sylvain

....autant pour moi, je viens de trouver mon pb. Dans mon EP ma légende est décomposée afin d'attribuer une couleur différente à certains de mes blocs et, là, par conséquent le lisp me comptabilise ces blocs. Merci de ton intervention, ;) ;) Sylvain

Bonjour, A propos de [surligneur]lg.lsp[/surligneur] ... Lorsque l'on met à jour un plan comportant la légende lg.[surligneur]xls[/surligneur] (afin d'avoir les quantités) et qu'il y a eu des ajouts ou suppressions de blocs, le lisp va également comptabiliser chacun des blocs figurant dans la légende ( 1 unité de plus pour chacun des blocs mis en oeuvre )... :casstet: :casstet: ...donc, supposons maintenant que cette même légende figure sur l'espace papier, peut-on modifier le lisp afin que celui-ci ne comptabilise pas les blocs de l'espace papier...??? :cool: .....question que je me posais... ;)

loin de moi cette idée... :casstet: ...je m'explique peut-être mal, alors reprenons clairement avec ce que j'aurai du faire depuis le début: - Insertion ==> Bloc (avec attributs bien sûr) ..voici le fenêtre qui apparaît... http://img296.imageshack.us/img296/918/fentre1jn7.jpg - On valide ==> Enter ....et voici la seconde fenêtre qui s'affiche. http://img379.imageshack.us/img379/5139/fentre2zw4.jpg ....les attributs apparaissent dans l'ordre de leur création et c'est cet ordre que je voudrai modifier [surligneur]avant[/surligneur] d'insérer mon bloc. Pour BATTMAN je suis OK avec vous mais cette fonction intervient (il me semble, vous me faites douter maintenant...) sur un bloc [surligneur]déjà[/surligneur] inséré et cet ordre est bien modifié comme ja l'ai fait ci-dessous avec les 4 indices que j'ai remonté http://img256.imageshack.us/img256/84/fentre4ia9.jpg ....ce qui m'interrèsse c'est le cas de ma 2ème fenêtre.....en résumé, peut-on revenir sur l'ordre de création des attributs ?? ;)

...insère un bloc avec attributs Maximilien et tu comprendras.... ;) Phil a vu ce dont je parlais.. ;) ....je vais donc recréer mon bloc....merci Bon week-end, Sylvain

...OK et merci pour BATTMAN.. je connais, mais ma demande s'applique à la fenêtre qui s'ouvre au moment où tu insère ton bloc. Dans cette fenêtre ils apparaissent avec l'ordre de leur création et c'est justement cet ordre que je désire modifier...........comme le dit Phil_vsd plus bas. ;)

Bonjour, Lorsque l'on insère un bloc avec attributs, la fenêtre Editer le attributs s'affiche avec l'étiquette de chacun d'eux par ordre de leur création. Peut-on modifier cet ordre...??? :exclam: Sylvain ;)

;) ;) ...OK, merci @+ Sylvain

bonjour, Sur un cas précis comme le lisp [surligneur]OOG[/surligneur] (Réorganisation des Onglets) peut-on augmenter la longueur de liste déroulante...?? :exclam: . A l'ouverture de la fenêtre nous avons une liste de 9 lignes, peut-on par exemple en avoir 20... ..si oui où se fait la modif et en est-il de même pour les autres lisp..?? Sylvain ;) ;)