Le portail francophone de la géomatique

Hello Pat,

En fait j'ai relevé des éléments en précision centimétrique. Ces éléments je dois les adapter graphiquement (déplacé/orienté) sur mon fond de plan actuel (PCI), mais conserver en attribut (OD) la position réelle exacte pour une utilisation future sur le PCRS.

Donc te top ca serait d'avoir en permanence le XY "réel" et le XY "graphique" stockés en OD et mis à jour en temps réel. I have a dream

Concernant l'orientation, je dois avoir des degrés décimaux en entrée dans ArcGis (donc dans mes shp). Une astuce bricolée à la mano, c'est de mettre mon dessin en degrés décimaux, sens anti-horaire, direction Est (0)..... et je recopie la valeur de la rotation graphique dans mon champ OD "angle"....

Je sais pas si c'est plus clair ???

A+

Hello

Voir ci-apres une Routine Lisp/VLisp (A executer "quand" tu veux !?) qui transfere/copie les Coords du Point d'Insertion des Blocs selectionnes dans 3 champs OD specifiques d'une Table OD specifique ... Routine OK sur ACAD MAP 2015-2018 et sans doute aussi sur versions anterieures ...

Voir en debut de Routine la variable pour le Nom de la Table OD et les 3 variables pour les 3 Noms de champ OD XYZ (Reel/Flottant)

****** ATTENTION: AUCUNE Gestion d'Erreur ****** MERCI a Bruno & Gilles

Je l'utilise de temps en temps pour justement STOCKER les Coords XYZ de mes Blocs avant EVENTUEL deplacement ulterieur !

Si Bruno et/ou Gilles passent dans les Environs !?

J'espere que cela te sera UTIL et peut etre que tu veux la meme chose avec un champ OD de Rotation/Angle ??

GeoBye, Pat


<<< Debut Routine Lisp/VLisp >>>

;;
;; http://forums.autodesk.com/t5/visual-li … 73#M328535
;;
;; Routine de DEPART =  Z2_ODField_Height  par CADaStroumph  pour MAP & CIVIL
;; Recuperation du code DXF 38 des Polylignes (Elevation / Z) dans la variable: Z_PL
;; et affectation de Z_PL dans le champ/field OD "Height" de la Table "OD_Table"
;;
;; Adaptation par Patrice BRAUD pour avoir les Coords XYZ du Point d Insertion des Blocs (ATTENTION aux XREFs DWG)
;;
;; NOUVELLE Routine :  ODField__XYZ
;;
;; <<< Routine testee seulement dans le SCG et dans l'Onglet OBJET >>>
;;
;; ****** ATTENTION: AUCUNE Gestion d'Erreur ****** MERCI a Bruno & Gilles
;;
;; Alerte 1 : La Table OD et les 3 Champs OD NECESSAIRES 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 !
;;
;; --- Interrogation Entite/Objet en Lisp : (entget (car (entsel)) '("*"))
;; Commande: (setq a '(1 2 3)) ---> (1 2 3)
;; Commande: (setq x (car a))  ---> 1    (setq y (cadr a)) ---> 2    (setq z (caddr a)) ---> 3
;;
;; Calque          - assoc  8 :  (8 . "R_ASS")
;; XYZ (Bloc)      - assoc 10 :  (10  639715.0  140210.0  0.0)
;; Rotation (Bloc) - assoc 50 :  (50 . 3.14159)  Pi  3.14 = 180 degres   (50 . 0.785398)  Pi/4 = 45 degres
;; ELEV            - assoc 38 :  (38 . 10.0)
;; Pol Ouverte     - assoc 70 :  (70 . 0)
;; Pol Fermee      - assoc 70 :  (70 . 1)
;;
;; ****** ATTENTION: AUCUNE Gestion d'Erreur ****** MERCI a Bruno & Gilles
;;

(vl-load-com)

(defun C:ODField__XYZ ( / js_pl n_pl ent dxf_ent   TABLE_OD  XOD  YOD  ZOD  PTXYZ  PX  PY  PZ)

;;; On va utiliser les champs OD reels/flottants :  XORG , YORG , ZORG  de la Table OD "TABLEXYZ" ...
(setq TABLE_OD "TABLEXYZ") ;;  <--- Votre Nom de table OD --->

;;; Veuillez modifier ci-dessous en fonction de VOS champs OD pour X Y Z
(setq XOD "XORG")
(setq YOD "YORG")
(setq ZOD "ZORG")   ;; --- SUPPRIMER Eventuellement ---

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

;;; Par Patrice : Recuperation dans la liste PTXYZ des Coords du Point d Insertion XYZ
        (setq PTXYZ (assoc 10 dxf_ent) )
        (setq PX (cadr    PTXYZ) )
        (setq PY (caddr   PTXYZ) )
        (setq PZ (cadddr  PTXYZ) )   ;; --- SUPPRIMER Eventuellement ---

          (progn
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; Affectation des 3 Champs OD par les Coords d Insertion XYZ du Bloc
;;;;;; dans le Champ OD  xxx  &  Record ZERO
            ( ade_odsetfield  ent  TABLE_OD  XOD  PX  0  PX )
            ( ade_odsetfield  ent  TABLE_OD  YOD  PY  0  PY )
            ( ade_odsetfield  ent  TABLE_OD  ZOD  PZ  0  PZ )   ;; --- SUPPRIMER Eventuellement ---
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
          )
        )
      )
    )

(princ)
)

<<< Fin Routine >>>

Hello

