jpeg

Bonjour j'ai aussi des ralentissement lorsque j’insère des PDF alors je les transforme en jpeg ou tiff (puis calage dans mon dessin pour redessiner les réseaux existants des DT) Bye

dans covadis 3d profils en travers par polylignes 3d puis courbe de profils en long = positions sur profils merci

;;;================================================================= ;;; ;;; PAT V1.01 ;;; ;;; Mettre tous les attributs à la même valeur ;;; ;;; Copyright © Patrick_35 ;;; ;;;================================================================= (defun c:pat(/ bl choix dcl_id doc js ent fic lay liste_bl liste_at liste_att lst n modif nom_bloc old old_error posbl posat resultat rep sav sel tot val_at *errmat* MsgBox modif_at rech_at affiche affiche_va rech_bl rech_blat dirbox affiche_rep rechercher_blocs ouvrir_dessin_dbx) ;;;--------------------------------------------------------------- ;;; ;;; Gestion des erreurs ;;; ;;;--------------------------------------------------------------- (defun *errmat* (msg) (or (member (strcase msg) '("FUNCTION CANCELLED" ""QUIT / EXIT ABORT"" "FONCTION ANNULEE" "QUITTER / SORTIR ABANDON")) (princ (strcat "\nErreur : " msg)) ) (setq *error* old_error) (unload_dialog dcl_id) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) (princ) ) ;;;--------------------------------------------------------------- ;;; ;;; Afficher un message ;;; ;;;--------------------------------------------------------------- (defun MsgBox (Titre Bouttons Message / Reponse WshShell) (setq WshShell (vlax-create-object "WScript.Shell")) (setq Reponse (vlax-invoke WshShell 'Popup Message 0 Titre (itoa Bouttons))) (vlax-release-object WshShell) Reponse ) ;;;--------------------------------------------------------------- ;;; ;;; Choix du répertoire ;;; ;;;--------------------------------------------------------------- (defun dirbox(txt / cdl rep) (if (setq cdl (vlax-create-object "Shell.Application")) (progn (and (setq rep (vlax-invoke cdl 'browseforfolder 0 txt 512 "")) (setq rep (vlax-get-property (vlax-get-property rep 'self) 'path)) ) (vlax-release-object cdl) ) ) rep ) ;;;--------------------------------------------------------------- ;;; ;;; Ouvrir un dessin via ObjectDbx ;;; ;;;--------------------------------------------------------------- (defun ouvrir_dessin_dbx(dwg / dbx) (if (< (atoi (substr (getvar "ACADVER") 1 2)) 16) (setq dbx (vlax-create-object "ObjectDBX.AxDbDocument")) (setq dbx (vlax-create-object (strcat "ObjectDBX.AxDbDocument." (substr (getvar "ACADVER") 1 2)))) ) (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-open (list dbx dwg))) (progn (vlax-release-object dbx) nil ) dbx ) ) ;;;--------------------------------------------------------------- ;;; ;;; Rechercher les attributs d'un bloc ;;; ;;;--------------------------------------------------------------- (defun rech_at(nom / at bl tb) (setq bl (vla-item (vla-get-blocks doc) nom)) (vlax-for at bl (and (eq (vla-get-objectname at) "AcDbAttributeDefinition") (if (eq (vla-get-constant at) :vlax-true) (setq tb (cons (list (vla-get-tagstring at)) tb)) (setq tb (cons (cons (vla-get-tagstring at) (if (eq (vla-get-promptstring at) "") (vla-get-tagstring at) (vla-get-promptstring at) ) ) tb ) ) ) ) ) (reverse tb) ) ;;;--------------------------------------------------------------- ;;; ;;; Afficher les attributs d'un bloc ;;; ;;;--------------------------------------------------------------- (defun affiche(/ val) (if (setq liste_at (rech_at (nth (atoi posbl) liste_bl))) (progn (foreach val (list "txtat" "listeat" "txtva" "valeur" "accept" "sel" "nou" "pre" "suf") (mode_tile val 0) ) (start_list "listeat") (mapcar '(lambda (x) (if (cdr x) (add_list (cdr x)) (add_list (strcat "Constant-->" (car x))) ) ) liste_at) (end_list) (affiche_va) ) (foreach val (list "listeat" "txtva" "valeur" "accept" "sel" "nou" "pre" "suf") (mode_tile val 1) ) ) (set_tile "sel" sel) (set_tile "valeur" val_at) (affiche_rep rep) ) ;;;--------------------------------------------------------------- ;;; ;;; Affiche le Répertoire ;;; ;;;--------------------------------------------------------------- (defun affiche_rep(txt / sel) (if (> (strlen txt) 46) (setq txt (strcat (substr txt 1 3) "...." (substr txt (- (strlen txt) 45)))) ) (set_tile "txt" (strcat "Actuel : " txt)) ) ;;;--------------------------------------------------------------- ;;; ;;; Griser si attribut constant ;;; ;;;--------------------------------------------------------------- (defun affiche_va() (mode_tile "valeur" 0) (mode_tile "accept" 0) (or (cdr (nth (atoi posat) liste_at)) (progn (mode_tile "valeur" 1) (mode_tile "accept" 1) ) ) ) ;;;--------------------------------------------------------------- ;;; ;;; Modifier le texte de l'attribut ;;; ;;;--------------------------------------------------------------- (defun modif_at(ent / lst att) (and (eq nom_bloc (if (vlax-property-available-p ent 'effectivename) (vla-get-effectivename ent) (vla-get-name ent) ) ) (not (eq (cdr (nth (atoi posat) liste_at)) "")) (progn (setq lst (vlax-invoke ent 'getattributes) att (nth (atoi posat) lst) modif T ) (cond ((eq choix "nou") (vla-put-textstring att val_at) ) ((eq choix "pre") (vla-put-textstring att (strcat val_at (vla-get-textstring att))) ) (T (vla-put-textstring att (strcat (vla-get-textstring att) val_at)) ) ) ) ) ) ;;;--------------------------------------------------------------- ;;; ;;; Sélection d'un bloc pour récuperer son nom ;;; ;;;--------------------------------------------------------------- (defun rech_bl(/ lst nom sel) (defun nom(val) (setq val (vlax-ename->vla-object val)) (if (vlax-property-available-p val 'effectivename) (vla-get-effectivename val) (vla-get-name val) ) ) (and (setq sel (entsel "\nVeuillez sélectionner un bloc : ")) (eq (cdr (assoc 0 (entget (car sel)))) "INSERT") (setq lst (member (nom (car sel)) liste_bl)) (setq posbl (itoa (- (length liste_bl) (length lst)))) ) ) ;;;--------------------------------------------------------------- ;;; ;;; Sélection d'un attribut pour récuperer son étiquette et le nom du bloc ;;; ;;;--------------------------------------------------------------- (defun rech_blat(/ att bl lst sel) (and (setq sel (nentsel "\nVeuillez sélectionner un attribut : ")) (eq (vla-get-objectname (setq att (vlax-ename->vla-object (car sel)))) "AcDbAttribute") (not (vl-catch-all-error-p (setq bl (vl-catch-all-apply 'vla-objectidtoobject (list (vla-get-database att) (vla-get-ownerid att)))))) (setq lst (member (if (vlax-property-available-p bl 'effectivename) (vla-get-effectivename bl) (vla-get-name bl) ) liste_bl ) ) (setq posbl (itoa (- (length liste_bl) (length lst))) posat "0") (setq liste_att (rech_at (vla-get-name bl))) (setq lst (mapcar 'vla-get-objectid (vlax-invoke bl 'getattributes))) (setq posat (itoa (- (length lst) (length (member (vla-get-objectid att) lst))))) ) ) ;;;--------------------------------------------------------------- ;;; ;;; Rechercher les blocs dans le document référencé ;;; ;;;--------------------------------------------------------------- (defun rechercher_blocs(env / ava bl ent express lay lok tot) (if (member "acetutil.arx" (arx)) (setq express T ava 0 tot 0) ) (vlax-for lay (vla-get-layers env) (and (eq (vla-get-lock lay) :vlax-true) (setq lok (cons lay lok)) (vla-put-lock lay :vlax-false) ) ) (vlax-for lay (vla-get-layouts env) (and express (setq tot (+ tot (vla-get-count (vla-get-block lay)))) ) ) (and express (acet-ui-progress-init "" tot) ) (vlax-for lay (vla-get-layouts env) (vlax-for ent (vla-get-block lay) (and express (setq ava (1+ ava)) (acet-ui-progress-safe ava) ) (and (eq (vla-get-objectname ent) "AcDbBlockReference") (modif_at ent) ) ) ) (foreach lay lok (vla-put-lock lay :vlax-true) ) (and express (acet-ui-progress-done) ) ) ;;;--------------------------------------------------------------- ;;; ;;; Routine principale. ;;; ;;;--------------------------------------------------------------- (vl-load-com) (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) (setq Old_Error *error* *error* *errmat* doc (vla-get-activedocument (vlax-get-acad-object))) (if (setq dcl_id (findfile "Pat.dcl")) (progn (vlax-for bl (vla-get-blocks doc) (or (wcmatch (vla-get-name bl) "`**,*|*") (eq (vla-get-isxref bl) :vlax-true) (setq liste_bl (cons (vla-get-name bl) liste_bl)) ) ) (if liste_bl (progn (setq dcl_id (load_dialog dcl_id) liste_bl (acad_strlsort liste_bl) val_at "" posbl "0" posat "0" sel "1" choix "nou" rep (substr (getvar "dwgprefix") 1 (1- (strlen (getvar "dwgprefix")))) old rep ) (while (and (/= resultat 0) (/= resultat 1) ) (new_dialog "pat" dcl_id) (set_tile "titre" "PAT V1.01") (set_tile choix "1") (affiche) (mode_tile "cancel" 2) (start_list "listebl") (mapcar 'add_list liste_bl) (end_list) (set_tile "listebl" posbl) (and liste_att (set_tile "listeat" posat) ) (action_tile "listebl" "(setq posbl $value)(affiche)") (action_tile "chbl" "(done_dialog 2)") (action_tile "listeat" "(setq posat $value)(affiche_va)") (action_tile "chat" "(done_dialog 3)") (action_tile "valeur" "(setq val_at $value)") (action_tile "sel" "(setq sel $value)") (action_tile "rep" "(done_dialog 4)") (action_tile "nou" "(setq choix \"nou\")") (action_tile "pre" "(setq choix \"pre\")") (action_tile "suf" "(setq choix \"suf\")") (action_tile "cancel" "(done_dialog 0)") (action_tile "accept" "(done_dialog 1)") (setq resultat (start_dialog)) (cond ((eq resultat 1) (setq nom_bloc (nth (atoi posbl) liste_bl)) (if liste_at (progn (and (eq sel "1") (progn (princ (strcat "\n Travail sur " (getvar "dwgname") " (dessin courant)"))(princ) (rechercher_blocs doc) (princ " ...OK")(princ) ) ) (if (setq lst (vl-directory-files rep "*.dwg" 1)) (progn (and (eq (strcase rep) (strcase (substr (getvar "dwgprefix") 1 (1- (strlen (getvar "dwgprefix")))))) (setq lst (vl-remove (getvar "dwgname") lst)) ) (foreach fic lst (setq sav nil modif nil) (if (and (not (vl-catch-all-error-p (setq lay (vl-catch-all-apply 'vla-item (list (vla-get-documents (vlax-get-acad-object)) fic))))) (eq (vla-get-path lay) rep) ) (setq doc lay) (setq doc (ouvrir_dessin_dbx (strcat rep "/" fic)) sav T ) ) (if doc (progn (princ (strcat "\n Travail sur " fic))(princ) (rechercher_blocs doc) (if modif (if sav (progn (princ " ...sauvegarde")(princ) (vla-saveas doc (strcat rep "/" fic)) (princ " ...OK") ) (princ " ...déjà chargé, REGEN nécessaire si vous l'activez pour voir les modifications.") ) (princ " ...n'a pas été modifié.") ) (princ) (vlax-release-object doc) ) ) ) ) (msgbox "PAT" 64 (strcat "Pas de dessin dans " rep)) ) ) (msgbox "PAT" 48 "Bloc sans attribut") ) ) ((eq resultat 2) (rech_bl) ) ((eq resultat 3) (rech_blat) ) ((eq resultat 4) (if (setq rep (dirbox "Choisissez un répertoire pour traiter tous les dessins et changer la valeur de l'attribut sélectionné.")) (setq old rep) (setq rep old) ) ) ) ) (unload_dialog dcl_id) ) (msgbox "PAT" 48 "Pas de bloc dans le dessin") ) ) (msgbox "PAT" 16 "Le fichier PAT.DCL est introuvable.") ) (setq *error* Old_Error) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) (princ) ) (setq nom_lisp "PAT") (if (/= app nil) (if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp) (princ (strcat "..." nom_lisp " chargé.")) (princ (strcat "\n" nom_lisp ".LSP Chargé.....Tapez " nom_lisp " pour l'éxecuter."))) (princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter."))) (setq nom_lisp nil) (princ)

Bonjour j'utilise un lisp de patrick_35 (PAT V1.01 Mettre tous les attributs à la même valeur) pour modifier les valeurs de mon cartouche Cdt

Bonjour, je ne retrouve pas la commande pour placer une marque de type une croix rouge sur mes PT indiquant la position sur l'axe de mon futur projet (en cliquant la courbe projet dans mon profil en long) je suis en train de confondre avec une commande de Covadis est ce que cela peut se faire avec AUTOPISTE V15b je veux placer une marque sur les PT en cliquant la courbe du projet en attendant vos réponses je cherche!! Merci

Bonjour, il faut exporter le giratoire(depuis le dessin origine) Puis l'importer dans le nouveau fichier dessin les commandes sont dans le module carrefours et giratoires Covadis V15c je viens de voir que tu es en V13 alors la je sèche !! Cdt

Bonjour est-ce tu peux renommer le *.tmp en *.dwg désolé si je ne réponds pas totalement à ta demande Cdt

Bonjour tu peux rechercher sur CADXP ou bien voir ce sujet avec l'adresse suivante http://cadxp.com/topic/43487-config-tour-portable/page__p__249110__hl__ordinateur__fromsearch__1#entry249110 bonne lecture Cdt

Bj je confirme jai une Citroën Cdt

Bonjour un grand merci à l’équipe pour le retour de Cadxp vous nous manquiez depuis une petite semaine Bonne journée

le 26 Octobre demain Quoi!!

Bonjour est-ce qu'un CADXPIEN sera à ce RDV à paris le 28 Octobre j’ai appris hier soir par mon boss que je serai à cette journée parisienne: Maquette numérique en infrastructure : perspectives d’avenir Cdt

le scanner est connecté à un ordi depuis cet ordi tous les softs du scanner sont installés puis un paramétrage, un raccourci réseau pour avoir les fichiers scannés dans le serveur de l'entreprise on peux scanner un plan pendant une impression meme si l'imprimante est en panne il y a possibilité de nettoyer un plan,d'utiliser un clé USB je pense que tu trouveras des infos sur les temps pour scanner un A0 noir et couleur avec des résolutions 200,300 dpi etc.. Cdt

bonjour nous utilisons pour les impressions un canon IPF825 avec cartouches 700ml et un scanner M40 les impressions sont sur du papier normal 90gr au trait et avec aplats couleurs une bonne définition du tracé et couleurs cela change de notre ancien traceur OCE colorwave 300 Cdt

j'ai bien utilisé la commande -purger puis TO et appsenreg mais il refuse de renommer le giratoire Cdt

Bonjour j'ai un souci pour renommer un giratoire dans un fichier dessin jai le message suivant le nom "Giratoire Languedoc" est déjà utilisé j'ai effacé tous les objets et vider les calques du giratoire concerné et purger puis fermer et ré-ouvert le dessin mais je ne peux toujours pas renommer est ce qu'il y a un manip à faire en plus Cdt

je viens de faire un export depuis carto exploreur en Lambert 93 d'un point en TXT et jai réussi à lire le fichier avec Covadis chargement d'un semis puis je transforme en CC45 Cdt

Bonjour j'ai un reçu un diagnostic d'ouvrages existants(mur, buses) en fiche A4 au format PDF chaque fiche comporte une coordonnées GPS j'aimerais récupérer les coordonnées de toutes les fiches (80 fiches)(manuellement) dans un fichier de type excel ou TXT puis importer dans autocad MAP sous forme de point j'ai fais des essais avec carto-exploreur en exportant en DXF mais lorsque j'ouvre le DXF j’ai des erreurs voir message ci aprés (Groupe 39 inconnu pour la table à la ligne 56. Entrée DXF incomplète ou non valable -- dessin ignoré) est-ce que vous connaissez une manip pour réaliser cela Cdt

Bonjour, j'ai reçu un plan d'une commune je dois utiliser ce plan mais lorsque je l'ouvre j’ai une bannière m'indiquant qu'il s’agit d'une version éducative je ne voudrais pas polluer mes autres fichiers professionnels Comment faire pour supprimer les traces laissées par cette version Ctd

merci pour vos réponses et le temps passé sur les tests j'ai dans mon fichier xyz 1699588 lignes soit autant de pts comme mon but est de faire une MNT puis extraire une zone je vais utiliser l'assistant MNT objet bonne semaine à tous merci

Bonjour je dois lire un fichier avec une extension ***.xyz je suppose un fichier de pts topo j'ai essayé d'importer dans un fichier excel, cela ne rentre pas dans une feuille en sachant qu'un feuille représente 65536 lignes soit plus de 130000 pts à lire lorsque je charge le semis de pts en utilisant Covadis 2d / points topographiques/ j'ai paramétré le fichier de points à traiter mon autocad commence à charger puis plus rien au mieux le petit cercle bleu de la souris j'ai attendu un peu pour voir mais toujours en attente comme si totodesk était planté j'ai fait un essai en tronçonnant le fichier pour avoir moins de pts et miracle jai bien des pts topo comment est ce que vous feriez et est-ce que je laisse tourner mon autocad pour lire les 150000 pts bien cordialement

bonjour il faut penser à l’utilitaire de transfert de licence cordialement

merci à Lommig je suis passé à coté de l’icône je viens de tester la manip impeccable à bientôt La demande est close

Salut à tous J'ai réalisé plusieurs variante de giratoire J'aimerais importer dans un nouveau fichier un dés giratoire calculé et conserver ses propriétés je trouve dans le module carrefours/giratoires la commande importer (format xml) mais comment faire un export de mon projet giratoire ? si non comment faites vous cette manipulation de copier et coller ? merci pour vos réponses

voir aussi PROXYNOTICE = 1