Remplissage automatique object data

[Fhuris]

Bonjour,

 

Je dois remplir des Object Data régulièrement pour un dossier.

Cependant, certains des objets ont, dans leurs données, une ligne pour le Z.

Existe-t-il un moyen (par exemple avec CALC ou un LISP) de rentrer automatiquement le Z de chaque objet dans la ligne de Z de l'Object data correspondant ?

[lecrabe]

Hello

 

Q1) SVP avez vous bien un AutoCAD MAP (ou AutoCAD CIVIL) ?

 

Q2) Quelle version : 2021, 2020, 2019, etc ?

 

Q3) Sous quel Windows ?

 

Q4) "Cependant, certains des objets ont, dans leurs données, une ligne pour le Z"

--- Pas sur de bien suivre !?

 

Q5) Vous parlez de quel entite AutoCAD :

Texte, MTexte, Ligne, Arc, Cercle, Point, Bloc, Polyligne 2D, Polyligne 3D, Ellipse, Spline, Region, MPolygon, etc ??

 

LA SANTE (Stay Safe), Bye, lecrabe "triste"

Automne 2020, la retraite

[Fhuris]

Bonjour

 

1) et 2) C'est bien Autocad Map 2019

 

3) Windows 10

 

4) et 5) Ce sont des blocs nommés "point_cote" qui ont une table d'object data associée nommée "T_AL" et dans cette table, une ligne "TAL_COTZ" doit contenir l'altitude du bloc correspondant

[lecrabe]

Hello

 

OK SVP ton DWG par Download Free ou WETransfert ou autre ...

 

DONC si j'ai bien compris ...

Table OD : "T_AL"

Champ OD : "TAL_COTZ" qui doit contenir le Z du Point d'Insertion du Bloc

 

LA SANTE (Stay Safe), Bye, lecrabe "triste"

Automne 2020, la retraite

[Fhuris]

Bonjour

 

https://we.tl/t-rj2ecU7l2d

 

C'est exactement ça !

[lecrabe]

Hello

 

Et voici la routine magique "ODField__Z__Bloc" !

 

Cette routine provient a 99% de Bruno et Gilles ! Encore MERCI pour eux !!

 

Tu pourras la modifier facilement si autre Nom de Table OD et/ou Champ OD ...

ET aussi mettre sur d'autres champs OD le X et/ou le Y et/ou le Z ...

 

LA SANTE (Stay Safe), Bye, lecrabe "triste"

Automne 2020, la retraite

 

 

;;
;; NOUVELLE Routine : ODField__Z__Bloc
;; 
;; Merci a Bruno et Gilles -- Micro-Micro-Modif par Patrice 
;; 
;; ****** ATTENTION: AUCUNE Gestion d'Erreur ****** 
;;
;; <<<<<<<< Routine testee seulement dans le SCG et dans l'Onglet OBJET >>>>>>>>
;;
;; Alerte 1 : La Table OD et les x Champs OD NECESSAIRE(s) doivent DEJA exister sur les Blocs selectionnes !
;; Alerte 2 : La Routine filtre simplement sur les Objets "INSERT" DONC on risque de selectionner les XREFs DWG !
;; Alerte 3 : Ne pas selectionner des Objets verrouilles !
;;

(vl-load-com)

  (defun C:ODField__Z__Bloc ( / js_pl n_pl ent dxf_ent  TABLE_OD  CHAMP_OD  POSXYZ) 

;;; On va utiliser un champ OD reel/flottant ... IMPERATIF
;;;
 (setq TABLE_OD "T_AL")        ;;  <--- Votre Nom de Table OD --->

;;; Veuillez modifier ci-dessous en fonction de VOS champs OD pour X Y Z ... 
;;; 
 (setq CHAMP_OD "TAL_COTZ")    ;;  <--- Votre Nom de Champ OD (Reel/Flottant) --->


 (setq js_pl (ssget '((0 . "INSERT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (100 . "INSERT")  )) )

 (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))
 
;       (setq POSXYZ    (cadr   (assoc 10 dxf_ent)) )  ;; Recup du X 
;       (setq POSXYZ    (caddr  (assoc 10 dxf_ent)) )  ;; Recup du Y 
       (setq POSXYZ    (cadddr (assoc 10 dxf_ent)) )  ;; Recup du Z 
 
         (progn
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; Affectation du Champ OD dans le Champ OD  xxx  &  Record ZERO 

          ( ade_odsetfield  ent  TABLE_OD  CHAMP_OD   POSXYZ   0  POSXYZ ) 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
         )
       )
     )
   )

(princ)
) 

[Fhuris]

Wow, merci beaucoup, ça fonctionne parfaitement,

je vais gagner tellement de temps grâce à ça :D

[lecrabe]

Hello

 

1) SUPER que cela convienne !

 

2) Comme d'habitude cela te coutera un excellent whiskey single malt !!

En plus CA zigouille les microbes et virus ...

 

LA SANTE (Stay Safe), Bye, lecrabe "triste"

Automne 2020, la retraite