Big666

Ça ne fonctionne toujours pas------------ J’ai bien tous les lisps en place.------------- Pour le comportement :-------------- Je tapé au clavier > sf > entrée > et là rien ne se passe aucun message d’erreur. Ces 3 routines fonctionnent bien au boulot. Chez moi non je n’ai rien fait de plus ou de moins pour les faire fonctionner. Bon, je suis en confinement encore quelle que temps et ma version Auto est...de 2014 ----------------------- ;;; GetName (gile) ;;; Retourne le nom spécifié ou choisi dans la liste. ;;; Les noms entrés sont ajoutés à la liste. ;;; La liste est conservée dans le dessin. (defun getname (titre / lst what_next dcl_id nom) (if (not (vlax-ldata-get "sf" "Name")) (vlax-ldata-put "sf" "Name" '("Bain" "Cuisine" "Entrée" "Séjour" "WC")) ) (setq lst (vlax-ldata-get "sf" "Name")) (setq dcl_id (load_dialog "GetName.dcl")) (setq what_next 2) (while (>= what_next 2) (if (not (new_dialog "getname" dcl_id)) (exit) ) (start_list "pop") (mapcar 'add_list lst) (end_list) (if titre (set_tile "box" titre) ) (action_tile "pop" (strcat "(if (or (= $reason 1) (= $reason 4))" "(set_tile \"tp\" (nth (atoi $value) lst)))" "(mode_tile \"accept\" 2)" ) ) (action_tile "add" (strcat "(if (not (member (get_tile \"tp\") lst))" "(setq lst (acad_strlsort (cons (get_tile \"tp\") lst))))" "(done_dialog 2)" ) ) (action_tile "del" (strcat "(setq lst (vl-remove (get_tile \"tp\") lst))" "(done_dialog 2)" ) ) (action_tile "accept" (strcat "(if (not (read (get_tile \"tp\")))" "(progn (alert \"Spécifiez un nom, svp.\")" "(done_dialog 2))" "(progn (setq nom (get_tile \"tp\"))" "(if (and (not (member nom lst)) (/= nom ""))" "(setq lst (acad_strlsort (cons (get_tile \"tp\") lst))))" "(vlax-ldata-put \"sf\" \"Name\" lst)" "(done_dialog 1)))" ) ) (setq what_next (start_dialog)) (if (= what_next 0) (setq nom nil) ) ) (unload_dialog dcl_id) nom )

merci pour cette réponse. non cela ne fonctionne pas. bien sûr j'ai créé un dossier placé dans support .dans option Autocad j'ai pointer le dossier vers support. merci

Bonjour, L'intérait dune charte plus ou moins pousser dépand selon moi du projét. (du paviyon au centre George Pompidou …) Je me répèter peut-être, mes nous somme trois a gérer 350 au moins donc une homogenéyté ai indispensable. J'ai donc créai une charte asseé souple le tout étant que nous oiyons dans l'idél a qu'une soule lingue à loire sis l'onte peurt comparur une charte un lanjague. ------------------------- De plus, il n'y a pas de charte du type NF - AFNOR ou autre et surtout simple. Vous remarquerez que mon orthographe n'est pas des plus parfaite , imaginons que chacun a une façon décrire bien à lui comment le comprendre ? --------------------------------------------- bon ben oila

