DenisHen

Salut. Perso, chez moi, il fonctionne sous AutoCAD MAP 2014 sans problème. Et je ne me souviens pas avoir installer autre chose que le lien dans le message 22. J'ai copier le VLX dans un répertoire approuvé et après son chargement, tout fonctionnait à merveille...

Salut. Tu le charges, mais tu le lances ensuite ? Avec "ReplaceTextStyle" ?

Salut didier. Je ne t'ai pas répondu car un "Comprends pô, c'est moi ça marche" ne t'aurait été d'aucune utilité... Ça aurait été un réel plaisir de te porter secours, mais là, je ne pouvais rien faire...

J'ai du mal à comprendre, tu veux écrire le texte de la distance en plus gros, ou tu veux multiplier la distance par une constante ? Cas n°1 : n'oublie pas que ton fichier de sortie est un CSV, il n'y a donc pas de mise en forme possible... Cas n°2 : Je pense que c'est ici, change cette sélection : (cons (strcat name ";" (rtos dist 2 2)) lst)Par ça (cons (strcat name ";" (rtos (* dist 0.01) 2 2)) lst) Où 0.01 est le coef, tu peux mettre autre chose...

Salut à tous. Pour afficher l'XRef et ne pas l'imprimer, perso, j'irais dans le gestionnaire des calques et j'inactiverais le tracé des calques...

Salut CADy. Merci c'est nickel...

Oh les sal*uds... Je vais les appeler... ;)

Salut. Dans ton message 11, ton lien mène à la version 18.051. Un autre lien ?

Salut à tous... J'ai le même problème chez moi, j'ai bien la commande "geocarte", j'ai bien le menu qui suit (aérienne, route...), mais AutoCAD me dit qu'il faut que je mette monAutoCAD MAP 2014 à jour. Là, j'ai bien télécharger "Autodesk® AutoCAD® 2015-2018 Geolocation Online Map Hotfix" et installer ce HotFix... Rien n'y fait, j'ai toujours mes géocartes considérées comme des "ACAD_PROXY_ENTITY"... J'ai bien accès à mon répertoire A360... Je ne sais plus tellement quoi en penser... Juste que ce n'est pas encore réellement au point... PS : j'ai exécuté le HotFix en tant qu'administrateur, pareil...

Salut. C'est peut-être c** ce que je vais dire, mais ça ne servirait pas à l'insertion d'un bloc dans un dessin qui n'auraient pas le même système de projection ? :mellow: Ou peut-être aussi pour ne pas tenir compte si le point de base du bloc ne serait pas à 0,0 ? :huh:

Encore une idée lumineuse ! ! ! ;)

+1 avec Vincent. Il serait judicieux de placer un champs plutôt qu'un texte, mais ça, je ne sais pas faire en lisp...

Salut. Une fois installé, et charger à la main, car rien n'a fonctionner automatiquement, donc, une fois charger EntGetUI.vlx à la mano... Je n'ai qu'un mot à dire... Super... la quantité de temps (et de compréhension) des analyses des différents code DXF d'une entité.. Entre autre... Maitre (gile) sera surement intéressé... Comme d'autre... Un grand merci pour cette innovation qui pourrait passer comme incontournable... EDT : je n'avais pas vu que (gile) avait déjà poster une remarque, sur les 'dumpallproperties'...

Just for La Lozère, J'ai corrigé mon premier post avec des commentaires... Mais ce sont juste MES commentaires... Denis...

C'est un code que j'ai récupéré, je ne comprend pas tout, c'est ma "méthode de travail" (ce qui va mettre Didier en colère) j'arrange des bouts de codes d'autrui pour en faire un qui me convient... Je sais que ce n'est pas une méthode AutoCADémique, mais j'ai tout de même beaucoup appris avec... Grace à des (gile), Didier, Tramber, Patrick_35... et j'en oublie tellement...

J'ai préféré une vue dans le SCU général car je ne me sers des géocartes que pour mes plans de site, qui sont toujours orientés avec le nord en haut... Content que ça plaise... :) Je pense changer le code pour ne pas à avoir rentrer le nombre de géocartes en vertical, puisque ça doit être un rapport entre la hauteur et la largeur de l'écran... Ça évitera les chevauchement...

Content d'avoir rendu service... ;)

Même problème, adresse inconnue...

Au sujet des géocartes, j'en ai dans un DWG pour un client. Il n'a pas MAP et il se retrouve avec des cadres vides... Quelqu'un aurait une explication ?

