Bred

Non.

Salut, J'aimerais que ceux qui utilisais 2008 en 3D avec rendu, et qui travail sur ces plans maintenant avec la 2009 me confirme que ça bug lamentablement (quelquefois...) !!!!!!! Exemple : J'ai fais une mis en plan en EP sous 2008 avec des fenêtre en impression caché et une en rendu (en impression, mais en visualisation 2D filaire), et bien ce même plan sous 2009 ne m'imprime pas la fenêtre rendu !!!!!!!!!! merci pour vos réponses !

Salut, tu as raison. Je pense que l'erreur viens de la CAO. Car l'on dit aussi "la" CAO/DAO", alors que le masculin l'emporte...

Salut, Compris, "Femme", vous ne devez pas répondre, ce message ne vous concerne pas !!!! :P ;) Serieusement : Tu connais CadXP ? Tu n'as qu'à poser des questions ! Sinon, dans CadXP, dans les ressources, tu as ça, suivi de ceci. ... mais le mieux et que tu commences par poser des questions précises dans ce forum ! Bienvenue à un futur lispeur !

Salut, Pour le deuxième, rajoute (vl-load-com) en début de code.

Salut, par expérience, c'est la carte graphique !

Salut, Quelle carte graphique as-tu ? J'ai une MATROX Parthelia 128 Mb.

C'est juste pour "attirer" l'oeuil. Si tu ne fais pas ça, celui qui regarde l'animation ne regarderas pas forcément la ligne de commande, tandis que là, tu suis le curseur, donc tu vois que quelque chose est rentrer en ligne de commande.

Salut, Oui, en enregistrant sous les variables dans les : USERR1 (nombre réel) USERI1 (integer) USERS1 (string) (setvar "USERR1" 325) Pour la lire en lisp : (getvar "USERR1") En VB : (...)=ThisDrawing.GetVariable("userr1") Je fais à 90% mes boites de dialogues en VB, et je commandes mes lisps avec (dû à l'absence d'un éditeur de Boite de dialogue dcl pendant quelque temps pour 2007....) On peux faire pas mal de chose, mais j'ai touché un peu au vb-net, et c'est vraiment pas mal ! désolé, je n'en sais rien (et je n'ai pas cherché)

