vincentp010

Salut, en m'aidant de ce post http://forums.augi.com/showthread.php?82733-AutoCAD-Color-Index-Index-Color-List&p=858995&viewfull=1#post858995 (vl-load-com) (defun AC-CI-2-RGB (CI / obj RGB) ;; Get a color object from the current layer (setq obj (vlax-ename->vla-object (tblobjname "LAYER" (getvar "CLAYER")))) (setq obj (vla-get-TrueColor obj)) (vla-put-ColorIndex obj CI) (setq RGB (list (vla-get-Red obj) (vla-get-Green obj) (vla-get-Blue obj))) ) (defun RGB-2-AC-CI (RGB / obj CI) ;; Get a color object from the current layer (setq obj (vlax-ename->vla-object (tblobjname "LAYER" (getvar "CLAYER")))) (setq obj (vla-get-TrueColor obj)) (vla-SetRGB obj (car RGB) (cadr RGB) (caddr RGB)) (setq CI (vla-get-ColorIndex obj)) ) (defun invertRGB (RGB) (list (- 255 (car RGB)) (- 255 (cadr RGB)) (- 255 (caddr RGB))) ) (defun invertcolor (CI / RGB) (setq RGB (AC-CI-2-RGB CI)) (setq RGB (invertRGB RGB)) (RGB-2-AC-CI RGB) )