Bon. J'ai corrigé le code du premier post. Attention à ne pas trop abuser des géocarted, dans le DWG de lecrabe (141Ko), j'ai mis 10 en largeur et 6 en hauteur... Le fichier fait maintenant 266Mo ! ! ! Et toujours ce problème de chevauchement... Comprend pas trop, peut-être la différence entre hauteur et largeur...

Merci lecrabe, je teste ça sur ton DWG...

Il y a effectivement un petit problème. Je regarde ça...

En fait, il prend comme référence la vue active.

La Lozère : voici un petit bout de code qui, je pense, pourra t'être très utile...

Bonjour à tous. Suite à un sujet de La Lozère, j'ai fais ce petit bout de code qui fait un foliotage de géocartes. Il reste un petit soucis de chevauchement, mais on gagne un temps fou ! ! J'ai aussi prévu un petit décalage pour cacher la ligne "Bing"... ;;; ******************************************* ;;; Créé des géocarte en mode "Folio" ;;; Spéciale dédicace à La Lozère (CadXP.com) ;;; ******************************************* (defun c:MultiCarte () (princ "\nDéveloppé par Denis H. (vers.1.4)") (command "Geocarte" "h") (setq ;; Nombre de carte horizontales NbCarteHori (getreal "\nNombre de carte horizontales : ") ;;Nombe de carte verticale NbCarteVerti (getreal "\nNombre de carte verticales : ") ;; j'enregistre le nombre de carte horizontal pour remettre à zéro quand on est au bout de l'horizontale NbCarteHoriOrig NbCarteHori ;; j'ajoute 1 au nombre verticale à cause du décalage (ValDecal) pour supprimer le logo Bing NbCarteVerti (+ NbCarteVerti 1) ;; je suppose des trucs screen (getvar "screensize") ratio (/ (car screen) (cadr screen)) cen (getvar "viewctr") cen (trans cen 1 0) angle_rad (getvar "viewtwist") angle_rad (- (* 2 pi) angle_rad) h (getvar "viewsize") w (* h ratio) ;; Je ne suppose plus, voici les quatres points de la vue courante (ou presque comme me l'a expliqué Maître (gile) BasGauche (polar (polar cen (+ angle_rad pi) (/ w 2)) (- angle_rad (/ pi 2)) (/ h 2)) BasDroite (polar (polar cen angle_rad (/ w 2)) (- angle_rad (/ pi 2)) (/ h 2)) HautDroite (polar (polar cen angle_rad (/ w 2)) (+ angle_rad (/ pi 2)) (/ h 2)) HautGauche (polar (polar cen (+ angle_rad pi) (/ w 2)) (+ angle_rad (/ pi 2)) (/ h 2)) ;; Là, pas besoin d'être explicite Xmin (car BasGauche) Ymin (cadr BasGauche) Xmax (car HautDroite) Ymax (cadr HautDroite) ;; Différence entre le maxi et le mini : Les delta DeltaX (- Xmax Xmin) DeltaY (- Ymax Ymin) ;; Du coup, on a la hauteur et la largeur de la vue Haut (/ DeltaY NbCarteVerti) Larg (/ DeltaX NbCarteHori) ;; Un petit décallage négatif en Y pour cacher le logo BING ValDecal (* Haut 0.028) ) ;_ Fin de setq ;;Tant qu'on est dans le sens vertical (while (> NbCarteVerti 0) ;; On commence la boucle horizontale (while (> NbCarteHori 0) ;; le point en Bas à gauche (setq PtGauche (list Xmin Ymin)) ;; le point en haut à droite (setq PtDroite (list (+ Xmin Larg) (+ Ymin Haut))) ;; Un zoom qui prépare le cliché (command "zoom" "f" PtGauche PtDroite) ;; Prise du cliché (command "imagegeo" "") ;;J'enlève 1 au nombre de cliché horizontal (setq NbCarteHori (- NbCarteHori 1)) ;;L'X minimum augmanté du delta largeur (qui est la plage des géocartes d'une rangée) (setq Xmin (+ Xmin Larg)) ) ;_ Fin de while ;; Là, on repart pour une nouvelle boucle, les géocartes horizontales sont finies, ;; On recommence la même chose avec une constante verticale ajouté, bref, on passe à la ligne supérieur (setq NbCarteVerti (- NbCarteVerti 1)) ;; Je redéfini l'origine du nombre de cliché horizontal (setq NbCarteHori NbCarteHoriOrig) ;; définition de l'X minimum (setq Xmin (car BasGauche)) ;; Définition de l'Y minimum moins le décalage en Y pour supprimer le logo BING (setq Ymin (+;;; ******************************************* ;;; Créé des géocarte en mode "Folio" ;;; Spéciale dédicace à La Lozère (CadXP.com) ;;; ******************************************* (defun c:MultiCarte () (princ "\nDéveloppé par Denis H. (vers.1.4)") (command "Geocarte" "h") (setq ;; Nombre de carte horizontales NbCarteHori (getreal "\nNombre de carte horizontales : ") ;;Nombe de carte verticale NbCarteVerti (getreal "\nNombre de carte verticales : ") ;; j'enregistre le nombre de carte horizontal pour remettre à zéro quand on est au bout de l'horizontale NbCarteHoriOrig NbCarteHori ;; j'ajoute 1 au nombre verticale à cause du décalage (ValDecal) pour supprimer le logo Bing NbCarteVerti (+ NbCarteVerti 1) ;; je suppose des trucs screen (getvar "screensize") ratio (/ (car screen) (cadr screen)) cen (getvar "viewctr") cen (trans cen 1 0) angle_rad (getvar "viewtwist") angle_rad (- (* 2 pi) angle_rad) h (getvar "viewsize") w (* h ratio) ;; Je ne suppose plus, voici les quatres points de la vue courante (ou presque comme me l'a expliqué Maître (gile) BasGauche (polar (polar cen (+ angle_rad pi) (/ w 2)) (- angle_rad (/ pi 2)) (/ h 2)) BasDroite (polar (polar cen angle_rad (/ w 2)) (- angle_rad (/ pi 2)) (/ h 2)) HautDroite (polar (polar cen angle_rad (/ w 2)) (+ angle_rad (/ pi 2)) (/ h 2)) HautGauche (polar (polar cen (+ angle_rad pi) (/ w 2)) (+ angle_rad (/ pi 2)) (/ h 2)) ;; Là, pas besoin d'être explicite Xmin (car BasGauche) Ymin (cadr BasGauche) Xmax (car HautDroite) Ymax (cadr HautDroite) ;; Différence entre le maxi et le mini : Les delta DeltaX (- Xmax Xmin) DeltaY (- Ymax Ymin) ;; Du coup, on a la hauteur et la largeur de la vue Haut (/ DeltaY NbCarteVerti) Larg (/ DeltaX NbCarteHori) ;; Un petit décallage négatif en Y pour cacher le logo BING ValDecal (* Haut 0.028) ) ;_ Fin de setq ;;Tant qu'on est dans le sens vertical (while (> NbCarteVerti 0) ;; Tant qu'on est dans le sens horizontal, on enlève 1 au sens horizontal (while (> NbCarteHori 0) ;; le point en Bas à gauche (setq PtGauche (list Xmin Ymin)) ;; le oint en haut à droite (setq PtDroite (list (+ Xmin Larg) (+ Ymin Haut))) ;; Un zoom qui prépare le cliché (command "zoom" "f" PtGauche PtDroite) ;; Prise du cliché (command "imagegeo" "") ;;J'enlève 1 au nombre de cliché horizontal (setq NbCarteHori (- NbCarteHori 1)) ;;L'X minimum augmante du delta largeur (qui est la plage des géocartes d'une rangée) (setq Xmin (+ Xmin Larg)) ) ;_ Fin de while ;; Là, on repart pour une nouvelle boucle, les géocartes horizontales sont finies, ;; On recommence la même chose avec une constante verticale ajouté? Bref, on passe à la ligne suppérieur (setq NbCarteVerti (- NbCarteVerti 1)) ;; Je redéfini l'origine du nombre de cliché horizontal (setq NbCarteHori NbCarteHoriOrig) ;; définition de l'X minimum (setq Xmin (car BasGauche)) ;; Définition de l'Y minimum moins le décalage en Y pour supprimer le logo BING (setq Ymin (+ Ymin (- Haut ValDecal))) ) ;_ Fin de while (command "Geocarte" "d") (princ) ) ;_ Fin de defun ;;; ******************** ;;; Prog pour Golum69 ;;; ******************** (defun c:ZoneStockage (/ p) (setq p (getpoint)) (command "_pline" p (while p (command (setq p (getpoint "\nPoint suivant (Return pour FIN) : " p)))) ) ;_ Fin de command (command "pedit" (entlast) "c" "") (princ) ) ;_ Fin de defun