fograf02

Je suis pas sur d'avoir bien compris ton truc open-mind, mais je crois que c'est similaire a ma solution. Ce que javais en tete: eteindre le calque textes dans l'xRef inseree, copier ces textes dans la page a imprimer sur un calque visible, et faire un miroir general autour du point d'insertion pour les textes, idem pour les cotes. Mais c'est vraiment pas elegant, et en plus ca va poser pb pour les textes des bulles de cotes qui vont surement se retrouver decales dans le texte en miroir. Ya vraiment rien de plus efficace apres 25ans qu'autocad existe ??

Ca roule, merci Christian

Bonjour, On a des sous traitants en Chine. Ils nous envoye des dessins dans lesquels ya une fonte manquante. Big Font @extfont2.shx Apparemment d'apres google c'est une font japonaise. Mais c'est comme espece invasive, ca se recopie dans les blocs crees a partir de ces dessins. C'est pas bien mechant, mais maintenant a chaque ouverture de fichier on a une fenetre de fonte manquante qu'il faut annuller. A la longue c'est tres tres enervant. Est-ce qqun a cette fonte? comment je peux la trouver? Ou alors, comment eviter la fenetre d'avertissement a chaque ouverture de fichier? merci

Bonjour, La trame de mon batiment est un xRef appelle sur chaque plan. Mon plan est un autre xRef appele dans la page a imprimer. J'ai 2 batiments symetriques, donc... je fais un mirroir.. Probleme: les textes des bulles de la trame et les cotes sont lus a l'envers (mirrtext ne marche pas pour les textes dans blocs/xrefs) Qqun a une soluce? merci

SOLIDHIST a 0: Pour l'instant ca a l'air de marcher mais je n'ai plus bcp d'operations a faire en ce moment. Donnerai plus de nouvelles quand je retravaillerai dessus.

Dans les proprietes, l'historique etait regle sur non, donc... non

Bonjour, Est-ce qu'il y a qque chose que je puisse faire pour pouvoir continuer a faire du booleen sur un solide apres ce message: The maximum number of history nodes in a solid would be exceeded. You may want to convert the solid to a brep. ?? PS. J'ai pas du tout envie de le recommencer a 0 perque mon solide il est effectivement complique,..ca va me prendre un temps fou et un brep, non merci je veux faire du booleen merci

yep, merci bred (defun c:JJ () (command "pedit" "M" (ssget) "" "j" "0" "" "x")) ca marche

Pourquoi j'etais mal parti?: je lance la commande pedit, je selectionne une ligne, il me demande si je veux la transformer en pline, je suis d'accord, ensuite je fais joindre, selectionne les lignes a ajouter et.. ca foire... bon, mais de toute facon ya un pb avec le lisp de de witte: error: bad argument type: lselsetp nil

ok sur, mais (defun c:JJ () (command "PEDIT" (ENTSEL "")"" "Y" "J" "")) ne marche tjrs pas

