DenisHen

Salut La Lozère. Ma collègue a eut le même problème... Après le HotFix, AutoCAD dit que ça ne fonctionne pas, mais en fait, si... Il faut recommencer une fois et la machine est lancée...

Salut. AutoCAD a bien repéré qu'il s'agit d'une police TTF, puisqu'il a gelé l'effet "Vertical"... Curieux comportement... Et si tu clique sur Arial.TTF dans la liste déroulante ? Il te propose un autre Arial ?

J'ai des besoins très simples, flattent des ExpressTools me suffit amplement... D'autres auront peut-être un retour sur ces routines...

Salut (gile), et merci pour ton aide. Je m'étais replongé dans ce lisp suite à une accalmie au boulo, les vacances arrivent. Et une fois de plus, tu as raison, flatten rempli exactement ce que je cherche à faire... Par contre, je reste scotché sur ton defun substZ0... Encore merci...

Re. Voici donc un Lisp intégrant la macro de x_all qui supprime aussi les élévations des LWPOLYLIGN : ;;;************************************************************** ;;; Déplacement des entités à l'altitude 0 et les élévations à 0 ;;;************************************************************** (defun c:Z0 (/ ss i ent elst) (princ "\nDéveloppé par Denis H. (vers.1.0)") (princ "\nDéplacement des blocs à l'altitude 0 et modifie les élévation à 0.") (command "ucsfollow" "0" "scu" "ge" "_move" "_all" "" "" "0,0,1e99" "" "" "_move" "_all" "" "" "0,0,-1e99" "" "") ;_ Fin de command (if (setq ss (ssget "_X" '((0 . "LWPOLYLINE")))) (progn (setq i 0) (while (setq ent (ssname ss i)) (setq i (1+ i) elst (entget ent) ) ;_ Fin de setq (cond ((= (cdr (assoc 0 elst)) "LWPOLYLINE") (setq elst (subst (cons 38 0.0) (assoc 38 elst) elst)) (entmod elst) ) ) ;_ Fin de cond ) ;_ Fin de while ) ;_ Fin de progn ) ;_ Fin de if (princ) ) ;_ Fin de defun Si ça peut être utile à d'autres...

Salut x_all, et merci pour ton aide. J'ai justement déjà essayé cette macro, mais AutoCAD s'arrêtait d'un coup, j'ai donc "universalisé" cette macro, ce qui donne : ^C^Cucsfollow;0;scu;ge;_move;_all;;0,0,1e99;;_move;_all;;0,0,-1e99;; Mais ça me change pas les élévations des LWPOLYLIGN... Raison pour laquelle je m'étais penché sur un Lisp... Encore merci pour ton aide.

Bonjour à tous. Je me pose une petite question, si on démarre AutoCAD en mode administrateur et que l'on double-clique sur un DWG dans l'explorateur Windows, normalement, un autre AutoCAD devrait se lancer pour ouvrir ce DWG, non ?

Bonjour à tous. Je sais que le sujet a déjà été traité, mais je n'ai pas trouvé le post. Je cherche à supprimer tous ce qui peut être à une altitude ou élévation différents de 0. J'ai donc commencé un petit Lisp, mais qui ne fonctionne pas. Le voici : ;;;************************************************************** ;;; Déplacement des entités à l'altitude 0 et les élévations à 0 ;;;************************************************************** (defun c:Z0 ( / ss i ent elst) (princ "\nDéveloppé par Denis H. (vers.1.0)") (princ "\nDéplacement des blocs à l'altitude 0 et modifie les élévation à 0.") (if (setq ss (ssget "_X")) (progn (setq i 0) (while (setq ent (ssname ss i)) (setq i (1+ i) elst (entget ent) ) ;_ Fin de setq (cond ((= (cdr (assoc 0 elst)) "ARC") (setq elst (subst (cons 30 0.0) (assoc 30 elst) elst)) (entmod elst)) ((= (cdr (assoc 0 elst)) "CIRCLE") (setq elst (subst (cons 30 0.0) (assoc 30 elst) elst)) (entmod elst)) ((= (cdr (assoc 0 elst)) "INSERT") (setq elst (subst (cons 30 0.0) (assoc 30 elst) elst)) (entmod elst)) ((= (cdr (assoc 0 elst)) "POINT") (setq elst (subst (cons 30 0.0) (assoc 30 elst) elst)) (entmod elst)) ((= (cdr (assoc 0 elst)) "LWPOLYLINE") (setq elst (subst (cons 38 0.0) (assoc 38 elst) elst)) (entmod elst)) ((= (cdr (assoc 0 elst)) "TEXT") (setq elst (subst (cons 30 0.0) (assoc 30 elst) elst)) (entmod elst)) ((= (cdr (assoc 0 elst)) "MTEXT") (setq elst (subst (cons 30 0.0) (assoc 30 elst) elst)) (entmod elst)) ) ;_ Fin de cond ) ;_ Fin de while ) ;_ Fin de progn ) ;_ Fin de if (princ) ) Si quelqu'un a une idée, un conseil... Je suis preneur... Denis.