De rien Pense à signaler ton sujet comme résolu (en sélectionnant l'ampoule au bas de ton 1er message).

Salut, (layoutlist) Ceci te retourne sous forme de liste le nom de toutes les présentation.

Salut, vite fait : ;;; Additionner touts les longueurs de polylignes : (defun c:lgp (/ sel i d ent) (setq sel (ssget "I") d 0) (if (not sel) (setq sel (ssget '((0 . "LWPOLYLINE"))))) (repeat (setq i (sslength sel)) (if (equal (cdr (assoc 0 (entget (setq ent (ssname sel (setq i (1- i))))))) "LWPOLYLINE") (setq d (+ d (vla-get-length (vlax-ename->vla-object ent)))) ) ) (alert (Strcat "Longueur totale : " (rtos d))) ) pour Tu fais une "sélection rapide" avant de lancer la commande.

Salut, C'est des barre d'états unis alors ?

Salut, Le testeur fou est passé par là.... ;) ... merci ! pfffff... bien vu.... Le jour où les Autodesk uniformiseras un peu les propriétés de ces objets, ça nous fera du bien!!!.... Je n'ai en effet pas la longueur d'une spline ouverte dans les propriétés activeX. C'est corrigé dans le code précédent.

Non ! C'est moi !

Salut, Désolé, j'a eu un bug d'ordi samedi et je n'ai pas pu te poster le lisp modifier. - Tu peux traiter les lignes "simple" - Tu peux sélectionner un texte existant OU si tu ne le sélectionnes pas, tu devras donner un point d'insertion pour qu'il soit crée dans le style courant. ;;;================================================================= ;;; ;;; REA.LSP V1.01 ;;; Modifié par Bred avec autorisation : ;;; Traitement ligne seule/ forme ouverte / Création du texte ;;; ;;; Associer un texte à une poly/ligne/spline fermée ou ouverte ;;; ;;; Copyright (C) Patrick_35 ;;; ;;;================================================================= (defun modif_poly(obj rea arg-list) (if (and (vlax-read-enabled-p obj)(vlax-read-enabled-p (vlr-data rea))) (if (equal (vla-get-ObjectName obj) "AcDbLine") (vla-put-textstring (vlr-data rea) (strcat (rtos (vla-get-length obj)) " M.")) (if (= :vlax-false (vla-get-closed obj)) (progn (if (equal (vla-get-ObjectName obj) "AcDbSpline") (vla-put-textstring (vlr-data rea) (strcat (rtos (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))) " M.")) (vla-put-textstring (vlr-data rea) (strcat (rtos (vla-get-length obj)) " M.")))) (vla-put-textstring (vlr-data rea) (strcat (rtos (vla-get-area obj) 2 2) " M²"))) ) (vlr-remove rea) ) ) (defun effacer_pt(obj rea arg-list) (vlax-ldata-delete obj "Patrick_35" (vlr-data rea)) (vlax-ldata-delete (vlr-data rea) "Patrick_35" obj) (vlr-remove rea) ) (defun c:rea(/ n sel_poly sel_text lg_poly AcDoc P-TXT) (setq AcDoc (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))) )) (while (not sel_poly) (setq sel_poly (car (entsel "\nSélection de la Ligne/Polyligne/Spline : "))) (if sel_poly (if (or (= (cdr (assoc 0 (entget sel_poly))) "POLYLINE") (= (cdr (assoc 0 (entget sel_poly))) "LWPOLYLINE") (= (cdr (assoc 0 (entget sel_poly))) "SPLINE") (= (cdr (assoc 0 (entget sel_poly))) "LINE")) (progn (setq sel_poly (vlax-ename->vla-object sel_poly)) (if (equal (vla-get-ObjectName sel_poly) "AcDbLine") (setq lg_poly (vla-get-length sel_poly)) (if (= :vlax-false (vla-get-closed sel_poly)) (progn (if (equal (vla-get-ObjectName sel_poly) "AcDbSpline") (setq lg_poly (vlax-curve-getdistatparam sel_poly (vlax-curve-getendparam sel_poly))) (setq lg_poly (vla-get-length sel_poly))))) ) (if sel_poly (if (vlax-ldata-get sel_poly "Patrick_35") (progn (alert "Ligne/Polyligne/Spline déjà associé à un texte") (setq sel_poly nil) ) ) ) ) (progn (alert "Ce n'est pas une Ligne/Polyligne/Spline") (setq sel_poly nil) ) ) ) ) (if sel_poly (progn (vla-highlight sel_poly :vlax-true) (setq sel_text (car (entsel "\nSélection du texte : "))) (if sel_text (if (or (= (cdr (assoc 0 (entget sel_text))) "TEXT") (= (cdr (assoc 0 (entget sel_text))) "MTEXT")) (progn (setq sel_text (vlax-ename->vla-object sel_text)) (if (vlax-ldata-get sel_text "Patrick_35") (progn (alert "Texte déjà associé à une Ligne/Polyligne/Spline") (setq sel_text nil) ) ) ) (progn (setq sel_text nil) (alert "Ce n'est pas un texte") ) ) (progn (setq p-txt (getpoint "\n Point d'insertion du Texte :") sel_text (vla-AddMText AcDoc (vlax-3d-point p-txt) 1 "TEXTE"))) ) (if sel_text (progn (vla-highlight sel_poly :vlax-false) (if lg_poly (vla-put-textstring sel_text (rtos lg_poly)) (vla-put-textstring sel_text (rtos (vla-get-area sel_poly)))) (vlr-pers (vlr-object-reactor (list sel_poly) sel_text '((:vlr-modified . modif_poly)(:vlr-erased . effacer_pt)))) (vlr-pers (vlr-object-reactor (list sel_text) sel_poly '((:vlr-erased . effacer_pt)))) (vlax-ldata-put sel_poly "Patrick_35" sel_text) (vlax-ldata-put sel_text "Patrick_35" sel_poly) ) ) ) ) (princ) ) (defun refaire_reacteurs(/ entp entt) (vl-load-com) (if (not appli_patrick_35) (progn (setq appli_patrick_35 (ssget "x" (list (cons 102 "{ACAD_XDICTIONARY")))) (if appli_patrick_35 (progn (setq n 0) (while (setq entp (ssname appli_patrick_35 n)) (setq entp (vlax-ename->vla-object entp)) (if (setq entt (vlax-ldata-get entp "Patrick_35")) (progn (if (equal (vla-get-ObjectName entp) "AcDbLine") (vla-put-textstring entt (strcat (rtos (vla-get-length entp)) " M.")) (if (= :vlax-false (vla-get-closed entp)) (progn (if (equal (vla-get-ObjectName sel_poly) "AcDbSpline") (vla-put-textstring entt (strcat (rtos (vlax-curve-getdistatparam entp (vlax-curve-getendparam entp))) " M.")) (vla-put-textstring entt (strcat (rtos (vla-get-length entp)) " M.")))) (vla-put-textstring entt (strcat (rtos (/ (vla-get-area entp) 10000) 2 2) " M²"))) ) (vlr-object-reactor (list entp) entt '((:vlr-modified . modif_poly)(:vlr-erased . effacer_pt))) (vlr-object-reactor (list entt) entp '((:vlr-erased . effacer_pt))) ) (vlax-ldata-delete entp "Patrick_35") ) (setq n (1+ n)) ) ) ) ) ) (princ) ) (refaire_reacteurs) (princ "\nREA.LSP chargé. Tapez REA pour l'exécuter") (princ) Edit : Correction pour Spline ouverte. [Edité le 28/4/2008 par Bred]

Salut, Lorsque j'étire une fenêtre en EP, que je la copie ou la déplace, sa rame sec !!! (l'affichage est saccadé, genre 1 image / seconde (même moins !!!...) Et cela arrive même sur de petit dessin !!!.... Je n'ai jamais eu ce phénomène sur les versions ultérieur (2008 fonctionnait très bien). Suis-je le seul ? (mon ordi n'est pas très récent -C.G. en AGP- mais c'est pas une brouette quand même !!!) merci :casstet:

Si tu sélectionne UNE ligne je vois le truc facilement. Par contre, si tu veux liaisonner une sélections de lignes à un texte, là, faut revoir le code plus profondément...

Salut, Je me suis permis de modifier le lisp de Patrick_35 pour que ça fasse ce que tu veux, avec en unité le mètre. ... je pense pas qu'il m'en veuille... sinon je m'en excuse par avance.... ;) ;;;================================================================= ;;; ;;; REA.LSP V1.01 - MODIFIE PAR BRED ;;; ;;; Associer un texte à une poly fermée ;;; ;;; Copyright (C) Patrick_35 ;;; ;;;================================================================= (defun modif_poly(obj rea arg-list) (if (and (vlax-read-enabled-p obj)(vlax-read-enabled-p (vlr-data rea))) ; (vla-put-textstring (vlr-data rea) (rtos (vla-get-area obj))) (if (= :vlax-false (vla-get-closed obj)) (vla-put-textstring (vlr-data rea) (strcat (rtos (vla-get-length obj)) " M.")) (vla-put-textstring (vlr-data rea) (strcat (rtos (vla-get-area obj) 2 2) " M²"))) (vlr-remove rea) ) ) (defun effacer_pt(obj rea arg-list) (vlax-ldata-delete obj "Patrick_35" (vlr-data rea)) (vlax-ldata-delete (vlr-data rea) "Patrick_35" obj) (vlr-remove rea) ) (defun c:rea(/ n sel_poly sel_text lg_poly) (while (not sel_poly) (setq sel_poly (car (entsel "\nSélection de la polyligne : "))) (if sel_poly (if (or (= (cdr (assoc 0 (entget sel_poly))) "POLYLINE") (= (cdr (assoc 0 (entget sel_poly))) "LWPOLYLINE") (= (cdr (assoc 0 (entget sel_poly))) "SPLINE")) (progn (setq sel_poly (vlax-ename->vla-object sel_poly)) (if (= :vlax-false (vla-get-closed sel_poly)) (setq lg_poly (vla-get-length sel_poly)) ) (if sel_poly (if (vlax-ldata-get sel_poly "Patrick_35") (progn (alert "Polyligne/Spline déjà associé à un texte") (setq sel_poly nil) ) ) ) ) (progn (alert "Ce n'est pas une Polyligne/Spline") (setq sel_poly nil) ) ) ) ) (if sel_poly (progn (vla-highlight sel_poly :vlax-true) (while (not sel_text) (setq sel_text (car (entsel "\nSélection du texte : "))) (if sel_text (if (or (= (cdr (assoc 0 (entget sel_text))) "TEXT") (= (cdr (assoc 0 (entget sel_text))) "MTEXT")) (progn (setq sel_text (vlax-ename->vla-object sel_text)) (if (vlax-ldata-get sel_text "Patrick_35") (progn (alert "Texte déjà associé à une Polyligne/Spline") (setq sel_text nil) ) ) ) (progn (setq sel_text nil) (alert "Ce n'est pas un texte") ) ) ) ) (if sel_text (progn (vla-highlight sel_poly :vlax-false) (if lg_poly (vla-put-textstring sel_text (rtos (vla-get-length sel_poly))) (vla-put-textstring sel_text (rtos (vla-get-area sel_poly)))) (vlr-pers (vlr-object-reactor (list sel_poly) sel_text '((:vlr-modified . modif_poly)(:vlr-erased . effacer_pt)))) (vlr-pers (vlr-object-reactor (list sel_text) sel_poly '((:vlr-erased . effacer_pt)))) (vlax-ldata-put sel_poly "Patrick_35" sel_text) (vlax-ldata-put sel_text "Patrick_35" sel_poly) ) ) ) ) (princ) ) (defun refaire_reacteurs(/ entp entt) (vl-load-com) (if (not appli_patrick_35) (progn (setq appli_patrick_35 (ssget "x" (list (cons 102 "{ACAD_XDICTIONARY")))) (if appli_patrick_35 (progn (setq n 0) (while (setq entp (ssname appli_patrick_35 n)) (setq entp (vlax-ename->vla-object entp)) (if (setq entt (vlax-ldata-get entp "Patrick_35")) (progn (if (= :vlax-false (vla-get-closed entp)) (vla-put-textstring entt (strcat (rtos (vla-get-length entp)) " M.")) (vla-put-textstring entt (strcat (rtos (/ (vla-get-area entp) 10000) 2 2) " M²"))) (vlr-object-reactor (list entp) entt '((:vlr-modified . modif_poly)(:vlr-erased . effacer_pt))) (vlr-object-reactor (list entt) entp '((:vlr-erased . effacer_pt))) ) (vlax-ldata-delete entp "Patrick_35") ) (setq n (1+ n)) ) ) ) ) ) (princ) ) (refaire_reacteurs) (princ "\nREA.LSP chargé. Tapez REA pour l'exécuter") (princ)

Salut, Essaye en pdf, mais pas celui proposé par AutoCAD, prends plutôt CUTPDF par exemple.

Et si tu le copies dans un autre gabarit, (acad3d) par exemple ? Bien vu... mais... .... presque .... lorsque j'ai insérer mon bloc et que j'ai fait un rendu, la partie du bloc qui bug était comme il fallait (Bleu plastique) (super !...) Le reste du bloc en global ne convenait pas car pour moi le global est défini en couleur acier. J'ai alors modifié le global, et là, en refaisant un rendu, tous le bloc est passé en global... même la partie imbriqué qui aurait sü resté bleu (car définis sur le calque correspondant.....) Il y a un truc qui doit m'échapper... car par contre d'autres blocs constituer de la même manière (avec du global + Bleu) sortent avec le bon rendu.....

Salut, Si tu veux une réponse, il vaut mieux poser une question par message. Cela me semble un peu difficile à réaliser, vu qu'il faut tenir compte de l'emplacement des cotes par rapport à l'objet, ainsi que l'emplacement des déjà cotes créés... Par contre as-tu déjà essayé la commande "COTRAP" (pour "cote rapide" ?) Je ne comprends pas bien ce que tu veux, désolé. [Edité le 24/4/2008 par Bred]

Ben tiens celle là elle est bonne !!!! Je te promet thierryd que j'étais en train d'écrire mon message quand tu as répondu !...

d'un œuf à poule plutôt, non ? En tous les cas, j'ai bien l'impression que cette explication est imparable ! Ben si on en a une : Quel est le premier : l'homme ou le(s) dieu ?

Salut, Oui, et ça fonctionne, sauf que mon objet n'est plus un solide 3D, mais une constitution de Face 3D (et ça, c'est trop lourd !) merci pour ta réponse.