Bonjour, Cette tentative etait censee selectionner des lignes et les transformer en une pline. Pourquoi ca ne marche pas? (defun c:JJ () (command "PEDIT" """" "J" "")) merci

pb:J'ai des xrefs qui ont ete inserees en chemin complet. Comme je travaille sur un autre ordi, je voudrais leur donner un chemin d'acces relatif. question: Comment faire sans etre oblige de les reinserer 1par1? merci

Bonjour, Ma boite (des architectes americains) va m'envoyer 4mois a Abu Dhabi pour participer au developpement d'une structure sur place. Probleme, nous avons tres peu de contacts Europeens. Y-a-t-il des lecteurs qui sont la-bas (ou a Dubai)? des gens qui ont deja fait cette experience? Comment se passent les relations avec les entreprises de construction, et avec les administrations? Y-a-t-il des codes de construction accessibles en Francais ou en Anglais? Quelle est la part d'"economie informelle' dans le processus de construction? Si vous connaissez, ca m'interesse de communiquer avec vous, et si vous etes la-bas, on peut se rencontrer. merci

... mais ca m'enerve. Quand je tape xref, il ouvre la fenetre de dialogue de gestion des xref et images. ok. mais pour la refermer, est-ce qu'il y a un raccourci, ou est-ce que je dois toujours cliquer la petite croix rouge?

Et est-ce que je peux purger d'un coup tous les materiaux qui ne sont plus dans le dessin? merci

Ameliorations possibles: Pour l'instant REA me demande de copier un texte, et ensuite le transforme en la surface. 1/ Comment creer un texte directement, sans copier un existant? 2/ Je voudrais en fait avoir 2 instances du texte qui se mettent a jour: 1 dans les surfaces du dessin, et le meme dans un tableau de surfaces a cote. Comment faire en utilisant la meme polyligne (pour l'instant quand une pline est deja 'utilisee' on ne peut plus la saisir pour un 2eme calcul? merci

Merci gile, ca marche, Alors on met le signe / avant la fonction, c'est ca que je ne savais pas, je persistais a la mettre avant le diviseur et donc ca n'allait pas. J'avais compris le coup du 0 pour arrondir, mais comme il calculait en pouce, il le transformait en pied, (12"= 1') d'ou le rapport de 12

ok si je remplace (strcat (rtos (vla-get-area obj) 2 1) "0 m2")) par (strcat (rtos (vla-get-area obj) 3 0) " sq.ft.")) j'obtiens un resultat du style: 23916'-9" sq.ft. 1/ c'est cette fois trop grand par un facteur 12: Comment je fais pour le diviser par 12? 2/J'ai toujours le pb d'unite: je voudrais qu'il affiche 23917 sq.ft. (=sans les " et les -9" qui sont le symbole des pieds/pouces, et juste avec juste le resultat dans l'unite la plus grande). Si ce n'est pas possible par le calcul, puis-je rajouter une ligne de code qui va les supprimer du resultat affiche? merci

Bonjour, j'utilisais une superbe commande de patrick35, REA (calcul de surfaces interactif, voir ci dessous) quand je travaillais en metres (heureux temps!). Helas maintenant je suis en pieds/pouces, donc bien sur ca ne marche plus: le resultat s'affiche sous la forme qui correspond a mes unites, par exemple 253'-7"1/8 (=253 pieds, 7pouces1/8e), ce qui est absurde car sont des unites de longueur et non de surface, et en plus fausses par un rapport de 12. Donc je voudrais l'actualiser. Il faut que: -Le resultat obtenu soit multiplie par 12. -qu'il s'inscrive sans symbole unites: 253 et rien d'autre. -qu'il inscrive le nom de l'unite de surface a la fin (=en l'occurence sq.ft.) ps. si en plus ca pouvait arrondir a la valeur inferieure/superieure ca m'arrangerait encore plus. Des pistes pour un mauvais lispeur? j'ai essaye de le bricoler moi-meme mais je ne suis arrive a rien qui fonctionne. merci Voila la commande: (defun modif_poly(obj rea arg-list) (if (and (vlax-read-enabled-p obj)(vlax-read-enabled-p (vlr-data rea))) (vla-put-textstring (vlr-data rea) (strcat (rtos (vla-get-area obj) 2 1) "0 m2")) (vlr-remove rea) ) ) (defun effacer_pt(obj rea arg-list) (vlax-ldata-delete obj "Patrick_35" (vlr-data rea)) (vlax-ldata-delete (vlr-data rea) "Patrick_35" obj) (vlr-remove rea) ) (defun c:rea(/ n sel_poly sel_text) (while (not sel_poly) (setq sel_poly (car (entsel "\nSélection de la polyligne/spline/cercle : "))) (if sel_poly (if (or (= (cdr (assoc 0 (entget sel_poly))) "POLYLINE") (= (cdr (assoc 0 (entget sel_poly))) "LWPOLYLINE") (= (cdr (assoc 0 (entget sel_poly))) "SPLINE") (= (cdr (assoc 0 (entget sel_poly))) "CIRCLE")) (progn (setq sel_poly (vlax-ename->vla-object sel_poly)) (if (/= (vla-get-objectname sel_poly) "AcDbCircle") (if (= :vlax-false (vla-get-closed sel_poly)) (progn (alert "Cette Polyligne/Spline n'est pas fermée") (setq sel_poly nil) ) ) ) (if sel_poly (if (vlax-ldata-get sel_poly "Patrick_35") (progn (alert "Polyligne/Spline/Cercle déjà associé à un texte") (setq sel_poly nil) ) ) ) ) (progn (alert "Ce n'est pas une Polyligne/Spline/Cercle") (setq sel_poly nil) ) ) ) ) (if sel_poly (progn (while (not sel_text) (setq sel_text (car (entsel "\nSélection du texte : "))) (if sel_text (if (or (= (cdr (assoc 0 (entget sel_text))) "TEXT") (= (cdr (assoc 0 (entget sel_text))) "MTEXT")) (progn (setq sel_text (vlax-ename->vla-object sel_text)) (if (vlax-ldata-get sel_text "Patrick_35") (progn (alert "Texte déjà associé à une Polyligne/Spline/Cercle") (setq sel_text nil) ) ) ) (progn (setq sel_text nil) (alert "Ce n'est pas un texte") ) ) ) ) (if sel_text (progn (vla-put-textstring sel_text (rtos (vla-get-area sel_poly))) (vlr-object-reactor (list sel_poly) sel_text '((:vlr-modified . modif_poly)(:vlr-erased . effacer_pt))) (vlr-object-reactor (list sel_text) sel_poly '((:vlr-erased . effacer_pt))) (vlax-ldata-put sel_poly "Patrick_35" sel_text) (vlax-ldata-put sel_text "Patrick_35" sel_poly) ) ) ) ) (princ) ) (defun refaire_reacteurs(/ entp entt n) (vl-load-com) (if (not appli_patrick_35) (progn (setq appli_patrick_35 (ssget "x" (list (cons 102 "{ACAD_XDICTIONARY")))) (if appli_patrick_35 (progn (setq n 0) (while (setq entp (ssname appli_patrick_35 n)) (setq entp (vlax-ename->vla-object entp)) (setq entt (vlax-ldata-get entp "Patrick_35")) (vlr-object-reactor (list entp) entt '((:vlr-modified . modif_poly)(:vlr-erased . effacer_pt))) (vlr-object-reactor (list entt) entp '((:vlr-erased . effacer_pt))) (setq n (1+ n)) ) ) ) ) ) (princ) ) (refaire_reacteurs)

Merci Lesourd2.mais...mmouais...en effet ca marche pour les attributs, mais pas du tout pour les xrefs (Gile), est-ce que tu penses que ce que je cherche est possible, un mirroir d'xref qui marcherait aussi pour les xrefs imbriques, et qui garderait les textes a leur point d'accroche et dans leur sens d'origine, ou alors un truc comme ce lisp mais qui fonctionnerait en xref pour tous les textes d'un seul coup. A priori, intuitivement ca me parait tres complique...

Lesourd2, j'aimerais bien l'essayer; comment il s'appelle ce lisp? et ou l'as-tu trouve?

Ludwig, Mirrext est a 0, donc pas de pb tant que je suis dans le fichier de l'xRef: je peux le retourner tant que je veux. Par contre quand je suis dans le fichier de ma feuille d'impression, la ou sont inseres tous les xrefs, ils se comportent comme des blocs sans 'intelligence': je veux dire que mis en miroir, ils inversent tout, et y compris les textes. Philphil, Aux E-U: ici le Building Permit est un truc super plus complique: d'un niveau plan d'exe avec en plus des pages et des pages de details, des elevations interieures de toutes les pieces, un monstre administratif qui peut en plus prendre des mois a etre juge. alors faut pas se rater. Oui c'est ta technique que je fais pour l'instant mais c'est une prise de tete, parce que si un jour j'oublie un truc on risque de se fare refuser parcequ'il manquera un detail sur un des plans. Non le principe d'organisation est simple: chaque apart est un xref, un plan d'etage est un xref qui appelle les aparts. Le plan final qu'on imprime n'a presque rien dessus, mais appelle le cartouche et les annotations en xref en EP, et le plan d'etage en EO. Je voudrais savoir si il y a un moyen de faire un miroir d'un xref en gardant le sens des textes, a priori je suppose que non, est-ce qqun a deja vu un lisp qui fasse ca?

oui Lili2006, c'est une bonne option, sauf que... ca ne mettra plus a jour mes xrefs et alors, quand decider que le dessin est final et qu'il est temps de lier mes xrefs parce qu'il n'y aura plus de modifs? sur ces gros projets il y a tjrs un type de porte a changer, ou une sdb a passer en handicape...si ca manque sur un des deux batiments, ici, on est bon pour un refus de PC.

Papyrus, oui mais justement c'est ce que je voudrais eviter: je ne sais pas d'ou ils viennent, et faire une recherche sur tous seriat fastidieux, d'autant que certains viennent visiblement des consultants et que je ne les ai pas. Je cherche un outil de destruction massive qui supprime de ma liste tous les xrefs qui n'existent plus dans mon dessin, imbriques ou pas, et ne garde que les 'utiles'.

lili2006, oui bien sur. mon pb c'est que les textes sont sur des xrefs differernts: les cotes par exemple sont un xref, ou les plans des apart qui sont chacun un xref qui vient avec ses textes sur le plan general, lui meme en xref