Fraid

j'ai oublié de dire que les emprises sont à vérifier. c'est un Lisp que j'avais fait mais dont je me sert pas... car j'ai toujours un emplacement géographique.

C'est en plaçant ce fameux emplacement géographique qu'il est renseigné

C'est de la sémantique. Dans le mot géoréférencé, il y a référence, et l'emplacement géographique est censé l'être. Evidement, comme il peut être placer n'importe comment, ce n'est pas vrais.

sinon Attention les emprise sont à vérifier !!! (setq listesys (list ;Liste des systèmes géodésiques ; Nom Code Type EPSG Emprise (list "Lambert93" "140" "24" "2154" (list 99000 6040000) (list 1240000 7120000)) (list "RGF93.CC42" "8142" "24" "3942" (list 1200000 1100000) (list 1800000 1300000)) (list "RGF93.CC43" "8143" "24" "3943" (list 1200000 2100000) (list 1800000 2300000)) (list "RGF93.CC44" "8144" "24" "3944" (list 1200000 3100000) (list 1800000 3300000)) (list "RGF93.CC45" "8145" "24" "3945" (list 1200000 4100000) (list 1800000 4300000)) (list "RGF93.CC46" "8146" "24" "3946" (list 1200000 5100000) (list 1800000 5300000)) (list "RGF93.CC47" "8147" "24" "3947" (list 1200000 6100000) (list 1800000 6300000)) (list "RGF93.CC48" "8148" "24" "3948" (list 1200000 7100000) (list 1800000 7300000)) (list "RGF93.CC49" "8149" "24" "3949" (list 1200000 8100000) (list 1800000 8300000)) (list "RGF93.CC50" "8150" "24" "3950" (list 1200000 9100000) (list 1800000 9300000)) (list "NTF.Lambert-1C-ClrkIGN" "120" "2" "27571" (list 45000 1100000) (list 1100000 1380000)) (list "NTF.Lambert-2C-ClrkIGN" "120" "2" "27572" (list 45000 1600000) (list 1202000 2679000)) (list "NTF.Lambert-3C-ClrkIGN" "120" "2" "27573" (list 250000 3000000) (list 1100000 3400000)) (list "NTF.Lambert-4C-ClrkIGN" "120" "2" "27574" (list 489000 4117000) (list 600000 4320000)) (list "NTF.Lambert-1-ClrkIGN" "101" "2" "27561" (list 45000 100000) (list 1100000 380000)) (list "NTF.Lambert-2-ClrkIGN" "102" "2" "27562" (list 45000 100000) (list 1100000 400000)) (list "NTF.Lambert-3-ClrkIGN" "103" "2" "27563" (list 250000 0) (list 1100000 400000)) (list "NTF.Lambert-4-ClrkIGN" "104" "2" "27564" (list 489000 117000) (list 600000 320000)) ) ) ;getsys ;Arg: pt liste de coordonées d'un point ;Retourne la liste des systèmes éventuelement utilisés ou nil (defun getsys ( pt / sys syst) (if (= (setq sys (getvar 'cgeocs)) "") (progn (setq sys nil) (foreach syst listesys (if (and (> (car pt) (car(nth 4 syst))) (< (car pt) (car(nth 5 syst))) (< (cadr pt) (cadr(nth 5 syst))) (> (cadr pt) (cadr(nth 4 syst))) ) (setq sys (cons (car syst ) sys)) ) ) ) (setq sys (list sys)) ) sys ) si cela peut t'aider

Bonjour, Quand il y a un emplacement géographique, c'est indiqué à coté des coordonnées. C'est dans ce cas, d'ailleurs, que c'est géoréférencé. sinon c'est simplement calé. C'est mon point de vue.

Bonjour, Je pense que tu n'as pas besoins de "macro" pour cela. Tu peux utiliser les champs. Tape champs choisi à gauche objet choisi ton objet en cliquant sur l'étoile en haut au milieu clic sur ton bloc dynamique tu choisi le dynamisme qui apparait dans propriétés tu copie l'expression du champs en bas tu la colle ou tu veux dans ton espace papier Bonne chance

En fait si tu fait autant d'image que de possibilités, au lieu de former un texte avec ta variable, tu appelle une image. Je sait, c'est old school, mais le DCL ne l'est il pas?

Edité l'image elle même, mais si le texte n'est pas toujours le même, cela ne fonctionne pas.

Bonjour, Ajouter le texte à l'image avant?

il est ou?

Bonjour, je pense que c'est en amont qu'il faut agir et non après. C'est dans chaque services qu'ils doivent nommer correctement les blocs. C'est difficile pour nous de bien comprendre ton problème, il nous faudrait peut être plus d'explication et un exemple concret.

