GEGEMATIC

Salut, PowerClic comporte la commande qui t'intéresse : XRETRIEVE voir ici par contre il faut installer PowerClic, pas sur qu'il marche pour 2017. sinon il me semble que Patrick_35 a quelque chose pour gérer les xref : voir ce sujet a+ Gégé

Salut Patrick, bien entendu, dans mes nouvelles routines, je n'utilise plus command. mais j'ai un capital de 3.8 mo de code lisp, dont une bonne partie (comme PowerClic) a été développée avant que le vlisp soit adopté (une grosse partie a été développée sous dos, avec pctools, puis Norton editeur ...) toutes ces routines nous servent à une fréquence allant de 3ans à 10mn pour celle qui nous servent tous les jours, une réécriture est rentable pour celles qui ne servent que tous les 3 ans, une astuce est préférable ... a+ Gégé

Salut, je sors du sujet talus, mais pour le message : j'avais trouvé cette astuce elle ne marche pas à 100% (voir l'exemple du mapcar de Gille) mais ça m'a permis de n'avoir que 5% de mes appels de commandes à reprendre, sur des milliers de lignes de code. a+ gégé

salut, la subtilité c'est qu'il faut traduire la propriété remplace '("Dubloc" 0 "Dubloc" 0 0 -3) par '("ByBlock" 0 "ByBlock" 0 0 -3) et ça va très bien marcher ! sinon je trouve ton truc très bien fait, avec le lambda sur 2 listes ... a+ gégé

salut, Patrick Emin avait fait un très bon tuto sur l'utilisation de l'environnement Autocad pour la 3d, je ne le retrouve pas, je crois qu'il était sur feu Augi.fr Il faut lui demander de le retrouver ... a+ Gégé

Salut, bienvenu au club : l'import export shape est très minimaliste sous map: par exemple le format date n'existe pas. moi j'ai dû bricoler une routine VBA pour corriger mes exports. je pense que le crabe ne me contredira pas... a+ gégé

Bonne année à tous, meilleurs vœux de bonne santé corporelle, car pour notre santé mentale, ça dépendra plus de la stabilité des produits Autodesk ! Gégé

salut, est-ce que tu as map ou civil ? l'export dgn est intégré. après je pense que bentley view, gratuit, doit permettre la traduction. (a voir) a+ gégé

salut, c'est bien d'avoir un avis comme celui d'olivier pour éviter que le sujet dérape en "tous contre Autodesk" comme tous les logiciels, Autocad s'est alourdi avec les fonctionnalités. mais on ne peu pas tout mettre sur le dos de la ligne de commande intuitive: la lenteur du moteur graphique d'Autocad est inadmissible pour un logiciel de ce prix. Téléchargez une version de microstation et vous allez comprendre qu'un logiciel qui en fait à peu près autant, qui travaille sur du dwg natif peut le faire vite, et sans générer des erreurs qui l’empêcheront de rouvrir un dessin qu'il a lui même généré ... même avec le bim et la 3d, le travail avec un outil "2d" comme autocad restera nécessaire dans pas mal de cas, donc je crois qu'autodesk fait une erreur en abandonnant le développement d'autocad. a+ gégé

Salut à tous, dès que j'utilise une coupe à plan séquent, la section (emballage en langage Autodesk ...) apparait une fois sur 2, a chaque coupure de la ligne, le trait d'emballage apparait ou disparait pour en être sur, j'ai dirigé le trait d'emballage vers un calque, j'ai décomposé la coupe, les traits sont présents une fois sur 2 http://www.g-eaux.com/download/Coupe_plan_sequent.PNG Avez-vous eu ce problème ? une méthode pour le corriger ? Pour éviter le plan séquent dans les vue en plan, il y a cette méthode: http://cadxp.com/topic/28925-plan-de-coupe-sur-mur/page__p__157576__hl__%2Bcouper+%2Btoutes+%2Bles+%2Bouvertures__fromsearch__1#entry157576 mais je l'ai testée sans succès: peut être un manque d’explications ? merci d'avance, Gégé

J'ai l'impression que tu ne t'es pas aperçu que j'ai adapté ta routine, te pas la mienne ! donc elle est bien autonome dis moi si ça marche chez toi aussi bien que chez moi !

