zebulon_

oui, c'est ça. isol.pat par exemple. Il faut enregistrer ce fichier dans un répertoire référencé dans outils/options/fichiers/Chemin de recherche de fichiers de supports Ensuite, tu mets ton scu dans un coin de rectangle qui doit contenir la hachure (l'origine de la hachure sera au même endroit) puis tu lances la commande FHACH. Là tu choisis : - type : personnalisation - motif personnalisé : isol (que tu peut piocher avec le bouton ...) - Angle à 90° ou à 0° suivant que c'est horizontal ou vertical - Echelle : en fonction de la largeur de ton isolation. Si tu veux 7cm, tu prends une echelle de 0.07, si tu veux 11cm c'est 0.11 etc... (ces échelles sont valables pour un travail en mètres, sinon, il faut faire le rapport d'unités) Amicalement Zebulon_

une question de régénération. Une simple regen ne régénère que le contenu de l'espace papier lui-même, mais pas le contenu des fmult. Pour cela, il faut utiliser la commande regntout. Comme autocad fait automatiquement un regntout avant d'imprimer (ou de faire un aperçu), tu n'as pas forcément la même chose à l'écran qu'à l'imprimante. Et ce n'est pas une question de rosé. Après, le PSLTSCALE à 0 te permet d'avoir la même chose au niveau type de lignes entre l'espace objet et l'espace papier, comme l'indique jalna. Personnellement, je n'utilise jamais le type de ligne "isolation", je préfère mettre une hachure. (si le motif t'intéresse, tu peux regarder ici ) D'autant plus que j'ai toujours le PSLTSCALE à 1 pour avoir le même aspect de type de ligne entre mes différentes fenêtres fmult quelle que soit leur échelle. Amicalement Zebulon_ [Edité le 12/6/2007 par zebulon_]

il y a déjà 2 soucis dans ton dcl : les bouton de radio peuvent se gérer plus simplement grâce au nom de la clé donné au groupe radio_column lui-même. Un action_tile sur cette clé récupère la valeur de la clé radio_button enfant. Ensuite, dans la popup_list tu donnes une value=16 alors que la liste ne compte que 3 éléments. Le lisp essaye désespérément se placer en 16ème position alors qu'il ne peut sde placer qu'en "0", "1" ou "2". Je te propose le dcl suivant boite_de_dialogue_corridor:dialog {label="Corridor"; :edit_box {label="largeur du corridor en m:"; edit_limit=4; edit_width=4; key=larg_corridor;} :boxed_radio_column { label="Longueur des boîtes"; key=cas; :radio_button {label="1Km"; key=cas0;} :radio_button {label="5Km"; key=cas1;} } :popup_list {label="Blocs:"; edit_width=5; key=bloc;} spacer_1; ok_cancel; } et le lisp (defun c:corridor () (setq dcl_id (load_dialog "Boite de dialogue corridor.dcl")) (if (not (new_dialog "boite_de_dialogue_corridor" dcl_id)) (exit) ) ;si il n'y a pas de boite de dialogue alors on lance le programme sans elle ;j'établit la liste des blocs qui seront insérés dans les listes déroulantes (setq liste_bloc '("li3" "lib" "b600")) ;; initialiser les variables (if (not largeur_corridor) (setq largeur_corridor "1.500")) (if (not cas) (setq cas "cas0")) (if (not position_liste) (setq position_liste "0")) ;; initialiser la boite de dialogue (set_tile "larg_corridor" largeur_corridor) (set_tile "cas" cas) (set_tile "bloc" position_liste) ;largeur du corridor (action_tile "larg_corridor" "(setq largeur_corridor $value)") ;largeur des boites (action_tile "cas" "(setq cas $value)") (start_list "bloc") (mapcar 'add_list liste_bloc) (end_list) (action_tile "bloc" "(setq position_liste $value)") (action_tile "accept" "(done_dialog 1)") ;1 pour OK ; (action_tile "cancel" "(done_dialog 0)") ;o pour Cancel ; (setq what_next (start_dialog)) (unload_dialog dcl_id) (if (= what_next 1) ;; ok (progn (setq bloc_largeur (nth (atoi position_liste) liste_bloc)) (alert (strcat "Largeur corridor : " largeur_corridor)) (alert (strcat "Cas : " Cas)) (alert (strcat "largeur bloc : " bloc_largeur)) (command "_insert" bloc_largeur pause "1" "1" "0") ) ) (princ) ) où je suppose que tu as des blocs "li3", "lib" ou "b600" disponibles dans ton fichier ou dans un répertoire référencé dans outils/option/fichier/chemin de recherche de fichier de support. Amicalement Zebulon_

de rien puisque ça ne répond pas à ta question... C'est vraiment trop bien planqué... Une suggestion pour contourner le problème. Est-ce que tu peux envisager de mettre des champs (on arrive à avoir en gros les mêmes informations qu'avec bannière) directement sur l'espace papier. L'avantage, c'est qu'on voit les champs "en live", qu'on peut les placer un peu où on veut, on a le choix du format et on peut éventuellement les mettre sur un calque particulier pour les activer ou non. C'est peut-être même mieux que BANNIERE. Amicalement Zebulon_ [Edité le 12/6/2007 par zebulon_]

Bonjour, Avec la commande en ligne _-PLOTSTAMP, on peut tout faire, sauf changer le nom du fichier pss par défaut. (tu parles toujours d'un fichier pps, c'est une faute de frappe) Donc, pour changer le nom du fichier pss par défaut on a vu qu'on pouvait le faire dans la base de registres. Pour ce qui est du reste, on devrait pouvoir se débrouiller avec des lignes du genre (command "_-plotstamp" "_on" "_f" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "") qui active la banniere ainsi que tous les champs. Et on laisse le soin à la commande -BANNIERE de crypter le fichier pss par défaut. Amicalement Zebulon_

C'est effectivement long, 5000 lignes... Amicalement Zebulon_

Bonjour, Je pense qu'il faut fouiller du côté des registres avec regedit. Tu fais une recherche de la chaine "Plot Stamp" dans regedit et tu trouveras l'entrée suivante : PSPFileName C:\Documents and Settings\Utilisateur\Application Data\Autodesk\AutoCAD 2007\R17.0\fra\support\mm.pss Je pense que ce fichier mm.pss est celui par défaut. La combine consisterait à se faire un fichier C:\mon répertoire\monpss.pss avec les paramètres voulus en utilisant la commande BANNIERE et de réaffecter l'entrée du registre avec ce nom de chemin en utilisant un vl-Registry-Write. Le chemin dans le registre est assez complexe et le plus dur va être de reconstruire le chemin... Sauf erreur on devrait y parvenir avec quelque chose comme ça (setq regline (strcat "HKEY_CURRENT_USER\\" (vlax-Product-Key) "\\Profiles\\" (vla-Get-ActiveProfile (vla-Get-Profiles (vla-Get-Preferences (vlax-Get-Acad-Object)))) "\\Dialogs\\Plot Stamp") ) Après, il faut mettre à jour l'entrée du registre (vl-Registry-Write PSPFileName regline monfichierpss) ouf... c'est la seule piste que j'ai trouvé Amicalement Zebulon_

Bonjour, (action_tile "une_clé" "(setq une_variable $value)") te mets dans la variable une_variable, la valeur en cours, sous forme de chaîne, d'un élément, telle une chaine contenue dans une boite d'édition, ou bien "1" ou "0" pour une case à cocher... Dans ton cas, c'est une liste, et $value te renvoie, toujours sous forme de chaine, la position dans la liste. Tu auras comme résultat "0", "1", "2".... ou "6". Il suffit d'aller piocher dans la liste diametre à la position renvoyée par $value en faisant quelque chose comme ça: (action_tile "une_clé" "(setq une_variable (nth (atoi $value) diametre))") Ce serait plus simple si tu éditais ton code .lsp et .dcl ici, ça nous permettrait d'y voir plus clair. N'aie pas peur, on a tous commencé un jour ;) Amicalement Zebulon_

