capde06

dans les champ il faut choisir index

J'avais fait ca, il y a longtemps... sur une base de tabloblo (defun c:tablobloc () ;(/ libloc liidbloc ss col liref ptins tableVL cont row) (vl-load-com) (setq liblkdescrip nil cont nil libloc nil liref nil) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (prompt "\nSélectionnez les blocs à lister ou <Toute la collection>") (or (setq ss (ssget '((0 . "INSERT")))) (setq ss (ssget "_X" '((0 . "INSERT"))) col T ) ) (if ss (progn (vlax-for x (setq ss (vla-get-ActiveSelectionSet *acdoc*) ) (or (vlax-property-available-p x 'Path) (setq liref (cons (if (vlax-property-available-p x 'EffectiveName) (vla-get-EffectiveName x) (vla-get-Name x) ) liref ) ) ) ) (vla-delete ss) ) ) (if col (vlax-for i (vla-get-Blocks *acdoc*) (if (and (not (wcmatch (setq name (vla-get-Name i)) "`**,*|*")) (= :vlax-false (vla-get-IsXref i)) ) (setq libloc (append libloc (list (vla-get-name i)));(vla-get-name i) liidbloc (append liidbloc (list (vla-get-ObjectID i))) ) ) ) (setq libloc (remove_doubles liref) ;liblkdescrip (remove_doubles liblkdescrip) liidbloc (mapcar '(lambda (x) (vla-get-ObjectID (vla-item (vla-get-Blocks *acdoc*) x ) ) ) libloc ) ) ) (initget 1) (setq ptins (trans (getpoint "\nPoint d'insertion: ") 1 0)) (setq tableVL (vla-addtable (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)) ) (vlax-3d-point ptins) (+ 2 1 (length libloc)) 4 ;3 20 ; Hauteur cellule 80 ; Largeur cellule ) ) (vla-put-VertCellMargin tableVL 4.0) ; Marge verticale (vla-put-TitleSuppressed tableVL :vlax-false) (vla-put-HeaderSuppressed tableVL :vlax-false) (vla-setText tableVL 0 0 "Blocs") ; Titre (vla-setText tableVL 1 0 "Nom du bloc ") ; Titre colonne 1 (vla-setText tableVL 1 1 "Description") ; Titre colonne 2 (vla-setText tableVL 1 2 "Nombre") ; Titre colonne 3 (vla-setText tableVL 1 3 "Symbole") (setq cont -1 row 1 ) (repeat (- (vla-get-Rows tableVL) 2) (vla-settext tableVL (setq row (1+ row)) 0 (setq nombl (nth (setq cont (1+ cont)) libloc)) ) ;;;;;;;;;;;;;;;;;; description (vla-settext tableVL row 1 (cdr(assoc 4 (tblsearch "BLOCK" nombl))) ) (vla-settext tableVL row 2 (length (vl-remove-if-not '(lambda (n) (= n (nth cont libloc))) liref ) ) ) (vla-SetBlockTableRecordId tableVL row 3 (nth cont liidbloc) :vlax-true ) (vla-setcellalignment tableVL row 0 5) (vla-setcellalignment tableVL row 1 5) ) (princ) ) ;;; REMOVE_DOUBLES - Suprime tous les doublons d'une liste (defun REMOVE_DOUBLES (lst) (if lst (cons (car lst) (REMOVE_DOUBLES (vl-remove (car lst) lst))) ) )

une vieille astuce pour insérer un bloc et le décomposer, il suffit de mettre un Astérix devant le nom du bloc (command "_.-insert" "*copro-piece_chambre" pause 1 1 0 "")

Salut un petit prog de patrick35 que j'ai adapté pour moi ca ne correspond pas exactement a ta demande mais je trouve ca tres pratique ca nomme le 1er onglet "cartouche" et le reste au format "page 1 sur 15" il suffit de mette un champ "ctab" sur chaque presentation (defun c:ren-onglet (/ doc express lay lst n i txt) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object)) n -1 i 1 prefix "0" txt nil long (itoa (- (length (layoutlist)) 1)) ) ;_ Fin de setq (vla-startundomark doc) (if (eval 'acet-ui-progress-done) (progn (acet-ui-progress-init "" (1- (vla-get-count (vla-get-layouts doc))) ) ;_ Fin de acet-ui-progress-init (setq express T) ) ;_ Fin de progn (progn (princ "\nTravail en cours...") (princ) ) ;_ Fin de progn ) ;_ Fin de if (vlax-for lay (vla-get-layouts doc) (setq lst (cons (list (vla-get-taborder lay) lay) lst)) ) ;_ Fin de vlax-for (while (setq lay (assoc i lst)) (cond ((eq n -1) (setq txt "Cartouche") ) ((>= n 0) (setq txt1 (itoa (+ n 1))) (if (< (strlen txt1) 2) (setq txt1 (strcat "0" txt1)) ) (if (< (strlen long) 2) (setq long (strcat "0" long)) ) (setq txt (strcat "Page " txt1 " sur " long) ) ;_ Fin de setq ) ) ;_ Fin de cond ;_ Fin de while (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-name (list (cadr lay) txt)) ) ;_ Fin de vl-catch-all-error-p (progn (vla-put-name (vla-item (vla-get-layouts doc) txt) (strcat "c" txt) ;(strcat txt) ) ;_ Fin de vla-put-name (vla-put-name (cadr lay) txt) ) ;_ Fin de progn ) ;_ Fin de if (and express (acet-ui-progress-safe i)) (setq n (1+ n) i (1+ i) ) ;_ Fin de setq ) ;_ Fin de if (and express (acet-ui-progress-done)) (princ (strcat "\nRenumérotation de " (itoa (1+ n)) " présentation(s)." ) ;_ Fin de strcat ) ;_ Fin de princ (vla-endundomark doc) (princ) )