1) YES et SVP tu supprimes dans la Routine LSP les 3 lignes correspondants a la Coord Z (dont tu n'as pas besoin !)
Voir les lignes (que j'ai modifiees) :   ;; --- SUPPRIMER Eventuellement ---

2) SVP (si possible) PAS de Nom de Table OD et Nom de Champ OD avec des Accents : XREEL et non pas XRéel
( SAUF si tu es vraiment oblige ! )

3) Pour le probleme d'Angle/Rotation des Blocs, j'imagine que tu as eventuellement besoin d'un Champ OD (Reel/Flottant) BLOCANGLE
qui est remis a jour par une Routine LSP quand tu la lances !? ... Et APRES tu fais un MAPEXPORT ...

MAIS a priori, tu as deja un contournement pour le probleme d'Angle/Rotation des Blocs !?

Si je me souviens bien, c la propriete AutoCAD nommee "ANGLE" ou "ROTATION" que tu dois exporter (lors du MAPEXPORT) mais le resultat obtenu est en RADIANS donc il faut convertir dans QGIS / ArcGIS / etc  : (ANGLERAD * 180.0) / 3.14159 )

GeoBye, Pat

Hello "Vil Grenoblois"

En terme de contournement, tu racontes >>>
Une astuce bricolée à la mano, c'est de mettre mon dessin en degrés décimaux, sens anti-horaire, direction Est (0) ...
et je recopie la valeur de la rotation graphique dans mon champ OD "angle"... <<<

Q1) Cela signifie t-il que tu fais cette Manipulation Objet par Objet ??

Q2) As tu imperativement besoin d'une valeur en mode Math/Trigo donc en Degres Decimaux + ZERO a l'Est ??

GeoBye, Pat ("Vil Forezien")

Hello

1) Voici donc la routine voulue ...

2) Tu la fais tourner sur TOUS les Blocs concernes -- Ayant la/les Bonne(s) Table(s) OD et le/les Bon(s) Champ(s) OD -- AVANT de faire le MAPEXPORT auquel tu ajouteras (entre autres champs) le bon Champ OD (MaJ par la Routine "ODField__ANGLEDEGRE") avec l'Angle de Rotation en DEGRES !

3) Tu pourras verifier avant de faire le MAPEXPORT que le Champ OD VOULU a la bonne valeur en DEGRES !!

GeoBye, Pat


<<< Debut Routine Lisp/VLisp >>>

;;
;; http://forums.autodesk.com/t5/visual-li … 73#M328535
;;
;; https://georezo.net/forum/viewtopic.php … 35#p301835
;;
;; Routine de DEPART =  Z2_ODField_Height  par CADaStroumph  pour MAP & CIVIL
;; Recuperation du code DXF 38 des Polylignes (Elevation / Z) dans la variable: Z_PL
;; et affectation de Z_PL dans le champ/field OD "Height" de la Table "OD_Table"
;;
;; Adaptation par Patrice BRAUD pour avoir l'angle (de Rotation) en Degres des Blocs (ATTENTION aux XREFs DWG)
;;
;; NOUVELLE Routine : ODField__ANGLEDEGRE
;;
;; <<< 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 !
;;
;; ****** ATTENTION: AUCUNE Gestion d'Erreur ****** MERCI a Bruno & Gilles
;;
;; --- Interrogation Entite/Objet en Lisp : (entget (car (entsel)) '("*"))
;; Commande: (setq a '(1 2 3)) ---> (1 2 3)
;; Commande: (setq x (car a))  ---> 1    (setq y (cadr a)) ---> 2    (setq z (caddr a)) ---> 3
;;
;; Calque          - assoc  8 :  (8 . "R_ASS")
;; XYZ (Bloc)      - assoc 10 :  (10  639715.0  140210.0  0.0)
;; Rotation (Bloc) - assoc 50 :  (50 . 3.14159)  Pi  3.14 = 180 degres   (50 . 0.785398)  Pi/4 = 45 degres
;; ELEV            - assoc 38 :  (38 . 10.0)
;; Pol Ouverte     - assoc 70 :  (70 . 0)
;; Pol Fermee      - assoc 70 :  (70 . 1)
;;
;; ****** ATTENTION: AUCUNE Gestion d'Erreur ****** MERCI a Bruno & Gilles
;;

(vl-load-com)

(defun C:ODField__ANGLEDEGRE ( / js_pl n_pl ent dxf_ent  TABLE_OD  BANGLE ROTRADIANS  ROTDEGRES)

;;; On va utiliser des champs OD reels/flottants :  BANGLE  de la Table OD "TABLEXYZ" ...
(setq TABLE_OD "TEST")        ;;  <--- Votre Nom de Table OD --->

;;; Veuillez modifier ci-dessous en fonction de VOS champs OD pour X Y Z
(setq BANGLE "ANGLEDEGRE")    ;;  <--- 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))

;;; Recuperation de la ROTATION sur assoc 50 :  (50 . 3.14159)
        (setq ROTRADIANS (cdr (assoc 50 dxf_ent)) )

;;; Conversion des Radians en Degres ;;; (ANGLERAD * 180.0) / 3.14159 )
        (setq ROTDEGRES (/ (* ROTRADIANS 180.0) 3.14159) )

          (progn
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; Affectation du Champ OD par la Rotation/Angle d Insertion en DEGRES
;;;;;; dans le Champ OD  xxx  &  Record ZERO
           ( ade_odsetfield  ent  TABLE_OD  BANGLE  ROTDEGRES  0  ROTDEGRES )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
          )
        )
      )
    )

(princ)
)

<<< Fin Routine >>>

Hello

<<< Suite au (super) Lisp fourni par l'ami Pat ... >>>
Euh c gentil mais 95% du Lisp provient surtout de Bruno & un peu de Gilles ...

GeoBye, Pat