A bon ? J'ai un MAP 2014 sous Windoiws 10 pour fonctionner avec Land2Map (d'Atlog) et il tourne bien...

Salut à vous, et merci de votre aide... J'ai opté pour le Lisp : ;; ;; par GC le Lundi 22 Mars 2010 ;; Recreer les contours a partir de hachures ;; (defun c:ReBound (/ n ss ent) (if (and (setq n -1) (setq ss (ssget '((0 . "HATCH"))))) (while (setq ent (ssname ss (setq n (1+ n)))) (command "_hatchedit" ent "_boundary" "_polyline" "_yes" ) (command "_erase" ent ""); je l'ai collé ici pour avoir un aperçu de l'exécution ) ) (princ) ) Encore merci à vous...

Bonjour à tous. Voilà, on m'a envoyé un fichier qui ne comporte que des hachures sans aucun contour. J'aimerai justement n'avoir QUE les contours. Si quelqu'un a un bout de lisp dans ses archives ( je pense à notre Décapode national ), je suis preneur...

Salut. C'est une entité faite avec la commande "SOLID", c'est une sorte de trame à partir de quatre sommets (pour la plus simple). Ce n'est pas décomposable...

Vraiment très joli, malgré un dosage des sons pas très "équilibré". Je trouve que le robot fait trop de bruit, mais ce n'est que mon avis... Et c'est tout de même une jolie animation...

Pour le [Ctrl+A], j'ai trouvé ça dans l'aide et ça a fonctionné chez moi :

Salut à vous. Personnellement, pour orienter un dwg, j'ai fais une petite routine en Lisp. Elle effectue une rotation de la vue en restant en SCU générale. A toutes fins utiles : ;;;*************************************************** ;;; Variables type "Géomètre" + Rotation de vue ;;;*************************************************** (defun c:DHOrientSCU (/ p1 p2 Echo vortho Angscu p3) (princ "\nDéveloppé par Denis H. (vers.1.0)") (setq Echo (getvar "cmdEcho")) (setvar "cmdEcho" 0) (command "-unites" "2" "2" "3" "2" "0,0" "@0,1" "O") (setvar "plinegen" 1) (command "-couleur" "ducalque" "-typeligne" "a" "ducalque" "" "_ucs" "_w") ;_ Fin de command (setvar "filedia" 1) (setvar "attdia" 1) (setvar "dimzin" 0) (setvar "angbase" (/ pi 2)) ; origine au nord (setvar "angdir" 1) ; sens horaire (setvar "aunits" 2) ; grade (while (and (/= p1 "Horizontale") (/= (type p1) 'LIST)) (initget 1 "Horizontale") (setq p1 (getpoint "\nPoint de départ ou orientation [Horizontale] : ") ;_ Fin de getpoint ) ;_ Fin de setq (if (= p1 "Horizontale") (progn (initget 7) (command "-vue" "g" "h") (command "snapang" "100") (vlax-ldata-put "DenisH" "AngSCU" 0) ) ;_ Fin de progn (progn (setq vortho (getvar "orthomode")) (setvar "orthomode" 0) (setq p2 (getpoint p1 (strcat "\tDirection des X :"))) (setvar "orthomode" vortho) (setvar "snapang" (angle p1 p2)) (setq Angscu (- 500 (* 200 (/ (angle p1 p2) pi)))) (if (<= Angscu 400) (- Angscu 400) ) ;_ Fin:if (setq p3 (polar p1 (+ (angle p1 p2) (/ pi 2)) 1000)) (vlax-ldata-put "DenisH" "AngSCU" Angscu) (command "_ucs" "_z" p1 p3) (command "_plan" "courant") (command "_ucs" "_w") (setvar "snapmode" 0) (setvar "cmdEcho" Echo) (command "zoom" "_w" p1 p2) ) ;_ Fin de progn ) ;_ Fin de if ) ;_ Fin de while (princ) ) ;_ Fin:defun