Salut, en reprenant le lisp de DenisH pour une xref (setq Select (ssget "_X" '((0 . "INSERT") (2 . "MON_NOM_DE_XREF")))) pour toutes les xref, plus compliqué car dans la table des blocs (trouvé ici) (defun xrefsel ( / blk xrefs ) (setq blk (tblnext "BLOCK" 'T)) (while blk (if (> (logand 4 (cdr (assoc 70 blk))) 0) (progn (setq name (cdr (assoc 2 blk))) (setq xrefs (if xrefs (strcat xrefs "," name) name)) ) ) (setq blk (tblnext "BLOCK")) ) (ssget "X" (list '(0 . "INSERT") (cons 2 xrefs))) ) (setq Select (xrefsel))

C'est pas grave si le système de coordonnées n'est pas bon. Ce lisp, exécuté dans un dessin vierge, automatise le changement de coordonnées map sans les boites de dialogue. - Il définit d'abord le système de coordonnées du dessin à convertir (écrase donc "IGN-I-Grid") - Il définit ensuite le système de coordonnées du dessin courant - Puis il attache le dessin à convertir et fait une requète de dessin sur tout le plan - Ensuite il détache le dessin Tout cela sans cliquer dans 50 boites de dialogue

Le fichier DXF doit être bancal. La solution c'est d'extraire les objets en tant que nouveau fichier bloc avec la commande bloc. Ou de sélectionner tout et de faire un copier-coller dans un fichier vierge. Je bosse dans un cabinet de géomètre à Châtillon sur Seine (au Sud de Troyes :D ).

Je pense que ton fichier a un problème, il me fait planter autocad. En copiant tout tes objets dans un nouveau dessin, ça marche. En passant par Covadis, c'est bon aussi. PS: tu bosse pas loin de chez moi B)

Salut, j'ai regardé vite fait ton lisp et voici ma correction Dans la ligne action_tile "accept" il faut que tu récupères les valeurs de la boite dans des variables Quand tu vérifies si toutes les données sont rentrées, fait attention au nom de tes variables (tu avais larg1 par exemple) Plus loin, tu doit convertir tes valeurs, qui sont du texte, en nombre avec atoi ou atof (defun c:parking () (setq dcl_id (load_dialog "parkingbis.DCL")) ;charge la boite de dialogue (if (not (new_dialog "parkingbis" dcl_id) ;si il ne la trouve pas il sort "exit" ) (exit)) (action_tile "accept" "(setq nbplace (get_tile\"nbplace\") larg (get_tile\"larg\") long (get_tile\"long\") ang0 (get_tile\"ang0\")) (done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (setq ok (start_dialog)) ;test pour savoir si tout a ete entré (unload_dialog dcl_id) (if (and (= ok 1) (/= nbplace nil) (/= larg nil) (/= long nil) (/= ang0 nil)) ; si toutes les données sont rentrées (stationnement nbplace larg long ang0); on lance la fonction parking ) ;(princ) ) (defun stationnement(nbplace larg long ang0 / pt0 pt1) ;recup donné initial ;(c:initial) ;création calque (command "-calque" "E" "Stationnement" "co" "1" "stationnement" "tl" "continuous" "stationnement" "") ; Ne pas afficher dans le barre de commande toutes les étapes de calcul (setvar "cmdecho" 0) ;permet de se mettre dans le repère général (command "scu" "") ; enleve les accrochages objets (setvar "osmode" 0) ;pt0 : point de départ du stationnement dans le SCG (setq pt0 (getpoint "\nPoint de départ des places de stationnement ( pour tracer en haut de la polyligne,aller de droite à gauche ; pour tracer en bas de gauche à droite):")) ;larg : largeur des places de parking ;(setq larg (getdist "\nlargeur des places (ou 2 points) :")) (setq larg (atof larg)) ;long : longueur des places ;(setq long (getdist "\nlongueur des places (ou 2 points) :")) (setq long (atof long)) ;nbmarch : nombre de places ;(setq nplace (getint "\nNombre de places de stationnement :")) (setq nbplace (atoi nbplace)) ;ang0 : orientation angulaire / axe des x ;(setq ang0 (getangle pt0 "\nAngle d'orientation des places /Ox :")) (setq ang0 (atof ang0)) ;tracé de la 1ère place (command "polylign" pt0 "la" 0 0 (polar pt0 ang0 long ) (polar (getvar "lastpoint") (+ ang0 (/ pi 2)) larg) (polar (getvar "lastpoint") (+ ang0 pi) long) "cl";permet de clore les polyligne ) ;plaçons nous dans le scu de cette place pour pouvoir la dupliquer (command "scu" "3" pt0 (polar pt0 ang0 1)(polar pt0 (+ ang0 (/ pi 2)) 1) "reseau" "d" "" "r" nbplace 1 larg ) (command "scu" "general") )

Salut DenisH, Quel est tout souci ? As tu un message d'erreur ? Je viens de faire un test L2E -> CC48 sans problèmes. @thierry.garré Tout le monde n'a pas forcément Covadis (même si je viens de voir qu'il avait Covadis dans sa signature)

Après quelques recherches il semble que la taille limite d'un pdf soit de 200inch soit 5080mm. Cela est du à Adobe Reader qui ne sait pas lire les fichiers plus grand (foxit reader peut lire les pdf plus larges), et historiquement des drivers d'impression Windows limités aussi. Il semble qu'a partir de la spécification PDF 1.6 il soit possible de définir une valeur UserUnit pour changer l'échelle d'un dessin dans le fichier mais qu'il reste à la bonne taille à l'impression. Par contre je ne sais pas du tout avec quel logiciel on peut en créer depuis autocad.

J'annulais la commande d'insertion de bloc en plein milieu, mais ça coupe complètement le script. Le mieux est donc de finir l'insertion et de supprimer le dernier objet _-insert "NOMBLOC=C:/Users/User/Documents/NOUVEAUBLOC.dwg" _y 1 0,0 _erase _l Il y a un espace à la fin de chaque ligne.

Salut, Tu peux utiliser ce SCRIPT dans superautoscript pour redéfinir tes blocs _-insert "NOMBLOC=C:/Users/User/Documents/NOUVEAUBLOC.dwg" _y (command) Bien mettre un espace après (command) pour valider.

Ça dépend de la version d'autocad. Sur ma 2009 je n'ai pas cette possibilité.

Bonjour, C'est un peu ce que fait la fonction Covadis COVAPOLYSENS Pas mal pour ceux qui ne l'on pas. http://pix.toile-libre.org/upload/thumb/1449731176.png

Merci Lommig je ne connaissais pas PLPURGE. Si COVAPLPOINT n'est pas enregistré dans le dessin, ça me va. J'avais peur qu'il me pourrisse mes dwg de blocs. @lili2006 c'est un objet Covadis qui sert pour les profils en long. Avec PLPURGE j'ai ce message: Commande: plpurge COVADIS v13.0h : permet de purger les groupes vides de profil en long et les courbes invalides. 1 marque(s) de vue en plan supprimée(s).

Petit up. Suis je le seul à avoir ce soucis ?

Salut, regarde si la variable UCSFOLLOW est passée à la valeur 1

Bonjour à tous, Dans tous les dessins vierges que j'ouvre, j'ai un objet COVAPLPOINT qui existe, même sans utiliser les commandes de profil. Si je supprime cet objet (sélection avec QSELECT), il réapparait. Le problème c'est quand je créer des bloc en dwg et que je les insert, je me retrouve avec une multitude de COVAPLPOINT dans le dessin. Comment faire pour supprimer cet objet, surtout dans les fichiers de blocs. Si quelqu'un de Géomédia à la solution à ce problème. Config: Autocad Map 2009 - Covadis 13.0h

Salut, Regarde aussi dans les paramètres de la commande. Après avoir sélectionné l'objet source, tapes PA au clavier pour afficher la fenêtre des paramètres à copier.

Salut, tu n'as pas de boucle dans ton code. Tu peux faire: (foreach CalqSup LstCalqSup (if (tblsearch "layer" CalqSup) (command "-SUPCALQUE" "n" CalqSup "" "o") ) ;_ Fin de if ) ;_ Fin de foreach ou alors: (while LstCalqSup (if (tblsearch "layer" (car LstCalqSup)) (progn (command "-SUPCALQUE" "n" (car LstCalqSup) "" "o") (setq LstCalqSup (cdr LstCalqSup)) ) ;_ Fin de progn ) ;_ Fin de if ) ;_ Fin de while

Salut, il te manque cette ligne après le (close file) (setq Dcl_Id (load_dialog tempo))

Salut, Ça le fait chez nous aussi sur le serveur, avec n'importe quelle version d'autocad. C'est un problème réseau.

Merci pour vos réponses constructives. C'est vrai que l'on voit de plus en plus de plan fait à la va vite par des personnes non formées (je prend l'exemple d'un commercial embauché dans une boite de TP, qui se retrouve à faire de la topo avec comme seule formation celle du revendeur de l'appareil) Sinon pour répondre à lili2006 je compte bosser principalement dans les départements entre la Bourgogne et la Champagne. Rien n'est fait, je suis encore salarié. Je sais que la conjoncture actuelle n'est pas trop favorable, c'est pour cela que je poste ici pour avoir des avis de personnes dans le bain.

Bonjour à tous, Titulaire d'un BTS Géomètre-topographe, cela fait 8 ans que je bosse dans un cabinet de Géomètre-Expert en tant que technicien. Aujourd'hui le cabinet ne tourne pas bien (il y a du boulot, mais on a trop de dépenses) et je commence à me poser des questions pour l'avenir. Ça me tenterais bien de créer ma boite de topographie et de bosser seul, mais je n'y connais pas grand chose en création d'entreprise. J'envisagerai de domicilier l’activité chez moi (pas de locaux à louer) et de faire l'acquisition d'une station robotisée et d'un gps. Pensez vous que le marché est encore favorable dans ce secteur et avez vous quelques conseils pour se lancer dans l'aventure? Merci. Vincent

J'ai ça dans mes placards: (defun c:projectchange () (vl-load-com) (setq app (vlax-get-acad-object) cdoc (vla-get-activedocument app) ) (vla-purgeall cdoc) (setq fichier (getfiled "Sélection de l'ancien plan" (strcat (vl-filename-directory (vla-get-fullname cdoc)) "/") "dwg" 4)) (initget 1 "WGS84 LambertI LambertII LambertIIE LambertIII Lambert93 CC42 CC43 CC44 CC45 CC46 CC47 CC48 CC49 CC50") (setq action1 (getkword "Ancien systeme de coordonnees [WGS84/LambertI/LambertII/LambertIIE/LambertIII/Lambert93/CC42/CC43/CC44/CC45/CC46/CC47/CC48/CC49/CC50] :")) (initget 1 "WGS84 LambertI LambertII LambertIIE LambertIII Lambert93 CC42 CC43 CC44 CC45 CC46 CC47 CC48 CC49 CC50") (setq action2 (getkword "Nouveau systeme de coordonnees [WGS84/LambertI/LambertII/LambertIIE/LambertIII/Lambert93/CC42/CC43/CC44/CC45/CC46/CC47/CC48/CC49/CC50] :")) ; choose system for old file (setvar "CMDDIA" 0) (cond ((= action1 "WGS84") (command "ADESETCRDSYS" "" fichier "LL84" "_ex")) ((= action1 "LambertI") (command "ADESETCRDSYS" "" fichier "IGN-I-Grid" "_ex")) ((= action1 "LambertII") (command "ADESETCRDSYS" "" fichier "IGN-II-Grid" "_ex")) ((= action1 "LambertIIE") (command "ADESETCRDSYS" "" fichier "IGN-IIE-Grid" "_ex")) ((= action1 "LambertIII") (command "ADESETCRDSYS" "" fichier "IGN-III-Grid" "_ex")) ((= action1 "Lambert93") (command "ADESETCRDSYS" "" fichier "Lambert93" "_ex")) ((= action1 "CC42") (command "ADESETCRDSYS" "" fichier "RGF93.CC42" "_ex")) ((= action1 "CC43") (command "ADESETCRDSYS" "" fichier "RGF93.CC43" "_ex")) ((= action1 "CC44") (command "ADESETCRDSYS" "" fichier "RGF93.CC44" "_ex")) ((= action1 "CC45") (command "ADESETCRDSYS" "" fichier "RGF93.CC45" "_ex")) ((= action1 "CC46") (command "ADESETCRDSYS" "" fichier "RGF93.CC46" "_ex")) ((= action1 "CC47") (command "ADESETCRDSYS" "" fichier "RGF93.CC47" "_ex")) ((= action1 "CC48") (command "ADESETCRDSYS" "" fichier "RGF93.CC48" "_ex")) ((= action1 "CC49") (command "ADESETCRDSYS" "" fichier "RGF93.CC49" "_ex")) ((= action1 "CC50") (command "ADESETCRDSYS" "" fichier "RGF93.CC50" "_ex")) ) (setvar "CMDDIA" 1) ; choose system for current file (cond ((= action2 "WGS84") (ade_projsetwscode "LL84")) ((= action2 "LambertI") (ade_projsetwscode "IGN-I-Grid")) ((= action2 "LambertII") (ade_projsetwscode "IGN-II-Grid")) ((= action2 "LambertIIE") (ade_projsetwscode "IGN-IIE-Grid")) ((= action2 "LambertIII") (ade_projsetwscode "IGN-III-Grid")) ((= action2 "Lambert93") (ade_projsetwscode "Lambert93")) ((= action2 "CC42") (ade_projsetwscode "RGF93.CC42")) ((= action2 "CC43") (ade_projsetwscode "RGF93.CC43")) ((= action2 "CC44") (ade_projsetwscode "RGF93.CC44")) ((= action2 "CC45") (ade_projsetwscode "RGF93.CC45")) ((= action2 "CC46") (ade_projsetwscode "RGF93.CC46")) ((= action2 "CC47") (ade_projsetwscode "RGF93.CC47")) ((= action2 "CC48") (ade_projsetwscode "RGF93.CC48")) ((= action2 "CC49") (ade_projsetwscode "RGF93.CC49")) ((= action2 "CC50") (ade_projsetwscode "RGF93.CC50")) ) (setq dwg_id (ade_dsattach fichier) ) ; check if drawing was successfully attached (if dwg_id ; check if it returned an ID (progn ;tout (ade_qrydefine '("" "" "" "Location" ("All") "" )) ;desine (ade_qrysettype "draw") ;execute (ade_qryexecute) ;detach file (ade_dsdetach dwg_id) ) (print "Erreur lors de l'ouverture du dession source") ) )

Salut, tu peux le faire en lisp: (ade_projsetwscode "IGN-I-Grid") (ade_projsetwscode "Lambert93")

Une petite mise à jour qui corrige un problème avec des coordonnées GPS nulles https://www.dropbox.com/s/pdawkbm5y0159jy/exifdxf-2015-06-30.zip?dl=0