GEGEMATIC

Bon, pour être correct, je viens de voir que le support m'a bien répondu hier à 15h23, soit 3 minute après que j'ai créé ce post ! Mais le mail a été considéré comme un spam (c'est rare pour les mail sérieux mais ça arrive) du coup je ne l'ai pas vu! Voilà, tout est installé, maintenant j'attends la clé ... a+ Gégé

Salut Thierry, de mon coté je préférerai avoir une hotLine qui répond, et que ma demande de création de compte soit traitée par Sogelink. Je suis client depuis 2004, et mes accès FTP et extranet ont été désactivés. et le prix de mon abonnement a été doublé en 2 ans. Cdlt, Gérald

Salut, impossible d'installer la V17 de 2018 sur un civil 2023: covadis ne trouve pas Autocad. c'est normal. Mais impossible de se connecter à l'extranet car effacé de la base ça l'est moins. Nous n'avons que l’installateur de la V17.0 avec les patchs successifs. Si une bonne âme peut me mettre un lien vers un installateur V17 compatible avec la 2023 (en MP si pb de confidentialité) ce sera un grand merci ! a+ gégé

Salut à tous et à toutes, en relisant ce sujet de 2019 et sur les conseils avisés de Phil Phil, il semblerait que ce scanner serait bien suffisant pour notre usage. Mais j'ai encore des questions: - un copain qui a lui un trimble m'a envoyé un scan ou je pouvais relever des niveaux ngf, mesurer des cotes, grâce à une appli gratuite: est-ce que c'est possible avec LEICA ? - A quoi sert Cyclone ? l'appli serait quand même assez chère. - En prolongement, Cyclone est il utile pour Revit ? - les visualiseur Revit permettent t-il de visualiser un fichier de point ? a+ gégé

Bof, ça fait bien 5 ans qu'on utilise ça, pour modéliser les fondations des bâtiments, pas constaté de problème avec ça. on a d'autres problèmes, mais ça non ! a+, salut Gégé

Oui, c'est impossible de créer ou d’éditer le cadre depuis l'interface. on les crée ou on les modifie avec xml notepad. a+ gégé

Salut, C'est ce que nous faisons pour créer des cadres avec xml notepad Au final, je ne me rappelle plus vraiment comment j'ai fait, mais on a un réseau "obstacles", qui contient des cadres: Il me semble qu'avec xml notepad, j'ai recopié la section cadres de l'assainissement dans un réseau de type sec. par contre, on ne peut pas en créer de nouveaux avec l'interface, on les crée avec xml notepad. mais ça marche très bien. a+ Gégé

Salut copier/coller manuel d'une fenêtre à l'autre: tu peux remplacer px_setvar1 et 2 par setvar ;;************************************************************************** ;§/calques/ lit l'état gelé-libéré fen courante d'un viewport et génere la chaine layer-string-state/none ;;inspiré de Paul Turvill (defun c:PickReferenceViewport (/ v2 frz flist l1 n is-viewport) (command "_pspace") (while (not is-viewport) (prompt "\nSelectionnez la fenêtre de référence pour l'état de calques" ) (setq v2 (ssname (ssget ":s" '((0 . "viewport"))) 0) ;;; (car ;;; (entsel ;;; "\nSelectionnez la fenêtre de référence pour l'état de calques" ;;; ) ;;; ) ) ;;pick the viewport (if (= "VIEWPORT" (cdr (assoc 0 (entget v2)))) (setq is-viewport T) (prompt "\nNot a viewport, please select a viewport") ) ) (setq frz (cdadr (assoc -3 (entget v2 (list "acad"))))) ;;...and frz will contain the viewport's extended data, with each frozen ;;viewport as the argument of a different "1003" code group. ;;To get a comma-delimited list of the frozen viewports, use: (setq flist nil) (foreach n frz (if (= (car n) 1003) (setq L1 (cdr n) ;; flist (strcat flist L1 ",") flist (cons L1 flist) ) ) ;;if ) ;;flist ;;Any layer not contained in flist is thawed in the selected viewport. (setq layer-string-state flist) (vl-propagate 'layer-string-state) ) ;;************************************************************************** ;§/calques/ restaure l'état gelé-libéré fen courante à un autre viewport à partir de la chaine layer-string-state/none (defun c:PickTargetViewport (/ v2 nvport is-viewport) (while (not is-viewport) (prompt "\nSelectionnez la fenêtre cible pour l'état de calques") (setq v2 (ssname (ssget ":s" '((0 . "viewport"))) 0) ;;; (car ;;; (entsel ;;; "\nSelectionnez la fenêtre cible pour l'état de calques" ;;; ) ;;; ) ) ;;pick the viewport (if (= "VIEWPORT" (cdr (assoc 0 (setq eg (entget v2))))) (setq is-viewport T) (prompt "\nNot a viewport, please select a viewport") ) ) (setq nvport (cdr (assoc 69 eg))) (command "_mspace") (pw_setvar "cvport" nvport) (command "_VPLAYER" "_thaw" "*" "" "") (command "_VPLAYER") (foreach l layer-string-state (if (tblsearch "LAYER" l) (command "_freeze" l "") ) ) (command "") (command "_pspace") ) Pour un truc entièrement automatisé, je peux pas te donner un truc tout en un, sauf a ce que tu installe PowerClic, qui n'a pas forcément été mis à jour, désolé, mais voilà ce que j'ai: Il y a un sujet cadxp qui m'a aidé d'après le commentaire. ;;************************************************************************** ;§/Calques/propage à la 1ère active fenêtre des présentation sélectionnées un état de calque en utilisant les vues/none ;;demande d'aide: http://cadxp.com/topic/48468-assigner-un-etat-de-calque-a-un-viewport/page__pid__289778#entry289778 ;;technique alternative : PickReferenceViewport, PickTargetViewport (defun c:propage_etat_calque (/ bl lpres l eg) ;;etat de calque (optionnel) (if (setq letatcalq (pw_liste_layerState)) (progn (pw_bydefault "pw-ac-layerstate" '("aucun")) (setq pw-ac-layerstate (pw_s_lchaines3 "Choisissez un état de calque à restaurer: " (cons "aucun" letatcalq) nil pw-ac-layerstate ) ) ) ) (setq lpres (layoutlist)) (pw_bydefault "masq-calq" "*") (pw_getstringmem "\nMasque de calque pour la sélection de la fenêtre ?" "masq-calq") (pw_bydefault "l-pres" lpres) (setq l-pres (pw_s_lchaines3 "Choisir les présentations auxquelles propager l'état de calque" lpres T l-pres)) (setq colViews (vla-get-views pw-acaddocument)) (command "_pspace") (foreach l l-pres (command "_layout" "_set" l) (command "_pspace") (if (setq sel (ssget "x" (list '(0 . "viewport") (cons 8 masq-calq) (cons 410 (getvar "CTAB"))))) (progn ;(setq lvp (pw_listsel sel)) ;(foreach vp lvp ; (setq vobj (pw_to_object vp)) (command "_mspace") ;;ci dessous plante si la vue existe déjà (command "_view" "_save" l) (setq vobj (vla-item colViews l)) ;;(setq vobj (vla-add colViews l))_ne arche pas dans l'espace paier (vlax-put-property vobj 'LayerState (car pw-ac-layerstate)) ;;(vla-SetView (vla-get-ActivePViewport pw-acaddocument) vobj);_ne marche pas pour le pviwport (command "_view" "_restore" l) ;;(vla-delete vobj);_ne marche pas : si je supprime la vue, je perds l'état de calque (command "_pspace") ;) ) ) ) ;_foreach )

salut à toutes et tous J'utilise depuis longtemps des inventaires de dossier dans des fichiers excel, avec un hyperlien vers les fichiers. je constate que les hyperliens ne marchent plus avec les fichiers Autocad. j'ai un message: "Microsoft Excel attend la fin de l'exécution d'une action OLE d'une autre application." et du coté d'Autocad, ça ouvre de manière très lentes un "Autocad application", qui est en fait un "Autodesk componement", qui recherche une licence, qu'il ne trouve pas. c'est pas très grave pour moi, il faut juste que je pense à ouvrir les dwg en copient le chemin plutôt qu'avec l’hyperlien, mais à tout hasard, si vous comprenez le problème ... a+ Gégé

Merci à tous, et a Curly qui s'est donné du mal pour me sortir de la panade ! gégé

CurlyGoth m'a proposé également un truc interressant, car c'est direct dans windows: WIA Pour créer le conteneur: (setq img (vlax-create-object "WIA.ImageProcess")) Pour savoir ce qu'on peut faire avec : https://silkyroad.developpez.com/VBA/WindowsImageAcquisition/

J'ai corrigé le code, car il ne marchait pas avec les carractères accentués !

salut, encore merci, finalement j'ai opté pour la génération d'un batch en lisp, avec imagemagick, car j'ai tellement de sous répertoire que ça peut être long d'alimenter xnview, et si je change d'avis sur la taille de l'image, son format etc.. je dois tout recommencer. bien sur il y avait un piège! le maudi % dans un bat. Par réussi à régler le pb, pour l'instant j'opte pour une largeur fixe. Voilà ce que ça donne: (defun c:cree_mignatures_jpg (/ dir lfile chem nom ext f) (setq dir (pw_pick_directory "Choisir un répertoire" dir)) (setq lfile (FindFilesLike dir "*.jpg" "AllDirectories")) (setq f (open (strcat dir "\\2mignature.bat") "w")) (write-line "CHCP 1252" f) (foreach im lfile (setq chem (vl-filename-directory im) nom (vl-filename-base im) ext (vl-filename-extension im)) (write-line (strcat "magick \"" im "\" -resize 200 \"" chem "\\" nom "_mini" ext "\"") f) ) (write-line "PAUSE" f) (close f) ) pour FindfileLike: sujet findfileslike sinon il est dans la dll jointe usage (FindFilesLike "Directory" "filepattern" "mode = TopDirectoryOnly or AllDirectories") G-Eaux_Map_Extensions.dll

merci Olivier, je vois Xnview a bien évolué ! sur ta vidéo je n'ai pas vu si on pouvait rechercher les images dans les sous répertoires ? c'est ça mon problème, j'ai des tas de sous répertoire ...

Salut les gars, et merci ! Commande: (acet-sys-spawn 1 "C:\Program Files\QGIS 3.22.7\bin\o4w_env.bat") -1 et puis c'est tout ... J'ai une vielle version d'imagemagick, j'en avais besoins pour gsview il me semble, je vais télécharger la dernière xnview le fait aussi, mais avec un seul répertoire output, donc dans mon cas ça marche pas, et si tu dis que la syntaxe est compliquée ... mais je garde l'info.

En fait je me suis emballé, oui j'ai trouvé la syntaxe de gdal_translate oui je sais créer un geotiff avec Gdal_translate mais je n'ai jamais été fichu de manipuler une fenêtre d'invite de commande avec lisp: Les activex "Wscript.Shell", "Scripting.Filesystemobject" ou encore "Shell.Application" ne marchent pas pour ça je ne suis même pas capable de lancer la fenêtre osGeo dans un startapp: (startapp "C:\Program Files\QGIS 3.22.7\bin\o4w_env.bat") ne marche pas ce qui marche c'est Commande: SHELL "C:\Program Files\QGIS 3.22.7\OSGeo4W.bat" mais dans ce cas, je perd le contrôle de la fenêtre, et ça ne me sert à rien. si vous avez des idées pour créer mes miniatures ... a+ Gégé

Finalement j'ai trouvé, comme d'hab la doc est pourrie, il faut faire des test pour y arriver gdal_translate -outsize 10% 10% "Source.jpg" "source_mini.jpg" copie l'image source vers une version mini réduite à 10%

Salut à toutes et à tous, je cherche un programme pilotables via .com pour redimensionner une image et la sauvegarder avec un suffixe "_mini". J'ai bien GDAL qui doit faire ça, mais la syntaxe, avant que je trouve ! Si vous trouvez un programme en dehors de lisp qui sait faire du traitement par lot dans plusieurs répertoires différents et qui est capable de sauvegarder la miniature de l'image dans le même rep que l'image, je prends aussi ! a+ Gégé

Salut, coïncidence on a eu ce pb hier ! dans notre cas, il s'agissait d'un profil qui avait morflé, c'est courant ... on sauvegarde tous nos profils, et on fait 2 sauvegardes de nos espaces de travail, on restaure alternativement l'un ou l'autre. si ça marche pour toi ... a+ Gégé Récupérer fenêtres de commande Map Le chemin à ajouter est C:\Program Files\Autodesk\AutoCAD 2020\Map\Support\fr-FR https://knowledge.autodesk.com/support/autocad-map-3d/troubleshooting/caas/sfdcarticles/sfdcarticles/No-dialog-box-pops-up-when-you-do-a-Map-Query-in-Civil-3D-2015.html https://www.asti.com/dialog-boxes-map-commands-civil-3d-2015/

Assez bizarre, Autodesk donne sa propre définition de la "perpétuité" : c'est perpétuel sauf quand j'ai plus assez de personnel pour m’occuper de ça. en gros dénonce nos contrats unilatéralement en évoquant "notre politique" * Montesquieu, revient ! a+ gégé * je ne comprends toujours pas comment les gafam++ ont réussi à s'affranchir de toutes les lois dans tous les pays: - Uber : Le droit du travail - Google: Les lois sur la presse, la propriété intellectuelle et surtout ce qui nous touche tous, les "avis" anonymes, qui permettent de calomnier publiquement n'importe quel établissement sans aucune conséquence.

salut, je me demande si je découvre ou je redécouvre cette subtilité, mais l'ordre des entités dans un jeux de sélection est assez incompréhensible. Si je fait un (ssget "x"), ou une fenêtre de sélection, l'ordre des entités est l'ordre de création dans le dessin, la plus ancienne en 1er. si je fait une sélection entité par entité, l’ordre est inverse à mon ordre de sélection, quelque soit l'ordre de création des entités. je pense que la sélection entité par entité se comporte comme un cons, ou un ssadd, la dernière devient la 1ère. c'est assez déroutant quand on veut parcourir des entités, d'avoir un ordre qui dépends de la manière dont on les a sélectionnées. a+ Gégé

Salut, 3mm/m c'est vraiment faible, en réalisation, ça se traduit par des flaches, et les piétons apprécient sur les trottoirs ... je crois qu'il y a une erreur dans ton calcul car comme je te l'ai dis une base suffisante est 0.05 l/s/m2, qui est utilisée pour le calcul des toitures: Quand un cour intérieure déborde, c'est plus grave qu'un avaloir non ? Donc 0.05 l/s doit être assez sécure, sinon on aurait déjà changé la norme (ça viendra peut être avec le changement climatique) avec des coefs de Montana définis pour des plages grandes, genres 6mn / 4 h, on obtient facilement du 0.08 l/s/m² pour les durées de 6mn, c'est aujourd'hui envisageable dans le sud de la France, mais en Belgique, je crois que 0.05 l/s c'est déjà beaucoup: ça fait 4 bouteille de bière 75 cl par m² et par minute ! donc sauf erreur 350m² ça ferait 17.5 l/s, c'est déjà énorme ! sachant que ces pluies extrêmes ne durent normalement pas plus de 6mn, même si ton avaloir se met un peu en charge, ça ne durera pas longtemps. de plus , en cas de mise ne charge, la capacité de l'avaloir augmente ... Tu as raison de dire qu'il faut également que le réseau soit suffisant à l'aval . Un fabriquant qui donne les capacités de ses avaloirs: https://www.vonroll-hydro.world/files/content/downloads/kataloge/Entwaesserungstechnik/Catalogue-de-fonte-de-voirie.pdf bon courage ! Gégé

salut, Si tu lis ce sujet, tu verra que la problématique est plutôt coté aménagement que purement hydraulique 350 m² ça correspond à peur près à un carré de 19m, donc a peu près 20m entre deux avaloir ou grilles. pour un fil d'eau à 1cm de pente, ça fait 10 cm sur la face de la bordure de trottoir, on peut pas aller au dela sinon sur un principe hydraulique: certains fabricants donnent un débit d'avalement de leur grilles ou avaloir, ensuite tu peux partir sur un débit d'orage très violent, 0.05 l/s/m² (il y a pire, mais c'est le débit du DTU pour les toitures) tu met un coef 0.9 (perte par infiltration, temps de concentration) tu arrive à 0.045 l/s/m² la tu aura un surface par avaloir. a+ Gégé

Tu n'y échapperas pas !

Salut, je n'ai pas tout compris, mais si tu veux juste indexer des blocs, l'heur n'est pas nécessaire, puisque Autocad les empile dans leur ordre de création, donc un jeu de sélection est classé dans le même ordre. pour numéroter des blocs selon cet ordre j'utilise ce plug-in Powerclic: ;****************************************************************************** ;§/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 (pw_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" ) )