Nicokarmann

Salut Problème résolu, c'était un port du pare-feu du PC qui était verrouillé par les administrateurs. Merci à tous.

oui il me semble que tout soit ok. lorsque je fais geodata; ouvrir dans google map, je suis au bon endroit. il doit avoir quelque chose que je ne fais pas comme il faut. mais quoi ???

@thierry.garré j'ai modifié mon système en lambert93, en RDF93.CC45 ou 46, toujours le même problème. je clique bien dans une parcelle déjà cadastrée. 😉

Salut à tous. Je souhaite savoir comment utiliser cette fonction. je cherche mais ne trouve pas de réponses. Si je sélectionne choisir la planche par un point, j'ai un message d'erreur : Si je sélectionne "choisir les planches par département et par commune", j'ai ça, mais ne peut rien faire: Auparavant, j'ai bien affecter une projection au dessin, dans mon cas: Lambert zone 2 (27562) Existe t'il un tuto pour importer ces planches cadastrales? Merci à vous.

oui, je l'ai tester et il ne fonctionne pas Merci, je vais y regarder.

Merci @bonuscad, c'est parfait. 👍

Parfait @bonuscad 👍 un grand merci. J'ai modifié ton lsp pour coller plus à mes besoins, mais j'ai besoin de laisser les matricules horizontaux peut importe le SCU. Je n'ai pas trouver qu'est ce qu'il faut modifier. 😢 (Je suis plus à l'aise avec le langage Basic ) (defun c:BORNES ( / js lst_posatt n nb_e ent dxf_ent dxf_210 lst_pt lst_num scl_blk vlaobj pr n_ini n_next old_dmz pt nbs num ang pos_att) (cond ((eq (getvar "cvport") 1) (princ "\n** Commande autorisée uniquement dans l'espace objet.") ) (T (if (not (tblsearch "BLOCK" "BORNE")) (progn (entmake '( (0 . "BLOCK") (100 . "AcDbEntity") (100 . "AcDbBlockBegin") (2 . "BORNE") (70 . 2) (8 . "0") (62 . 256) (6 . "ByLayer") (370 . -2) (10 0.0 0.0 0.0) ) ) (entmake '( (0 . "CIRCLE") (100 . "AcDbCircle") (39 . 0) (10 0.0 0.0 0.0) (40 1) (210 0.0 0.0 1.0) ) ) (entmake '( (0 . "CIRCLE") (100 . "AcDbCircle") (39 . 0) (10 0.0 0.0 0.0) (40 1.1) (210 0.0 0.0 1.0) ) ) (entmake '( (0 . "CIRCLE") (100 . "AcDbCircle") (39 . 0) (10 0.0 0.0 0.0) (40 1.2) (210 0.0 0.0 1.0) ) ) (entmake '( (0 . "CIRCLE") (100 . "AcDbCircle") (39 . 0) (10 0.0 0.0 0.0) (40 1.3) (210 0.0 0.0 1.0) ) ) (entmake '( (0 . "CIRCLE") (100 . "AcDbCircle") (39 . 0) (10 0.0 0.0 0.0) (40 1.4) (210 0.0 0.0 1.0) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (100 . "AcDbText") (10 0.25 0.25 0.0) (40 . 1) (1 . "") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "STANDARD") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (280 . 0) (3 . "Matricule") (2 . "NUMEROS") (70 . 0) (73 . 0) (74 . 0) (280 . 1) ) ) (entmake '( (0 . "ENDBLK") (100 . "AcDbBlockEnd") (8 . "0") (62 . 256) (6 . "ByLayer") (370 . -2) ) ) ) ) (princ "\nSélectionner la ou les Polylignes où placer les matricules") (setq js (ssget '((0 . "*POLYLINE") (-4 . "<NOT") (-4 . "&") (70 . 112) (-4 . "NOT>")))) (cond (js (setq lst_posatt '((0.25 0.25 0.0) (0.25 -0.75 0.0) (0.25 -1.75 0.0)) old_dmz (getvar "DIMZIN") ) (setvar "DIMZIN" 0) (repeat (setq n (sslength js)) (setq dxf_ent (entget (setq ent (ssname js (setq n (1- n))))) dxf_210 (cdr (assoc 210 dxf_ent)) lst_pt nil lst_num nil) (setq vlaobj (vlax-ename->vla-object ent) pr -1 ) (if (not n_next) (progn (initget 1) (setq n_ini (getint "\nIncrementer en débutant à: ") n_next n_ini) ) (progn (initget "Oui Non _Yes No") (if (eq (getkword "\nRéinitialiser l'incrémentation [Oui/Non] <Non>: ") "Yes") (progn (initget 1) (setq n_ini (getint "\nIncrementer en débutant à: ") n_next n_ini) ) (setq n_ini n_next) ) ) ) (repeat (setq nb_e (if (zerop (vlax-get vlaobj 'Closed)) (1+ (fix (vlax-curve-getEndParam vlaobj))) (fix (vlax-curve-getEndParam vlaobj)))) (setq pt (vlax-curve-GetPointAtParam vlaobj (setq pr (1+ pr))) lst_pt (cons pt lst_pt) lst_num (cons n_next lst_num) ) (if (not scl_blk) (progn (initget 7) (setq scl_blk (getdist (trans pt 0 1) "\nEchelle du bloc?: ")))) (setq n_next (+ 2 n_ini) n_ini n_next) ) (setq nbs (1- (length lst_pt))) (foreach pto lst_pt (setq num (car lst_num) ang (if (and (not (zerop nbs)) (not (eq (1+ nbs) (length lst_pt)))) (- (* 0.5 (+ (angle '(0.0 0.0 0.0) (vlax-curve-getFirstDeriv vlaobj (1- nbs))) (angle '(0.0 0.0 0.0) (vlax-curve-getFirstDeriv vlaobj nbs)) ) ) (* 0.5 pi) ) (+ (* 0.5 pi) (angle '(0.0 0.0 0.0) (vlax-curve-getFirstDeriv vlaobj nbs))) ) ang (if (and (> ang (* 0.5 pi)) (<= ang (* pi 1.5))) (+ pi ang) ang) pos_att (mapcar '(lambda (x) (polar (trans '(0.0 0.0 0.0) dxf_210 0) (+ (angle (trans '(0.0 0.0 0.0) dxf_210 0) (trans x dxf_210 0)) ang) (distance (trans '(0.0 0.0 0.0) dxf_210 0) (trans x dxf_210 0)))) (mapcar '(lambda (y) (mapcar '(lambda (x) (* scl_blk x)) y)) lst_posatt)) nbs (1- nbs) ) (entmake (append '( (0 . "INSERT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (100 . "AcDbBlockReference") (66 . 1) (2 . "BORNE") ) (list (cons 41 scl_blk) (cons 42 scl_blk) (cons 43 scl_blk) ) '( (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) ) (list (cons 50 ang) (cons 10 (trans pto 0 dxf_210)) (cons 210 dxf_210)) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (100 . "AcDbText") ) (list (cons 50 ang) (cons 10 (trans (list (+ (car pto) (caar pos_att)) (+ (cadr pto) (cadar pos_att)) (+ (caddr pto) (caddar pos_att))) 0 dxf_210)) (cons 1 (itoa num)) (cons 40 scl_blk) ) '( (41 . 1.0) (51 . 0.0) (7 . "STANDARD") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) ) (list (cons 210 dxf_210) ) '( (100 . "AcDbAttribute") (2 . "NUMEROS") (70 . 0) (73 . 0) (74 . 0) ) ) ) (entmake '( (0 . "SEQEND") (62 . 256) (6 . "ByLayer") (370 . -2) ) ) (setq lst_num (cdr lst_num)) ) (princ (strcat "\n" (itoa nb_e) " blocs \"BORNE\" placés et renseignés.")) ) (setvar "DIMZIN" old_dmz) ) (T (princ "\nSélection non valide ou vide.")) ) ) ) (prin1) ) et aussi grosse question: pas possible d'incrémenter à partir de plus que 32767 ? merci d'avance.

Salut, Merci de ta réponse. Je n'avais pas reçu de notification. Voilà ce que j'ai besoin sur une polyligne 2D. J'ai besoin de nommer tous les sommets avec un bloc et son attribut pour, par la suite, extraire ces numéros de sommets ainsi que ses coordonnées associées. Par exemple: 1001, 1003, 1005, 1007, ... Ou 1000, 1002, 1004, 1006, .... Je ne sais pas si je me suis fait comprendre.

Salut à tous. Nouveau utilisateur de Covadis (v17 actuellement, bientôt mis à jour) auparavant j'ai utilisé DesignCad (Cogistem) pendant 20 ans et, encore plus lointain, Catia V4 & V5 pendant 6 ans. Je voudrais numéroter les sommets d'une polyligne en incrémentant tous les 2 chiffres pour avoir que des nombres pairs ou impairs en fonction du premier numéro. J'utilise "Numéroter les entités" qui me numérote bien tous les sommets mais ensuite je sèche pour la numérotation tous les 2 chiffres. Quelqu'un a une solution ? Merci d'avance ... Sinon, je passerais par un Lisp.