Bonjour, un petit lisp pour les attributs. Si tu veux l'utiliser en script, remplace (getstring "Old text?") par le texte à remplacer entre guillemets ex: "Bois" et (getstring "New text?") par le texte de remplacement ex: "Béton" et dans ton script subat (defun substattrib ( old new acdc / tat) (vlax-for obj (vla-get-modelspace acdc) (if (= (vla-get-ObjectName obj) "AcDbBlockReference") (foreach att (vlax-invoke obj 'GetAttributes) (if (vl-string-search old (setq tat (vla-get-textstring att))) (vlax-put att 'TextString (vl-string-subst new old tat)) ) ) ) ) ) (defun c:subat nil (vl-load-com) (substattrib (getstring "Old text?") (getstring "New text?") (vla-get-activedocument (vlax-get-acad-object)) ) (princ) ) Fonctionne uniquement dans l'espace objet.

je vient de voir que tu est sur LT, cela ne fonctionne pas désolé.

Bonjour, Voici un petit lisp: ;;; tl cumule les longueurs de polylignes et autre (defun c:tl (/ ss tl n ent itm obj l) (setq ss (ssget) tl 0 n (1- (sslength ss)) ) (while (>= n 0) (setq ent (entget (setq itm (ssname ss n))) obj (cdr (assoc 0 ent)) l (cond ((= obj "LINE") (distance (cdr (assoc 10 ent)) (cdr (assoc 11 ent))) ) ((= obj "ARC") (* (cdr (assoc 40 ent)) (if (minusp (setq l (- (cdr (assoc 51 ent)) (cdr (assoc 50 ent)) ) ) ) (+ pi pi l) l ) ) ) ((or (= obj "CIRCLE") (= obj "SPLINE") (= obj "POLYLINE") (= obj "LWPOLYLINE") (= obj "ELLIPSE") ) (vl-cmdf "_.area" "_o" itm) (getvar "PERIMETER") ) (t 0) ) tl (+ tl l) n (1- n) ) ) (alert (strcat "La longueur total est " (rtos tl))) (princ) )

Bonjour, Je ne suis pas sur que cela soit possible en script, mais je ne suis pas spécialiste. En lisp, pas de soucis, si tu cherche mieux sur le site, ou ailleurs y en a plein. Sinon, tes textes sont sous quel forme, TEXT, MTEXT, ATTRIBUT....?

Bonjour, Tu peux donc télécharger ce petit programme en Python Dit moi si cela fonctionne chez toi. Je n'ai pas eu le temps de commenter mon code, je le ferais plus tard.

En fait, Il n'y a pas de Doslib pour 2023. Je n'utilise plus cette méthode. Mais passe par du python, bien mieux adapté à cela. Je vais prendre un peu de temps ce soir pour rendre mon code partageable.

Bonjour, Il va falloir m'en dire un peu plus. Comment le lance tu?

Bonjour, (defun c:delptinbloc (/ acdc ) (vl-load-com) (setq acdc (vla-get-activedocument (vlax-get-acad-object))) (vlax-for bloc (vla-get-blocks acdc) (vlax-for obj bloc (if (= (vla-get-ObjectName obj) "AcDbPoint") (vla-delete obj) ) ) ) ) tu regen et c'est bon, bizarre, une sensation de déjà vu ...

Bonjour, Un petit truc, tu n'a plus qu'a régénérer. (defun c:delhacthinbloc (/ acdc ) (vl-load-com) (setq acdc (vla-get-activedocument (vlax-get-acad-object))) (vlax-for bloc (vla-get-blocks acdc) (vlax-for obj bloc (if (= (vla-get-ObjectName obj) "AcDbHatch") (vla-delete obj) ) ) ) )

Bonjour, Vérifie aussi si l'xref et ton dessin sont tout les deux avec le meme échelle d'insertion. insunits (6 = mètre)

Bonjour, Ctrl + A puis Ctrl + c dans le gestionnaire des calques. puis Ctrl + v dans un tableur fonctionne très bien. sinon 200/300 calques !!! encore une usine à gaz.

Bonjour, Une question me parait importante, pourquoi a tu besoin de Covadis? VRD, c'est très vague. Je travail dans ce domaine (fibre optique) et m'en passe très bien. De plus mes clients ne veulent pas de traces d'applications perpendiculaires. Donc, en a tu vraiment besoin? Car si c'est pour dessiner des talus, carroyages et j'en oublie, il y a des outils en Lisp qui font très bien le travail.

J'ai placé un .las sur github. Testez. sinon