Raph_38

SP1 installé mais pas de boite de dialogue .....

ça existe sur la version 2012 (pour les commandes) mais je ne crois pas sur la 2011

Oups .... j'avais pas vu la mise à jour :exclam:

ahhhhhh ! c'est cool ça ;)

Salut patrick Souviens toi, avec ton lisp on exporte la présentation mais avec tous les objets présents dans l'espace objet (excepté les objets sur les calques gelés) en compilant les 2, on exporterait uniquement les éléments présents dans la fenêtre fmult. [Edité le 7/9/2011 par neptune38]

Salut, Voici quelques liens pour démarrer ;) Sur les sites des fabricants : Pompe [sALMSON] : ICI Pompe [GRUNDFOS] : ICI Pompe [WILO] : ICI Accessoires tube Acier [sOCLA DANFOSS] : demande de catalogue DAO sur CDrom ICI Accessoires tube inox [MAURIN] : ICI Accessoires tubes plastiques (PP, PVC, ABS, etc...) [GEORGFICHER] : ICI Divers : Partspec Traceparts Fastlock Caleffi [Edité le 6/9/2011 par neptune38]

juste une remarque : concernant les centaines de rubriques existantes, serait-il possible de les mettre en onglets "par groupes" par exemple : 1 onglet "général" avec "Fonctionnement de ce site"+ "Emploi" + "Divers" 1 onglet "Autocad" avec les toutes les rubriques autocad 1 onglet "Développement" avec "programmation" + "trucs & astuces" etc ... cela soulagerait éventuellement la lecture ? non ?

impatient de voir ce que cela va donner une fois que l'ancienne version de Cadxp sera fermée cela risque d'en dérouter certains.

+20 ans que je fais des relevés et je suis du même avis que Didier. ;) Faire des plans et relevés c'est un métier quoi que certains puissent en penser. Pour ma part, j'ai bien un télémètre laser, mais j'ai toujours mon mètre avec moi et je peux dire que je ne m'en sépare jamais. On peut faire des relevés sans télémètre ... mais pas sans mètre. comment allez vous faire pour reprendre vos relevés réalisé avec un mètre ..... :exclam:

Un petit UP pour savoir si un pro aurait la réponse à ma question ci-dessus ? merci

Perso je suis comme toi : 1 plan = 1 onglet mais bon ... il y a toujours des exceptions, ça m'arrive parfois d'avoir 2 plans dans l'onglet notamment lorsque je fais des plans de détails pour les monteurs ;)

Pas obligé Bryce ;) j'ai donné la solution dans son autre message

Salut, Dans la fenêtre de tracé, enregistre tes différentes mises en pages : http://img808.imageshack.us/img808/3738/trac.png Ensuite, dans publier tu peux afficher plusieurs fois le même onglet (via le clic droit) et changer la mise en page à appliquer http://img692.imageshack.us/img692/334/publier.png et voilà ;)

