Sistemazione en 3D

[Sergy70]

Bonjour à tous, j'ai une conception qui représente le retour bidimensionnel d'un relief planimétrique.
les points battus pendant le relief sont représentés par une croix et un attribut contenant le code point et le quota.
J'aurais besoin de passer sur l'axe "z" tous les points en récupérant les données de l'attribut.
J'ai essayé avec "entget" mais parmi les entités je ne trouve pas le quota pour pouvoir appliquer à l'intérieur du lisp qui m'amène aux points d'altitude.

Pouvez-vous me donner une indication ?

Merci beaucoup.

 

[rpor66]

tag ritorna valore - parametri: nom entità, tag
(défun fntestotag(n tag / seatt tipo e loop valore)
(setq e (entier n))
(avec siège (cdr (assoc 66 e)))
(setq tipo (cdr (assoc 0 e)))
(si (et (= siège 1) (= tipo "insérer"))
(progrès)
(setq n (entérieur n))
(setq e (entier n))
(la boucle setq est nulle)
(alors que (/= boucle "seqend")
(setq ntag (cdr (assoc 2 e)))
(setq txt (cdr (assoc 1 e)))
(si (= étiquette ntag)
(setq valore txt)
)
(setq n (entérieur n))
(setq e (entier n))
(boucle de setq (cdr (assoc 0 e))
)
)
)
valore
)

Lista degli attributi visibili (tag . valore) - parametri: nom entità
(défun fnlistatag(n / seatt tipo e loop lista obblocco v ntag txt)
(setq e (entier n))
(avec siège (cdr (assoc 66 e)))
(setq tipo (cdr (assoc 0 e)))
(si (et (= siège 1) (= tipo "insérer"))
(progrès)
(setq n (entérieur n))
(setq e (entier n))
(la boucle setq est nulle)
(alors que (/= boucle "seqend")
(setq ntag (cdr (assoc 2 e)))
(setq txt (cdr (assoc 1 e)))
(setq obblocco (vlax-ename->vla-objet n))
(setq v (vlax-get-property obblocco 'visible))
(si (= v:vlax-true)
[setq lista (annexe lista (liste))]
)
(setq n (entérieur n))
(setq e (entier n))
(boucle de setq (cdr (assoc 0 e))
)
)
)
Listea
)

exemples:

(setq quotaz (atof (fntestotag nametag)))) obtient la valeur de l'attribut converti en valeur numérique

ou

(setq list (fnlistatag name)) obtenir la liste de tous les attributs du bloc
type (("txt" . "tie-in") ("quotaz" . "10.52") ("nro" . "44")
(setq quotaz (tof (nième liste))) obtenir la valeur de la deuxième sous-liste
si la valeur du contingent utilise la virgule comme décimale, vous devez la remplacer avant de l'utiliser

salutations