et puis il y a le paramètre de la fonction atoi tu fais (atoi "dia_ax_semelle") qui te renvoie toujours 0 puisque "dia_ax_semelle" est une chaîne de caractère constante. Ne voulais-tu pas écrire (atoi dia_ax_semelle) et traiter le contenu de la variable dia_ax_semelle ? Même remarque pour les atoi qui suivent Amicalement Zebulon_

Oui, un navet malheureusement. Mamy fait de la résistance. Réalisé par Bruno Golnisch une production JMLP Je vous traduis une ligne du tract : ce qui donne en français Se référer à la résistance française, en allemand dans le texte, alors qu'on est au Front National, fallait oser l'amalgame. Elle a osé :mad: Les vrais résistants, ceux qui se sont élevé contre le nazisme, apprécieront. Amicalement Zebulon_

Ben tu vois, le fait d'avoir appris l'allemand me permet de détecter les kolossales conneries du Front National local. J'admets que ce n'est pas une raison suffisante pour s'y mettre, à l'allemand. Amicalement Zebulon_

C'est ça, pour l'affichage des propriétés. Par contre, quand tu pioches les informations avec la commande LISTE, on a droit à 4 chiffres après la virgule. C'est une vielle commande qui fonctionne encore comme autrefois. Pour moi aussi, c'est un bug. Les UI c'est pour arrondir des longueurs (et accessoirement des valeurs d'angles). Là, c'est un rapport d'échelle, ce qui n'a rien à voir. Amicalement Zebulon_

Bonjour, Et oui, c'est reparti pour un tour. Moi, j'ai le droit de voter dans la 4ème circonscription du Bas-Rhin. Et comme on est en Alsace et qu'il y a certaines personnes âgées ici qui parlent mieux l'allemand que le français, les professions de foi des candidats sont bilingues. Alors, imaginez la candidate du front national qui écrit : "La France et le Français d'abord"... en allemand. C'est déjà drôle en soi, mais en prime, elle nous gratifie d'une grosse faute d'orthographe sur France (elle écrit FRANKEICH au lieu de FRANKREICH), en plus dans le titre principal du tract, en lettres de 12mm de haut. http://img508.imageshack.us/img508/3936/numriser0001jf6.jpg Ce qui est moins drôle, c'est qu'elle va faire un bon score malgré tout, surtout chez les vieux. Sans vouloir relancer le débat, je dirais que je ne suis pas toujours fier d'une partie de mes concitoyens, sans pour autant renier mes origines. Amicalement Zebulon_

Bonjour, ça m'étonnerait... Sinon, pour le reste, Patrick_35 a donné la réponse et un truc du style (nth (atoi diametre_ax_semelle) diametre) devrait faire l'affaire. Amicalement Zebulon_

Bonjour, c'est parce que Donc, dans la ligne où tu trouves ssget, tu enlèves l'espace superflu. On est obligé de mettre cet espace pour éditer le code sur cadxp, sinon l'éditeur de cadxp supprime les caractères au delà du <. Amicalement Zebulon_

Salut, mon domaine principal est le génie civil et les ouvrages d'art en particulier. Et là, il est rare que le maître d'oeuvre ne demande pas de note justificative ou se contente de 3 lignes sur un coin de papier. Donc, tu n'as pas de chance et tu es tombé sur le 0.01% qui demande quelque chose. ;). Mais, je me répète, le constructeur de l'appareil doit être en mesure de te donner quelque chose, je pense. Moi, je n'ai rien de standard pour ce cas précis et ce que j'énumère plus haut est ce que je mettrais dans une note si je devais la faire. Et elle serait plus ou moins conséquente selon les conditions énumérées également (sous voie carrossable -> il faut faire une dalle au dessus - dans la nappe -> il faut faire une dalle de lestage en dessous) Amicalement Zebulon_