Dis moi (giles), n'y aurait-il pas moyen de compiler ton lisp avec celui de partick : ;;;================================================================= ;;; ;;; EXL.LSP V1.02 ;;; ;;; Exporter des Présentations ;;; ;;; Copyright (C) Patrick_35 ;;; ;;;================================================================= (defun c:exl(/ act bou cal cod dbx def doc fen lay liste_lay lst lst_base nom obj res sel val bda) (defun bda (titre lst / dcl fic fil res txt val) (setq fic (vl-filename-mktemp "exl" nil ".dcl") fil (open fic "w") ) (foreach txt '( "exl : dialog {" " key = \"titre\";" " alignment = centered;" " is_cancel = true;" " allow_accept = true;" " width = 50;" " : list_box {label= \"Sélection\"; key=\"sel\"; height = 20; multiple_select=true;}" " spacer;" " ok_cancel;" "}" ) (write-line txt fil) ) (close fil) (setq dcl (load_dialog fic)) (new_dialog "exl" dcl "") (set_tile "titre" titre) (start_list "sel") (mapcar 'add_list lst) (end_list) (action_tile "sel" "(setq val $value)") (action_tile "accept" "(done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (setq res (start_dialog)) (unload_dialog dcl) (vl-file-delete fic) (list res val) ) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object)) def (vla-get-activelayout doc) bou 1 ) (vla-startundomark doc) (acad-push-dbmod) (vlax-for lay (vla-get-layouts doc) (setq lst_base (cons (cons (vla-get-taborder lay) lay) lst_base )) ) (while (assoc bou lst_base) (setq liste_lay (cons (vla-get-name (cdr (assoc bou lst_base))) liste_lay ) bou (1+ bou) ) ) (and (= (car (setq res (bda "Exl 1.02" (reverse liste_lay)))) 1) (setq res (cadr res)) (while (not (eq res "")) (setq lst nil obj nil val (read res) lay (cdr (assoc (1+ val) lst_base)) act (vla-get-name lay) ) (and (ssget "x" (list (cons 0 "viewport") (cons 410 act))) (progn (princ (strcat "\nTraitement pour l'onglet : " act))(princ) (vlax-for fen (setq sel (vla-get-activeselectionset doc)) (vla-getxdata fen "" 'cod 'cal) (setq cod (vlax-safearray->list cod) cal (vlax-safearray->list cal) bou 0 ) (while (setq nom (nth bou cal)) (and (eq (nth bou cod) 1003) (not (member nom lst)) (setq lst (cons (vlax-variant-value nom) lst)) ) (setq bou (1+ bou)) ) ) (vla-delete sel) (setq dbx (vlax-create-object (if (< (setq rel (atoi (getvar "ACADVER"))) 16) "ObjectDBX.AxDbDocument" (strcat "ObjectDBX.AxDbDocument." (itoa rel)) ) ) ) (ssget "x" (list (cons 67 0))) (vlax-for ent (setq sel (vla-get-activeselectionset doc)) (or (member (vla-get-layer ent) lst) (setq obj (cons ent obj)) ) ) (vla-delete sel) (vla-copyobjects doc (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbobject (cons 0 (1- (length obj)))) obj ) ) (vla-get-modelspace dbx) ) (vla-copyobjects doc (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbobject (cons 0 0)) (list lay) ) ) (vla-get-layouts dbx) ) (vla-saveas dbx (setq nom (strcat (vla-get-path doc) "/" (vl-filename-base (vla-get-name doc)) " - " act ".dwg"))) (vlax-release-object dbx) (setq dbx (vla-open (vla-get-documents (vlax-get-acad-object)) nom)) (vlax-for ent (vla-get-layouts dbx) (cond ((eq (vla-get-name ent) act) (vla-put-activelayout dbx ent) ) ((/= (vla-get-name ent) "Model") (vla-delete ent) ) ) ) (vla-close dbx :vlax-true) ) ) (setq res (substr res (+ 2 (strlen (itoa val))) (strlen res))) ) (alert "Traitement des onglets terminés.") ) (acad-pop-dbmod) (vla-endundomark doc) (princ) ) (setq nom_lisp "EXL") (if (/= app nil) (if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp) (princ (strcat "..." nom_lisp " chargé.")) (princ (strcat "\n" nom_lisp ".LSP Chargé.....Tapez " nom_lisp " pour l'éxecuter."))) (princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter."))) (setq nom_lisp nil) (princ)

Salut, En fait c'est très simple : Tu as 3 visibilités (PORTE_73, PORTE_83, PORTE_93) Dans l'édition de ton bloc, crée ton encart avec tes attributs (niveau, type de porte, local, numéro, etc...) Affiche les éléments masqués avec la commande bvmode ou en cliquant sur l'icone : http://img43.imageshack.us/img43/3703/bvmode.jpg Tu auras à l'écran les éléments présents dans toutes les visibilités de ton bloc dynamique (en noir les éléments affichés et en grisé les éléments masqué dans la visibilité choisie) Ensuite, il te suffit simplement, dans chaque visibilité, d'afficher ou de masquer ton encart à l'aide des boutons suivants : http://img143.imageshack.us/img143/9463/bvmode1.jpg

il y a encore plus simple : Tapes la commande TFRAMES Cette commande bascule automatiquement l'affichage des wipeout en actif ou inactif du coup, tu peux la mettre en raccourcis clavier ;)

Tiens, j'en ai un en 3D (tu pourras le faire pivoter comme tu veux comme ça) ;) y en a en 2D également sur le même site http://www.archweb.it/dwg/mobilita_trasporti/camion/camion_3d/camion_3D.htm

le magnétisme sur les accrochages peut-être :exclam:

Sympa bryce, j'en ai profité pour voir tes autres vidéos .... génial, j'ai appris quelques trucs ;)

Identification impeccable ;) dommage, le site est en maintenance :D [Edité le 13/7/2011 par neptune38]

Génial !! j'y croyais plus mais force est de constater que le lancement aura bien lieu... je suis en haleine, vivement la version démon que l'on puisse voir :D

Salut, Pour ta sélection par couleur, regarde dans les lisps de (gile) "Spéciale sélection" --> ICI La commande c'est : SSC [Edité le 1/7/2011 par neptune38]

je sais pas si tu a vu mon edition précédente. C'est de la balle ton lisp ! bravo Gile

@Gile il manque une parenthèse pour fermer le setq pts : ;; gc:PlotAreaToRectangle ;; Dessine un rectangle correspondant à la zone imprimable dans la présentation ;; ;; Argument ;; layout : la présentation (vla-object) (defun gc:PlotAreaToRectangle (layout / width height numerator denominator lowerLeft upperRight origin scale x y w h pts) (vla-GetPaperSize layout 'width 'height) ; taille du papier (vla-GetCustomScale layout 'numerator 'denominator) ; échelle (mm/unités) (vla-GetPaperMargins layout 'lowerLeft 'upperRight) ; marges (setq lowerLeft (vlax-safearray->list lowerLeft) upperRight (vlax-safearray->list upperRight) origin (vlax-get layout 'PlotOrigin) ; origine du tracé scale (/ denominator numerator) x (- (car origin)) y (- (cadr origin)) w (* (- width (car lowerLeft) (car upperRight)) scale) h (* (- height (cadr lowerLeft) (cadr upperRight)) scale) pts (if (zerop (rem (vla-get-PlotRotation layout) 2)) ; rotation (portrait/paysage) (list x y (+ x w) y (+ x w) (+ y h) x (+ y h)) (list x y (+ x h) y (+ x h) (+ y w) x (+ y w)) )) (vla-put-Closed (vlax-invoke (vla-get-Block layout) 'addLightWeightPolyline pts) :vlax-true ) ) ;; Commande PLOTREC ;; Dessine la zone imprimable dans toutes les présentations. (defun c:plotrec () (vl-load-com) (vlax-for layout (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object))) (if (/= (vla-get-Name layout) "Model") (gc:PlotAreaToRectangle layout) ) ) (princ) ) [Edité le 30/6/2011 par neptune38]

Le soucis, c'est que tes marges changent suivant le type d'imprimantes que tu sélectionne.