DenisHen

Bonjour La Lozère, et merci pour cette réponse. Mon problème est que ce sont des feuilles de Cadastre et donc, je les insert en bloque et non en XRef...

Bonjour à tous. Aujourd'hui, je cherche à insérer tous les DXF d'un répertoire. Ils sont tous dans un système de projection connu, donc, l'insertion se fera à 0,0, sans rotation, et avec une échelle à 1. Si quelqu'un a un début de réponse, un conseil, une astuce, je suis preneur...

Salut à tous. Personnellement, je n'utilise que les CTB, j'en ai configuré plusieurs (Couleur, Noir et Blanc,...) et je passe de l'un à l'autre sans problème. Ils ont toutes les couleurs de paramétrées (oui, les 255). Je n'ai jamais fais le pas pour adopter les STB, peut-être que je n'en connais pas assez dessus. Comme tous fonctionne à merveille comme ça, je reste dans cette configuration... Mais je lis souvent, avec la plus grande attention, les intervention de RebCAO sur ce sujet, et ça me titille de plus en plus de faire le changement.

Alors là, c'est osé ! ! Bon, passons, je ne saisi pas bien, si on préfixe ou sousfixe les noms des calques, ils ne contiennent donc qu'une seule sorte d'entité, non ? Exemple, dans le calque DET_EAU_TEXT, on est sur d'avoir du texte et que du texte, non ? Ce sont deux notions qui vont de paire, non ?

Salut à tous. De plus, dans un bloc dynamique, on peux avoir 2 tailles, celle du tronc et celle du feuillage... Il faut faire attention à ce qu'on écrit, car cela peut tromper d'autres personnes... (dixit didier) ;)

Salut à tous. perso, mes références sont toujours dans un calque dédié et verrouillé.

Euh, même si elle n'est pas fermée, il me semble...