Bonjour, S'il s'agit d'un séparateur d'hydrocarbures enterré sous un passage de véhicule, il faudrait justifier une dalle auto-portante qui prend appui sur les bords de la fouille. Si le séparateur peut se situer sous la nappe phréatique, il faut faire une dalle béton de lestage sous l'appareil. Le poids de cette dalle doit compenser la poussée hydrostatique exercée sur l'appareil vide. On laisse des ancrages dans cette dalle pour pouvoir sangler l'appareil et éviter ainsi qu'il ne remonte sous l'effet de la poussée d'archimède. Ces ancrages sont en générale des fers à béton, traités anti-corrosion, ancrés dans la dalle sur lesquels on accroche les sangles de fixation de l'appareil. Si la nappe est toujours haute, ce qui transformerait la fouille en piscine et rendrait la mise en place de l'appareil impossible, on peut être amené à mettre en place des batardeaux (palplanches) qui ceinturent la fouille. Ensuite, on creuse à l'intérieur des batardeaux et on fait un bouchon en béton dans le fond de cette fouille, dont le poids compense la poussée hydrostatique de la nappe. Ensuite, on pompe l'eau résiduelle située à l'intérieur des batardeaux. Ce qui permet aux ouvriers de travailler au sec et de réaliser la dalle de lestage décrite ci dessus. Le plus simple est de se rapprocher du constructeur du séparateur à gros débit. Il doit avoir tout ce qu'il faut. On suppose que ce n'est pas le premier qu'il pose. Amicalement Zebulon_

Voilà la version pour homme Amicalement Zebulon_

On va se gêner... Mais faudrait quand même lui dire que son FISACAD ne marche pas bien. Amicalement Zebulon_

Bonjour, tu sélectionnes une image en faisant : (setq e (car (entsel))) tu transformes en objet vla (setq e (vlax-ename->vla-object e)) puis tu peux regarder ce qu'il y de disponible en faisant (vlax-dump-object e) et cela t'affiche quelque chose comme ça : tu as le nom de toutes les méthodes disponibles. Après il suffit de s'en servir dans ton lisp. Tu veux le nom de l'image : (setq IMGNAME (vla-get-ImageFile e)) tu veux rendre l'image invisible (vla-put-imagevisibility e 0) tu veux rendre l'image visible (vla-put-imagevisibility e -1) En principe, tu peux changer avec (vla-put...) tout ce qui n'est pas (RO) donc en lecture seule et tu as accès à tout avec (vla-get...) Voilà, j'espère ne pas être hors sujet, parce que les fichiers .tfw, ça ne me dit rien. Amicalement Zebulon_ [Edité le 31/5/2007 par zebulon_]

tu peux aussi regarder ici où on s'était déjà gratté la tête au sujet du get-boundingbox Amicalement Zebulon_

En suivant les conseils de Maximilien, ça donne : (defun c:mytcircle (/ ss e I a lay lrect rect lastent) (setq ss (ssget '((-4 . "< OR") (0 . "TEXT") (0 . "ATTDEF") (0 . "MTEXT") (-4 . "OR>"))) ) ;; charger la fonction si elle ne l'est pas (if (not bns_tcircle) (load "acettxt.lsp")) (setq lastent (entlast)) (bns_tcircle SS "Variable" "Rectangles" nil 0.5) (setq lrect nil) (while (setq lastent (entnext lastent)) (setq lrect (cons lastent lrect)) ) (setq lrect (reverse lrect)) (setq I 0) (repeat (sslength ss) (setq e (ssname ss I)) (setq rect (nth I lrect)) (setq I (+ I 1)) (setq a (entget e)) (setq lay (cdr (assoc 8 a))) (command "_change" rect "" "_p" "_la" LAY "") ) (princ) ) C'est une ruse de Sioux, Maximilien ;) Amicalement Zebulon_

Très clair. Mais comme moi, je n'utilise que des MTEXT de largeur 0, donc sans griffes (je ne savais pas que ça s'appelait comme ça), je ne comprenais pas. C'est vrai que ça fait tache le (command _explode...) au milieu du vlisp, mais l'important c'est que ça marche. Amicalement Zebulon_

Pourquoi es-tu obligé de passer par un explode ? Amicalement Zebulon_

Re, Effectivement, c'est un moyen. Mais les textes sélectionnés peuvent être sur des calques différents (pourquoi pas ?) et on ne saurait pas lequel prendre. Il faudrait ruser et remonter parallèlement les (entnext), comme tu le décris, et le jeu de sélection ss, pour mettre chaque cadre sur le calque du texte qu'il encadre. Amicalement Zebulon_