j'ai trouvé la commande FCALQUE est faite pour ca

Salut a tous j'ai des fichiers avec beaucoup de presentations et donc beaucoup de fenetres avec des calques gelés dans les fenetres ma question est : y a t'il un moyen rapide pour activer tous les calques dans toutes les fenetres en une seule fois merci

Mais je pense que c'est du a un reseau qui date de Mathusalem. merci pour votre aide

oui ..XREFNOTIFY est bien à 2.

Merci pour la reponse rapide jai bien xloadctl a 2 et je met tout dans d:\temp , que je vide regulierement sauvegarde. fichiers tempo. et reference externe tempo

Salut question sur la méthode nous sommes 2 a travailler sur sur la mémé base via un lecteur réseau 1 quand mon collègue modifie une référence je n'ai plu le message comme quoi cette xref a été modifié. pourtant tout est coché dans les options variable TOOLTIPS 2 quelle est la meilleur valeur pour la variable XLOADCTL MERCI

(command "-calque" "co" 251 "*" "")

BEN 2 cas -si le tcpoint est inserer en Z le prog toto3 marche. -si il faut lire la valeur Z dans l'attribut . il faut midifier la premiere ligne remplacer entsel par nentsel. et la il faudra cliquer sur l'attribut (defun c:toto4 () (vl-load-com) (setq z (cdr(assoc 1 (entget(car(nentsel "\nChoix de l'attribut a copier :")))))) (setpropertyvalue (car(entsel)) "ALT" z) ) j'ai corrigé une ptit boulette

essai ca (defun c:toto3 () (vl-load-com) (setq z (caddr(cdr(assoc 10 (entget(car(entsel "\nChoix du point :"))))))) (setpropertyvalue (car(entsel)) "ALT" (rtos z 2 2)) ) "ALT" etant le nom de l'attribut a toi de le changer

rien ne t’empêche de le modifier a ta sauce tu as un exemple d'attribut avec champ modifie le regarde comment ca marche! on peut tout faire avec les champs, il suffit d'etre un peu curieux

voila un exemple ICI