Copie info "géométrique" dans DO d'une polyligne

[CT_Ko]

Bonjour à tous!

Je vais essayer de vous poser mon problème de manière claire...

J'ai un grand nombre d'éléments (polylignes et blocs) qui ont des tables attributaires avec des données objet.

Un certain de nombre de champs DO sont renseignés automatiquement à l'aide d'un module. Mais j'ai beaucoup de DO à remplir manuellement notamment la longueur des polylignes.

C'est super long à remplir et j'ai plein de petits tronçons de l'ordre de 30cm qui souvent passe à la trappe car peu visibles.

Quelqu'un aurait une manip' (mode opératoire ou LISP) pour prendre la valeur géométrique de la longueur de la polyligne et la renseigner automatiquement dans la donnée objet souhaitée?

Je vous joint également un dwg pour visualiser les objets et les champs de ma table attributaire.

Merci d'avance!

Bien cordialement. 

DWG_Exemple.dwg

[Eric]

Citation

Je vais essayer de vous poser mon problème de manière claire...

C'est raté. 🤣

On attend la suite 😉

[CT_Ko]

il y a 5 minutes, Eric a dit :

C'est raté. 🤣

On attend la suite 😉

Haaha oui j'ai pas réussi à maîtriser mon clavier!

[lili2006]

Bonjour à toutes et tous,

@CT_Ko,as-tu un Civil 3D ou Map ? Pourquoi as-tu posté dans le forum "AutoCAD 3D " ?

 

[CT_Ko]

Je travail sur Autocad Map 3D.

Désolé j'ai pensé que c'était l'endroit adéquat pour poser ma question...je devrais déplacer mon post vers quel rubrique selon toi?

[lili2006]

Re,

 

il y a 4 minutes, CT_Ko a dit :

je devrais déplacer mon post vers quel rubrique selon toi?

Sur AutoCAD MAP, je viens de le faire,..

Si @Olivier Eckmann est dans le coin, il va très certainement te donner la méthoho ou encore @lecrabe, @bonuscad,..

Je sais que l'on peut faire, mais je n'ai pas le temps de regarder pour l'heure,..

[CT_Ko]

Merci Lili2006!

Je n'ai pas vu la rubrique quand j'ai fais mon post sorry...😅

J'ai déjà réussi à trouver ce qu'il fallait pour transférer les coordonnées x,y et z vers les données attributaire de blocs mais ne parlant pas le langage des LISPs je n'arrive pas reporter ça pour l'info longueur à renseigner dans les DO d'une polyligne.

 

[lili2006]

il y a 40 minutes, CT_Ko a dit :

mais ne parlant pas le langage des LISPs

On peut le faire en natif avec MAP

[CT_Ko]

J'ai réussi en partie à faire ce que je voulais grâce au module magique d'Olivier!

On va dériver du sujet du post donc je te mp Lili au sujet de ta réponse.

[lecrabe]

Hello @CT_Ko

En effet la DLL de Olivier est MAGIQUE !

Sinon voici un vieux Lisp / VLisp "OD_Longueur " frustre mais qui marche sur les LWPOLYLINEs ...

Bye, lecrabe

 

 
;; 
;; http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/updating-an-entity-s-object-data/m-p/5451473#M328535
;; 
;; Micro-Adaptation v3 par Patrice B.
;; 
;; ATTENTION: aucune gestion d'erreur !!!
;; 
 
;; 
;; Routine v2 : Recuperation de la LONGUEUR par OE en VLisp - RAPIDE 
;; 
;; Routine OD_Longueur par CADaStroumph pour MAP & CIVIL 
;; 
;; --- Interrogation Entite/Objet en Lisp : (entget (car (entsel)) '("*")) 
;; 
 

(vl-load-com) 

(defun C:OD_Longueur ( / js_pl n_pl ent dxf_ent z_pl LONG Table_OD Champ_OD) 

   (princ "\n------ ATTENTION : AUCUNE Gestion d Erreurs ! ------ ")

;;;;;;;; Nom de la Table OD CONCERNEE ;;;;;;;;
;; ( setq Table_OD "BRANCHEM" ) 
   ( setq Table_OD (getstring T "\nNom EXACT de la Table OD    (Par exemple: ASS_CANA/etc) : "))

;;;;;;;; Nom du Champ    OD CONCERNE  ;;;;;;;;
;; ( setq Champ_OD "long_mes" ) 
   ( setq Champ_OD (getstring T "\nNom EXACT du Champ OD Numerique (Par exemple: LONG/etc) : "))


  (setq js_pl (ssget '((0 . "LWPOLYLINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (100 . "AcDbPolyline"))))
  (cond
    (js_pl
      (repeat (setq n_pl (sslength js_pl))
        (setq ent (ssname js_pl (setq n_pl (1- n_pl))))
        (setq dxf_ent (entget ent)) 


;;; Recuperation de la LONGUEUR par Patrice en Lisp par AREA - LENT
;;; (command "_.area" "_o" ent)
;;; (setq LONG (getvar "perimeter")) 

;;; Recuperation de la LONGUEUR par OE en VLisp - RAPIDE
    (setq LONG (vla-get-length (vlax-ename->vla-object ent)) )


    (setq z_pl LONG)

        (if z_pl
          (progn 

;;;;;;;; Affectation de la Longueur de la Polyligne dans le champ LONGUEUR de "Table_OD" ;;;;;;;;
            ( ade_odsetfield  ent   Table_OD      Champ_OD   0  z_pl )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

          )
        )
      )
    )
  ) 
(princ)
)

 

[lili2006]

Bonjour à toutes et tous,

 

@lecrabe, j'étais persuadé avoir déjà fait ça en natif en jouant avec les tables et les données géométriques, non ?

Pas le temps de tester actuellement mais j'y reviendrai,..

[CT_Ko]

Merci @lecrabe !

Je vais tester en attendant de me mettre vraiment au lisp!