bonjour et merci pour cette réponse. bien sûr j'ai changé Pline block par SF (surface) ;;; sf -Gilles Chanteau- 13/04/07 ;;; Insère le bloc "sf" après sélection d'une polyligne ;;; Attribut 1 : Nom de la pièce ;;; Attribut 2 : Longueur de la polyligne ;;; Attribut 3 : Aire de la polyligne (defun c:sf (/ AcDoc Space bloc nom ent obj ins op reg ech id long aire ref) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (if (or (tblsearch "BLOCK" (setq bloc "sf")) (findfile (setq bloc "sf.dwg"))) (progn ;; attribut "nom de la pièce" (if (not (setq nom (getname "Nom de la pièce"))) (setq nom "") ) (while (not (setq ent (car (entsel))))) (setq obj (vlax-ename->vla-object ent)) (if (= "AcDbPolyline" (vla-get-ObjectName obj)) (progn (if (not (setq ins (getpoint "\nSpécifiez le point d'insertion ou < Centre >: "))) (progn (if (= (vla-get-closed obj) :vlax-false) (progn (vla-put-closed obj :vlax-true) (setq op T)) ) (setq reg (vlax-invoke space 'addRegion (list obj)) ins (vlax-get (car reg) 'Centroid) ) (if op (vla-put-closed obj :vlax-false) ) (vla-delete (car reg)) ) ) (if (not (vlax-ldata-get "sf" "ech")) (vlax-ldata-put "sf" "ech" 3) ) (if (not (setq ech (getreal (strcat "\nEntrez le facteur d'échelle <" (rtos (vlax-ldata-get "sf" "ech")) ">: "))) ) (setq ech (vlax-ldata-get "sf" "ech")) (vlax-ldata-put "sf" "ech" ech) ) (setq id (vla-get-ObjectID obj) ;; Attribut périmètre (mm² -> m²) aire (strcat "Surface: " "%<[url="file://\\AcObjProp"]\\AcObjProp[/url] Object(%<[url="file://\\_ObjId"]\\_ObjId[/url] " (itoa id) ">%).Area [url="file://\\f"]\\f[/url] \"%lu2%pr2%ct8[1e-0]\">%" " m²" ) ;; Attribut surface (mm -> m) long (strcat "Perimétre: " "%<[url="file://\\AcObjProp"]\\AcObjProp[/url] Object(%<[url="file://\\_ObjId"]\\_ObjId[/url] " (itoa id) ">%).Length [url="file://\\f"]\\f[/url] \"%lu2%pr2%ct8[1.00]\">%" " ml" ) ) (setq ref (vla-InsertBlock Space (vlax-3d-point (trans ins 1 0)) bloc ech ech 1 (angle '(0 0 0) (trans (getvar 'ucsxdir) 0 (trans '(0 0 1) 1 0 T))) ) ) ;; attribution de leur valeur aux attributs (mapcar '(lambda (x y) (vla-put-TextString x y)) (vlax-invoke ref 'GetAttributes) (list nom aire long) ) (vla-regen AcDoc acActiveViewport) ) (alert "L'objet sélectionné n'est pas une polyligne.") ) ) (alert "Le bloc \"sf\" est introuvable.") ) (princ) ) Pour getnam : getname:dialog{ value="Choisir un nom"; key="box"; initial_focus="tp"; :boxed_column{ label="Modifier la liste"; :row{ spacer; :edit_box{ key="tp"; edit_width=20; alignment=left; allow_accept=true; } spacer; } :row{ :button{ label="Ajouter"; key="add"; } :button{ label="Retirer"; key="del"; } } } spacer_1; :row{ spacer; :list_box{ key="pop"; width=25; } spacer; } spacer_1; ok_cancel; }

Bonjour, J’ai problème avec certain lisp. Certain fonctionne et d’autre pas :------------------ > Ong ; pline_ block (que j’ai renommé SF) >Jav lui fonctionne.--------------------- SECURELOAD et a 1 j’ai essayé a 0 et cela ne fonctionne pas aussi.------------------------ J’ai donc recréé le chemin dans : Option > Fichiers > Emplacement approuvé Là problème de sécurité L’emplacement spécifié n’est pas en lecture seule. Que voulez vous faire je clique sur continuer. Donc si vous avez d’autres idées Merci

Bonjour J’ai quand même utilisé un gabarit utilisé en cours. Arrivé là où je travaille aujourd’hui, il n’y avait qu’un calque le calque 1 (logique) ------------------------------------------------------- Depuis, je me suis battu pour faire comprendre à des gens qui avait bien plus d’expérience que moi. 1. Qu’il y avait des unités à respecter dans Autocad. 2. Un forma pour presque tout. 3. Un système de fichier DWT gabarit. 4. J’ai créé un gabarit avec certaine règle et assez souple. -------------------------------------------------- Mais quelle bataille. -------------------------------------------------- Au département 77, nous avons environ 350 sites. Grasse ou à cause du confinement, je fais des mises à la charte de plan. Je m’aperçois qu’il va falloir être moins flexible et créé d’autre réglé. Voila voila

comprend qui peut mais question PDF honte a moi

Bonjour, Incroyable, il y a plus de bonne gens que de fumiste. J'ai pratiquement fini mon calvaire, mais j'ai un autre DOE fantastique à mettre à la charte. il faut que j'en face une méthode des plus logique. Et satisfaire le démon du toujours plus vite. Merci pour toute vos réponse.

oui mais il sont gris et on des grand yeux

Bonjour.merci pour vos réponse Du coup une idée une lumière mes apparue. Hallelujah. ------------------------------------------------------------------------------------------------------- Nous pourrions lister toutes les petites fumisteries que peut faire un dessinateur. En faire une charte un code d'honneur. Pas un truc a la franc maçonne ou illuminati ou je ne sais quoi...------ Puis les remèdes à ces actes de mécréant. (pardon)------ Et c'est ainsi que Cadxp vaccina les plans de salopard sans conscience professionnelle.------ Bon si ça vous semble faisable, ça ferait l'objet d'une nouvelle rubrique--------- Code d'honneur , les contres fumisterie ou (?)

à dire vrai. J'en crois pas mes yeux de tant de ?§§§§§§§§§§§///// Mais cela expliquerait l'état de certain plan fait par des prestataires. pour exemple j'ai un fichier d'un bâtiment qui est peut être le plus important de mon département le conseil départemental.un site très compliqué.les plans un pousse au suicide.pour refaire:20 000 € et plus comme il n'y a pas de sous!au passage c'est les sous de tous le monde.

bonjour merci j'ai pratiquement fini et je découvre vos Lisps... honte à moi

en pièces jointe

bonjour. j'ai exactement ce qu'il te faux .un lisp qui en sélectionnant une poly ligne te donne la surface de la pièce tu remplis le nom de la pièces via une boite dcl ce lisp est a l'origine de Gille Chanteau il s'appelle Pline_bloc la boite dcl Getname a c'est deux fichier il faux un blocs que moi j'ai renommé SF comme surface j'ai aussi renommé le lips.mais je suis en confinement et je te retourne tout ça le plus vite possible ou recherche sur le net gille chanteau ou interroge Gille chanteau sur ce site dans la rubrique LISP

Bonjour, Merci pour cette réponse. Oui, j'ai après avoir posté mon message eu cette idée, qui fonctionne. -------------- Cependant. Les calques vont bien dans le filtre de groupe voulu. Mais il reste aussi dans le filtre d'origine. ------------- donc je les ai renommées par ------------ mais impossible de les supprimer, je pense bien sûr qu'ils sont encore le calque des objets initiaux.

Bonjour Tout en restant dans l’outil Propriété du calque gérer les calques ou gestionnaire de calque. Comment déplacer des calques d’un groupe a l’autre. J’ai cherché bien sûr avant de regarder mais point d’outils. Merci

Bonjour je suis fier de cette faute de frappe.

bonjour au secours que doit-on faire ?

Bonjour merci pour ton aide.cela fonctionne bien, dans mon cas il reste des claques mal attribué .les plans on dû être fait avec archiCadmais pour moi c'est résolu, merci encore

Olivier. ça fonctionne ce convertisseur de calque ce n'est pas l'outil miracle mais ... le fichier DWS et un fichier normé dans ce cas il est utile à quoi merci

Bonjour Une faute de frappe...-------------------------- Merci olivier, je ne comprenais pas la procédure.

onjour a toi pour moi :il y a eu 2004 la découverte. 2007 du mieux pour les hachures. 2008 les rubans Après comme je n'utilise pas tous les outils d'autocad.a chaque version je cherche ou il on mit les outils que j’utilise.les grand plus progré d'autocad je les dois plustot au lipseur de ce site. mais pour te consoler dit toi que ça fait travailler des gens.

Bonjour, Je dois mettre à notre charte graphique un nombre X de plans. (sssss)Bien sûr, je connais le convertisseur de calque, mais je ne m’en suis jamais servi. Donc si un utilisateur de cet outil existe et veux bien me filer toute sa science, je prends. Je préciserai mes besoins si un tel citoyen existe. Merci

bonjour un reniflard évite le désamorçage d'un siphon, ici je ne voie pas de garde d'eau. même s'il y a une forte pente le regard ne sera pas siphonné car il n'y a pas de garde d'eau. je pense a une fantaisie .