Re salut vieux crabe, je t'ai rajouté: - un paramètre pour multiplier la hauteur du texte pour la recherche - un filtre de calque pour ne pas attraper d'autre poly que le cniv - ça efface les textes - ca met en rouge les polylignes changéescar les autres on ne les connait pas ... a+ Gégé ;;;;;; http://www.cadtutor.net/forum/showthread.php?65776-Assigning-Elevations-to-Polylines-from-Text./page2 ;; (c) Juan Villarreal ;; Routine "AutoElevate" will automatically elevate segments by selecting linework within a starting and max radius ;; of the midpoint of text or mtext objects ;; Starting radius = (/ textheight 4), radius increment = (/ radius 2), max radius = (* radius 25) ;; Currently searches using a decagon shape ;; (M)Text objects are skipped once max radius is reached. ;; Last edited by jvillarreal; 11th Jan 2012 at 06:54 pm. ;; radius = 1.0 Rayon de recherche ??? ... voir aussi maxrad ... MYSTERIEUX !!! (defun ssget->vla-list (ss / i ename allobj facteur);Charles Alan Butler (if ss (progn (setq i -1) (while (setq ename (ssname ss (setq i (1+ i)))) (setq allobj (cons (vlax-ename->vla-object ename) allobj)) ) allobj)) ) (vl-load-com) (defun c:autoelevate (/ linework number ent elist elevat circle newradius numlines ActDoc bb pt1 pt2 insxpt midpoint count maxrad radius j oPol calque ) (setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object))) (vla-EndUndoMark ActDoc) (vla-StartUndoMark ActDoc) (setq count 0) (setq facteur (getreal "\nFacteur multiplicateur du rayon de recherche basé sur la hauteur du texte ?" ) ) (setq calque (getstring "\nFiltre de calque pour les polyligne (* ou ? acceptés)")) (prompt "\nSélectionnez les texte d'altitude") (ssget) (vlax-for i (vla-get-activeselectionset (vla-get-ActiveDocument (vlax-get-Acad-Object)) ) (if (member (vla-get-objectname i) '("AcDbMText" "AcDbText")) (progn (vl-catch-all-apply 'vla-getboundingbox (list i 'minpoint 'maxpoint) ) (setq pt1 (vlax-safearray->list minpoint) pt2 (vlax-safearray->list maxpoint) midpoint (mapcar '(lambda (a B) (/ (+ a B) 2.0)) pt1 pt2) inc (/ (* pi 2) 10) radius (/ (vla-get-height i) 1.0) ;<----------------------------------------------- Starting radius-Change as necessary newradius radius maxrad (* facteur radius) ;<---------------------------------------------------------- Maximum radius--Change as necessary elevat nil ) (while (and (<= newradius maxrad) (null elevat)) (setq plist nil n 0 ) (while (<= n 10) (setq n (1+ n) plist (append plist (list (polar midpoint (* inc n) newradius)) ) ) ) (setq newradius (+ newradius (/ radius 2))) (if (and (setq linework (ssget->vla-list (ssget "_CP" plist (list (cons 0 "*POLYLINE")(cons 8 calque))) ) ) (setq number (vla-get-textstring i)) (setq elevat (atof number)) ) ;and (progn (setq j 0) (while (< j (length linework)) (vla-put-elevation (setq oPol (nth j linework)) elevat) (setq count (1+ count) j (1+ j) ) (vla-put-color oPol 1) ) (vla-erase i) ) ) ) ;while ) ;progn ) ;if ) ;vlax-for (vla-EndUndoMark ActDoc) (princ (strcat "\nProcess Complete..." (itoa count) " Segments Elevated. " ) ) (princ) ) ;defun autoelevate (defun c:aev ()(c:autoelevate))

Salut mon pauvre Crabe qui sèche ! je n'avais pas sous la main exactement ce que tu voulais, mais je te l'ai bricolé à partir d'une commande proche: maintenant il s'agit d'un plug-in PowerClic, je n'ai pas le temps de te faire une commande "standalone" aujourd'hui. voilà le flux: Avec PowerClic tu sélectionne les textes d'altitude et tu choisis d'appliquer le plug-in "ChelevPolyproche" à ta sélection le programme te demande le délimiteur (entrée pour rien) par exemple quand le texte est de type: "Levé du 15/16/203 Cote Tn: 1.25" le délimiteur parfait sera "Tn:" pour ne pas avoir comme altitude la date. Puis il te demande un rayon de recherche: c'est la distance entre le pt d'insertion du texte et la polyligne: la je te conseille d'utiliser la commande justifier, Milieu centre pour tes textes puis un filtre de calque pour tes polylignes: tu peut utiliser des jokers comme ? ou * exemple : "CNIV*" Pour l'utiliser, il te faut installer PowerClic et placer le code dans un fichier type ChelevPolyProche.lsp et placer ce fichier dans le répertoire plug-in de powerclic a+ gégé ; **************************************************************************** ;;§/topo/ inserre un bloc à la place de textes fournies par des géometres a la valeur z du texte/none ; (pw_pluggin_register '("ChelevPolyProche" ( "TEXT" "MTEXT" "MULTILEADER") ("Change l'élévation des objets proches d'un texte d'altitude"))) (defun ChelevPolyProche( / sel lent i en l eng modif z eg tp pins sep ss) (c:stripformatload) (setq sep (SPACE=NIL (getstring t "\nChaine marquant le début de la cote Z ? entrée pour aucun"))) (pw_bydefault "factz" 1.0) (pw_getrealmem "\nfacteur multiplicateur en z ? " "factz") (pw_getrealmem "\nrayon de recherche ? " "rayon") (pw_getstringmem "\nFiltre de calque ? " "calque") (setq sel (pw_select_only_ctab (ssget "_p"))) (setq lent (pw_listsel sel)) (setq i 0) ;(setq blnam (cdr (assoc 2 (entget (car (entsel (pw_getxt 'PW97 "\nSelectionner le bloc à inserer :"))))))) (pw_setvar1 "attreq" 0) (foreach l lent (setq i (+ 1 i)) (setq eg (entget l)) (setq tp (cdr (assoc 0 eg))) (setq txt (vla-get-TextString (setq eo (pw_to_object l)) )) (setq txt (stripformat txt "*")) (if sep (setq txt (last (pw_l_word_off_string txt sep))) ) (cond ((= "MULTILEADER" tp) (setq pins (pw_mleader_fleche_position l)) ) (t (setq pins (PW_scg2scu (cdr (assoc 10 eg)))) ) ) (if (numberp (setq z (pw_find_1st_num txt))) (progn ;;suivant pour topocad ;(command "_insert" "Spotblk1" pins "1" "1" "0" (itoa i) (rtos (last pins)) ) ;(command "_insert" blnam pins "1" "1" "0" (rtos (last pins)) ) (setq pins (list (car pins) (cadr pins) (setq z (* factz z)))) (setq ss (SELECT_CROSS_AROUND pins nil rayon (list (cons 8 calque)))) (command "_change" (eval ss) "" "_p" "_elev" z "") ;;; (command "_point" pins ) ) ) ) (pw_setvar2 "attreq" ) ) ;******************************************************** ;§**/SELECTIONS/ selectionne des éléments Nadiaa (selon filtre) au point pt / pt delta-mini delta-maxi filtre ;;effectue une selection par capture polygonale autour d'un point, avec un filtre, en étendant au maximum 4 fois le périmetre ;;de delta-min à delta-max, jusqu'a ce qu'il est trouvé qq chose ;;verifie avec pw_verif_select_crosspolygon ;;ex:(SELECT_CROSS_AROUND (getpoint) 0.1 0.5 '((8 . "E-BOUCLE"))) ;;(SELECT_CROSS_AROUND (getpoint) 0.1 1.4 '((8 . "E-TRO*"))) ;; si delta-mini = nil, ne cherche qu'une seule fois avec delta-maxi ;;(setq ss (SELECT_CROSS_AROUND (getpoint) nil 1.4 '((8 . "E-TRO*")))) (defun select_cross_around (pt delta-mini delta-maxi filtre / ss delta inc-delta ls) (if delta-mini (progn (if (>= delta-mini delta-maxi) (progn (setq delta-maxi delta-mini) (prompt "\nIncohérence dans select_cross_around, delta-mini >= delta-maxi" ) ) ) (setq inc-delta (/ (- delta-maxi delta-mini) 3.0)) (if (= 0.0 inc-delta) (setq inc-delta 1.0) ) (setq delta delta-mini) ) (setq delta delta-maxi inc-delta 1000.0 ;_il ne servira qu'une fois ) ) (while (and (not ss) (<= delta delta-maxi)) ;;cherche autour du point par un polygone (setq ls (pw_mk_lsomPolygon pt delta 8)) (setq ss (ssget "_Cp" ls filtre)) (if ss (setq ss (verif_js_around_pt ss pt delta)) ;;; (setq ss (pw_verif_select_crosspolygon ss ls));_verifie que le ssget n'a pas été altéré par la taille des pixels (zoom extents) ) (setq delta (+ delta inc-delta)) ) ss ) ;;******************************************************** ;;§**/SELECTIONS/ verifie que le jeux de selection ss est bien proche de pt à delta pres / ss pt delta ;;retourne le js qui est conforme ;;le jeux de selction ss doit être uniquement composé de curve ou de multilignes ;;(verif_js_around_pt (ssget) (getpoint) 1.0) (defun verif_js_around_pt (ss pt delta / js ljs) (setq pt (pw_pt_2d pt)) (setq ljs (pw_listsel ss)) (setq js (ssadd)) (foreach l ljs (if (setq ptacc (new_pro l pt)) (if (<= (distance (pw_pt_2d ptacc) pt) delta) (setq js (ssadd l js)) ) ) ) js )

Salut, tien je connaissais pas ce jav de Patrick, il va m’être bien utile aujourd’hui même ! a+ Gégé

Salut, ce vieux plug-in pour PowerClicles passe en jaune et les sélectionne. après tu n'as plus qu'a les mettre dans un calque non imprimable. (tu peux créer le calque avec un sufixe directement à partir du dialogue PowerClic) a+ gégé ;******************************************************************************* ;; showbaddim ;;§/plugg/Montre les cotes forcées - show forced dim./none ;; register this plug-in for dimension (pw_pluggin_register '("showbaddim" ("DIMENSION" "ARC_DIMENSION")("Montre les cotes forcées" "-" "show forced dim" ))) ;;definition de la commande - function definition (defun showbaddim ( / sel1 sell l eg olt col mode) (setq mode (pw_ch_choix "Change color or Text value ?" "Color Text" "Text")) (if (= mode "COLOR") (setq col (itoa (acad_colordlg 256))) ) ;;selection obtenue avant (par powerclic) (pw_select_only_ctab (ssget "_p")) (if (setq sel1 (ssget "_p" '((-4 . "<NOT")(-4 . "<OR")(1 . "*<>*")(1 . "")(-4 . "OR>")(-4 . "NOT>")))) (progn (if (= mode "TEXT") (progn (setq sell (pw_listsel sel1)) (foreach l sell (setq eg (entget l)) (setq olt (assoc 1 eg)) (setq eg (subst '(1 . "<>") olt eg)) (entmod eg) (entupd l) ) ) (command "_chprop" sel1 "" "_color" col "") ) ) (Prompt "\nNo bad dimensions") ) )

salut à tous, Pour moi le problème est résolu, en ouvrant ce dessin avec la 2016, le modifiant et le sauvegardant, mais je poste quand même le dessin, car c'est un vrai échantillon pour la science ... ouvrez le dessin "pour_forum" qui référence 160460-Plan Parcellaire_L3.dwg, passez dans l'espace objet, puis revenez sur la présentation "det_1", c'est le plantage assuré. (enfin avec un civil 3d 2015 et un mep 2015) sous 2016: aucun problème. J'ai pensé à un problèmes de hachures (densité) mais finalement je n'ai rien trouvé d'anormal. a+ gégé pour_forum.zip

Salut, ce qu'il y a de sur, c'est que c'était avec des drivers open/gl donc ça a peut être changé donc ce n'est pas lié au type de mémoire, il me suffit d'acheter une autre barette est c'est réglé ? Gégé

Salut le crabe, C'est la question que je me pose: d'après la doc hp, avec le proc que j'ai, la vitesse mémoire est limitée a 2133 je mes suis donc dit qu'il était inutile d'acheter de la 2400. je pensais que même si ma mémoire était de la 2400, elle fonctionnerait à 2133: peut être que je me suis trompé. Ou alors, tout rentrera dans l'ordre (retour à un indice 7.9) si je rajoute un deuxième barette de 16go ? ça a été un dilemme quand j'ai acheté cette station, prendre le proc d'ancienne génération à 3.7ghz plutôt que le nouveau à 3.5. Au final j'ai pris la station comme elle était, car dès que l'on sort des clous, la facture explose. C'est une K2200, et par rapport à ma précédente, une quadro 2000, c'est le jour et la nuit: la Q2000 n'avait qu'1 go de mémoire, celle ci en a 4, la 3d devient assez fluide, même sous autocad ! Je suis attaché aux cartes certifiées, parcequ'avec des carte gammer, j'ai eu des tas de problème de précision (grips à coté des arrêtes, dédoublement de faces 3d etc ...) J'avais bien vu le poste sur les stations type "gammer", mais au final, j’arrivais à un prix supérieur avec des tas de problèmes potentiel (place pour les ventilateurs, pilotes hdi) donc j'avais pris HP (février 2015) a+ gégé

salut à tous, j'avais une station avec 16g0, j'ai voulu acheter 16go supplémentaires en m'appuyant sur la doc, j'ai choisi de la 2133, puisque j'ai un xéon E5-1620 v3 . j'avais bien ouvert le châssis pour voir combien de module j'avais, je n'en ai vu qu'un: donc j'ai pris une barrette de 16g0. au moment de l'installer, j'ai vu ma connerie: il y a 2 emplacement mémoires différents, j'avais 2 barrettes il me semble que les PC n'aiment pas les nombres impaires, mais je l'ai quand même installé sur le slot 3, et il l'a reconnue en lisant la doc hp, je vois qu'il y a des configurations Good, Fair, Better Best : mais il n'y a pas la mienne dedans... j'ai fait un test de performance windows, et sur la mémoire je suis passé de 7.9 à 7.7 est-ce que la mémoire installée était de la 2400, ou est-ce que c'est ma configuration qui ralenti l'indice ? qu'en pensez-vous ? Gégé

La question a déjà été posée sur cadxp (en 2005 !) http://cadxp.com/topic/4570-materiaux-transparents/page__p__21227__hl__transparent__fromsearch__1#entry21227 et sur le forum autodesk https://forums.autodesk.com/t5/autocad-architecture-forum/make-a-wall-transparent-in-2d-section-elevation/m-p/2293313/highlight/true#M17044 mais elle est pour moi sans réponse : là j'ai bien l'impression que ça ne marchera que pour une vue, et non pour une coupe 2D et concrètement, je ne vois pas comment faire. beaucoup d'autres sujets en parlent, mais ça ne marche que pour les rendus. une idée ? Gégé

Salut, Ben en fait parfois si, par exemple pour exporter un fichier de pt avec matricule qui est un agrégat de plusieurs levé topographiques différents que l'on a assemblé. J'ai un très vieux code pour ça, sous forme de plug-in Powerclic tu peu t'en inspirer ou installer PowerClic. a+ Gégé ) ;****************************************************************************** ;§/POWERTEXTOOLS/Fonction d' incrémentation numérique pour une selection de bloc /none ; variable en ballade pw-dep pw-inc pw-nbex pw-dpx pw-dpy ; (pw_pluggin_register '("automatic_numbering" ( "INSERT")("Numérotation automatique d'une sélection de blocs" "Automatic numbering of a selection set of blocks" ))) (defun automatic_numbering ( / tmp sel lselcmdrso attid ebloc lselrso ) (pw_bydefault "mode-protect" "Non") (pw_getkwordmem "\nEcraser les valeurs non nulle des numéros ?/Non Oui/" "mode-protect") (setq sel (pw_select_only_ctab (ssget "_p"))) (setq lselcmdrso (pw_listsel sel)) (setq pw-dep-att (caar (setq attid (pw_extatt (car lselcmdrso))))) ;; chaine de depart brute, 1er attribut (pw_setvar1 "cmdecho" 0) ;init incrément (if (not pw-inc) (setq pw-inc 1) ) (setq tmp pw-dep-att) (prompt (pw_getxt 'PW137 "\nLa chaine peut être une lettre, un nombre ou les deux. ex: 1, V2P, P, VANNE")) (pw_getstringmem (pw_getxt 'PW134 "\nNombre ou chaine de départ ?") "pw-dep-att") (pw_getrealmem (pw_getxt 'PW213 "\nL'incrément actuel est : ") "pw-inc") ;; demande à l'utilisateur de confirmer l'incrément (if (/= tmp pw-dep-att) (pw_mdfatt (car lselcmdrso) pw-dep-att) ) (setq lselrso (cdr lselcmdrso)) (foreach ebloc lselrso (setq cc-lastent ebloc) (if (= "Oui" mode-protect) (progn (setq pw-dep-att (pw_inc_ch pw-dep-att pw-inc));;incrémente ;; remplace l'attribut par sa nouvelle valeur (pw_mdfatt ebloc pw-dep-att) ) (progn (setq valatt (caar (PW_EXTATT ebloc))) (if (or (not (SPACE=NIL valatt)) (wcmatch valatt "`[*`]")) (progn (setq pw-dep-att (pw_inc_ch pw-dep-att pw-inc));;incrémente ;; remplace l'attribut par sa nouvelle valeur (pw_mdfatt ebloc pw-dep-att) ) (prompt "\nValeur présente") ) ) ) ) (setq cc-lastent nil) (pw_setvar2 "cmdecho" ) )

salut, Il n'y a pas d'option à cocher lors de l'importation. j'avais une commande LISP pour convertir une ligne en polyligne en transférant toute les données d'objet, mais je ne m'en sert presque jamais, car en lisp la lecture et l'écriture de DO est très lente. j'utilise plutôt la commande map de nettoyage de dessin, pour laquelle je ne mets rien dans "opérations de nettoyage" mais dans méthode de nettoyage, je coche "ligne en polyligne" c'est nettement plus rapide que mon traitement lisp ... a+ Gégé

Génial merci, c'est déjà une grosse avancée, mais pour le poteau, je sèche, et ça rend vraiment mon plan incompréhensible bon il faut que je lise l'aide d'architectural qui répond à beaucoup de mes questions ... a+ Gégé

salut, pour être plus large, je l'ai posté sur architecture: forum archi mais tout le monde est bienvenu ! a+ gégé

Salut à tous, les habitués de ce forum pourront rigoler en allant faire un tour sur le forum "Autocad Mep" en voyant les questions que je m'y pose ... mais en fait, je viens de découvrir que si Autocad mep contient tout architecture, ce n'est pas le cas de l'aide: par exemple, une page de l'aide cruciale pour comprendre les coupes n'est absolument pas présente dans l'aide mep, ni dans le manuel de référence. Si ce document devrait me permettre de m'en sortir tout seul, je demande de l'aide pour aller plus vite : J'ai 2 problèmes que je n'arrive pas à résoudre sur mes coupes: - J'ai des poteaux béton rond, que j'ai modélisé en élément de structure. dans les coupes, les traits vue et des trait imaginaires, de représentation de la circularité, ont la même épaisseur ! après analyse en sélectionnant le composant, je m’aperçoit que tous les traits cyan épais sont de même nature: Composant d'affichage : Sous-division 1 Affichage contrôlé par :‘ Style d'élévation/de coupe 2D Standard MEP (Masqué) Représentation d’affichage: Général c'est débile, car certains trait existent, d'autres pas ... comment faire pour avoir les trait de représentation en trait fin et gris clairs ? comment supprimer les lignes cachées de ces traits fictifs ? - Pour représenter des caillebotis,j'utilise un styles de dalle avec un matériau caillebotis mon problème c'est que j'arrive bien à contrôler l'affichage différencié des hachures par matériau (repère 3) mais pour l'emballage extérieur (repères 1 et 4) : impossibles de les différencier, même d'un mur à un dalle de même la partie vue d'une découpe dans le caillebotis (repère 2) qui est en sous division 1, et qui du coup, s'affiche comme mes colonnes alors que je voudrais un trait plus fin pour la section d'un caillebotis que d'un mur en béton, ça me semble logique ? d'avance merci de m'aider sur ces 2 point qui m’empêchent d'avoir un rendu correct ... Gégé