Les plans du cadastre sont juste un support "graphique" approximatif. Ils ne servent qu'à représenter les valeurs fiscales, pour faire payer des impôts fonciers (merci Napoléon). Ils sont donc d'une précision très aléatoire...

Tu peux remplacer les "espaces" par des point-virgules ";"

Salut. Si j'ai bien compris, je ferais ainsi : - enregistrer le fichier ( A ) sous un autre nom ( B ), - effacer tout sauf les blocs dans B, - renommer les calques dans B, - effacer seulement les blocs de A, - coller les blocs de B dans A vers coordonnées d'origine.

Salut à tous. J'ai été topographe une quinzaine d'année, après l'obtention de mon diplôme de Topographe, chez un géomètre expert. A mon époque, on était 3 sur le terrain, un à l'appareil, un à la canne et un au croquis. Et c'est un de ces deux derniers qui faisait le dessin au bureau... et le premier calculait ses polygo. Maintenant, ils sont seuls et, grâce à un outils magique : la tablette, ils ne font plus de polygo, ils ne travaillent qu'au GPS (avec la faible précision qui va avec), ils dessinent directement sur le terrain. Mais ce qu'ils font est difficilement exploitable, les polylignes ont une élévation qui correspond à l'altitude du premier point levé (j'ai découvert que c'était à cause de Land2Map), donc injoignables avec d'autres, certaines polylignes sont des Pline3D avec quelques sommets à l'altitude 0, j'ai des altitudes fausses et quand je leur dis, ils me sortent que "Évidement, je l'ai pris à bout de bras", et je ne peux m’empêcher de leur dire, "Ben alors pourquoi tu as laissé ce Z sur le plan ?"... Et j'en passe. J'ai même déjà eu un levé topo avec 6 stations dans 1 mètre carré... Je te rejoint didier avec ton chauffeur, ce n'est pas parce-qu'ils on une canne qu'ils sont topographe... Ils appuient sur des boutons quand on leur dit, mais c'est tout, et je dois faire un plan avec ce qu'ils me donnent... Pas toujours facile...

Bonjour à tous, et merci pour toute cette aide... J'ai trouvé ce que je cherchais dans le lien de pbrion... Encore merci...

Bonjour à tous. Je cherche une base de données (format SHP, TXT, CSV...) des communes de France avec leur numéro INSEE, code postal, nom, coordonnées... Si quelqu'un as une astuce, un conseil, voir même le fichier, je suis preneur...

Salut. Je ne pense pas que ce champs existe, mais il y a peut-être une astuce ici...

Salut laud69 et merci pour ton aide... C'est exactement ce dont j'ai besoin... Merci encore...

Salut nosset et merci pour ton aide. AutoCAD me répond "Commande inconnue"...

Bonjour à tous. Voilà, j'essai de redéfinir des blocs en les insérant depuis les DWG qui leur correspond. J'ai donc écris ça : (defun c:ImpBlkCharte (/ FichBlkLst) (if (/= (findfile "ListeBlk.txt") "") (progn (setq File (open (findfile "ListeBlk.txt") "r")) (while (setq BlocDWG (read-line File)) (princ (strcat "\nBlocDWG : " BlocDWG)) (command "-inserer" (findfile BlocDWG) "-300,-700,0" 1 1 0) ) ;_ Fin de while ) ;_ Fin de progn ) ;_ Fin de if ) Et voici un extrait de mon fichier "ListeBlk.txt" : Mais bien-sur, ça ne fonctionne pas, ma routine ne redéfini pas les blocs, elle les insert depuis ceux inclus dans le DWG. Si quelqu'un a une astuce, un conseil... Je suis preneur.