Salut à tous. Tu peux t'en inspirer aussi : ;;;***************************************************************************************** ;;; Calcul les sommes des Polylignes depuis une liste de calque (issu de SomPoly de (gile)) ;;;***************************************************************************************** (defun c:DHSomPoly (/ List1@ Value1$ Som calque LstCalq calque Dist) (princ "\nSomme des Polylignes par calques") (if (not *DHSomPolye@) ;Unique global variable name to store dialog info (setq *DHSomPoly@ (list nil "" "")) ) ;_ Fin de if (setq Value1$ nil List1@ nil Som 0 ) ;_ Fin de setq (while (setq lay (tblnext "LAYER" (not lay))) (if (not (wcmatch (cdr (assoc 2 lay)) "*|*")) (setq List1@ (cons (cdr (assoc 2 lay)) List1@)) ) ;_ Fin de if ) ;_ Fin de while (setq List1@ (vl-sort List1@ '<)) (setq Dcl_Id% (load_dialog "SelectCalque.dcl")) (new_dialog "SelectCalque" Dcl_Id%) ; Set Dialog Initial Settings (set_tile "Title" "Sélection de calques") (set_tile_list "List1" List1@ Value1$) ;*Included ;; Dialog Actions (action_tile "List1" "(set_multilist_value \"List1@\" \"Value1$\")") ;;*Included (setq Return# (start_dialog)) ;; Unload Dialog (unload_dialog Dcl_Id%) (setq LstCalq Value1$) (foreach calque LstCalq (setq Dist (polyLengthByLayer calque)) (princ (strcat "\nLe calque '" calque "' contient " (rtos Dist 2 1) "m") ;_ Fin de strcat ) ;_ Fin de if (setq Som (+ Som Dist)) ) ;_ Fin de foreach (princ (strcat "\nPour un total de : " (rtos Som 2 1) "m")) (princ) ) ;_ Fin de defun ;;; ;;; (defun polyLengthByLayer (layer / len ss) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) ;_ Fin de or (setq len 0) (if (ssget "_X" (list '(0 . "lwpolyline") (cons 8 layer) (cons 410 "Model")) ) ;_ Fin de ssget (progn (vlax-for pl (setq ss (vla-get-ActiveSelectionSet *acdoc*)) (setq len (+ len (vla-get-Length pl))) ) ;_ Fin de vlax-for (vla-Delete ss) ) ;_ Fin de progn ) ;_ Fin de if len ) ;_ Fin de defun ;;; (defun set_tile_list (KeyName$ ListName@ Selected / Item) (start_list KeyName$ 3) (mapcar 'add_list ListName@) (end_list) (foreach Item (if (listp Selected) Selected (list Selected) ) ;_ Fin de if (if (member Item ListName@) (set_tile KeyName$ (itoa (- (length ListName@) (length (member Item ListName@)))) ) ;_ Fin de set_tile ) ;if ) ;foreach ) ;defun set_tile_list ;;; (defun set_list_value (SentList$ SentVar$ / SaveVar$ SubList@) (setq SubList@ (eval (read SentList$))) (setq SaveVar$ (eval (read SentVar$))) (set (read SentVar$) (nth (atoi $value) SubList@)) (if (= (eval (read SentVar$)) "") (progn (set (read SentVar$) SaveVar$) (set_tile_list $key SubList@ SaveVar$) ) ;progn ) ;if (princ) ) ;defun set_list_value ;;; (defun set_multilist_value (SentList$ SentVar$ / SubList@) (setq SubList@ (eval (read SentList$))) (set (read SentVar$) (list (nth (atoi $value) SubList@))) (setq $value (substr $value (+ (strlen (itoa (atoi $value))) 2))) (while (/= $value "") (set (read SentVar$) (append (eval (read SentVar$)) (list (nth (atoi $value) SubList@)) ) ;_ Fin de append ) ;set (setq $value (substr $value (+ (strlen (itoa (atoi $value))) 2))) ) ;while ) ;defun set_multilist_value ;;; ;;; ;; ListBox (gile) ;; Boite de dialogue permettant un ou plusieurs choix dans une liste ;; ;; Arguments ;; title : le titre de la boite de dialogue (chaîne) ;; msg ; message (chaîne), "" ou nil pour aucun ;; keylab : une liste d'association du type ((key1 . label1) (key2 . label2) ...) ;; flag : 0 = liste déroulante ;; 1 = liste choix unique ;; 2 = liste choix multipes ;; ;; Retour : la clé de l'option (flag = 0 ou 1) ou la liste des clés des options (flag = 2) ;; ;; Exemple d'utilisation ;; (listbox "Présentation" "Choisir une présentation" (mapcar 'cons (layoutlist) (layoutlist)) 1) (defun ListBox (title msg keylab flag / tmp file dcl_id choice) (setq tmp (vl-filename-mktemp "tmp.dcl") file (open tmp "w") ) ;_ Fin de setq (write-line (strcat "ListBox:dialog{label=\"" title "\";") file) (if (and msg (/= msg "")) (write-line (strcat ":text{label=\"" msg "\";}") file) ) ;_ Fin de if (write-line (cond ((= 0 flag) "spacer;:popup_list{key=\"lst\";") ((= 1 flag) "spacer;:list_box{key=\"lst\";") (T "spacer;:list_box{key=\"lst\";multiple_select=true;") ) ;_ Fin de cond file ) ;_ Fin de write-line (write-line "}spacer;ok_cancel;}" file) (close file) (setq dcl_id (load_dialog tmp)) (if (not (new_dialog "ListBox" dcl_id)) (exit) ) ;_ Fin de if (start_list "lst") (mapcar 'add_list (mapcar 'cdr keylab)) (end_list) (action_tile "accept" "(or (= (get_tile \"lst\") \"\") (if (= 2 flag) (progn (foreach n (str2lst (get_tile \"lst\") \" \") (setq choice (cons (nth (atoi n) (mapcar 'car keylab)) choice))) (setq choice (reverse choice))) (setq choice (nth (atoi (get_tile \"lst\")) (mapcar 'car keylab))))) (done_dialog)" ) ;_ Fin de action_tile (start_dialog) (unload_dialog dcl_id) (vl-file-delete tmp) choice ) ;_ Fin de defun Attention, mon lisp, merci à Maître (gile), ne travaille QUE dans l'espace "Objet"... La commande est : DHSomPoly

Sur un AutoCAD LT, oui...

Étonnant... Je ne peux malheureusement rien faire pour toi... Désolé...

Ben tu as raison, normalement le dessin devrait se fermer sans demander une sauvegarde... Peut-être une macro ou un lisp qui se lance avant de quitter ?

Salut. Avant de fermer ton dessin, y-a-t'il un * après le nom dans l'onglet ?

+1, sur les deux points...

Tout pareil... Et fini les problèmes...

Salut... +1 avec Maître (gile)...(forcément) Son "Introduction à AutoLISP" est une merveille, je le consulte plusieurs fois par jour quand j'ai un lisp à faire ! ! Il y décrit aussi le mode "pas à pas"

Cette fois-ci, ils ont remplacé un mot anglais par un ensemble de mots français : Mél = Messagerie électronique... Pour le V de DVD, je le savais... J'aurais parié un paquet que didier serait de la course... ;)

C'est effectivement drôle, puis inquiétant... On finira par Essehncéèfe, ou Ératépé...

Il va falloir que CadXP organise un meeting national (voir plus, si on pense à nos expatreiés comme didier par exemple) pour faire rencontrer tous ses membres... ;) Par-ce que payer des coups virtuels, c'est pas le top... :P

Heureusement que mercredi sera férié... ;) Je ferai bien le saut vers un ZWCad, mais certains trucs me manqueraient trop, et je ne saurais pas les faire en Lisp, comme le carroyage par exemple, la transformation des polylignes 2D en 3D, les courbes de niveaux, les profils en long et en travers...

Non, je ne pense pas, mais perso, je tape un texte avant l'attribut : Département : AUBE Commune : TROYES ... ...

Salut. ZWCAD le fait très bien sur son site... ;) Ça donne à réfléchir...

Je pense que tu peut continuer d'utiliser ton bloc, mais sans le décomposer... Il faut créer des attributs. Tu peut même penser aux Gabarits... Il y a pas mal d'aides dans divers PDF et vidéos sur le net. Je te conseil de te procurer les excellents PDF de RebCAO, dans le "Module de base", il détail (chapitre 19) la fabrication d'un cartouche.

Je pense qu'une fois la propriété créée, tu insert un champs (Catégorie de champs : Document) dans ton bloc et tu choisi ta "propriété". PS : tu modifie ton bloc avant l'insertion.

Salut. Je ne saisi pas bien, l'utilisateur doit retaper les propriétés personnalisées ? ? Ne serait-ce pas ce que tu as avec la commande "_DWGPROPS" ?

Salut à tous. Et merci pour vos réponses, elle m'ont bien aidées... Denis...