Aller au contenu

Remplissage automatique object data


Fhuris

Messages recommandés

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 ?

Lien vers le commentaire
Partager sur d’autres sites

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

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

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

Lien vers le commentaire
Partager sur d’autres sites

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

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

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)
) 

  • Upvote 1

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

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

  • Upvote 1

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité