Sistemazione in 3D

[Sergy70]

Hallo an alle, ich habe ein Design, das die zweidimensionale Rückkehr eines planometrischen Reliefs darstellt.
die während der Entlastung geschlagenen Punkte durch ein Kreuz und ein Attribut mit dem Punktcode und der Quote dargestellt werden.
Ich müsste auf der "z" Achse alle Punkte bewegen, indem ich die Daten aus dem Attribut wiederherstelle.
Ich habe mit "entget" versucht, aber unter den Entitäten finde ich nicht die Quote in der Lage zu sein, innerhalb der Lispe anzuwenden, die mich zu den Höhenpunkten bringt.

Können Sie mir einen Hinweis geben?

Vielen Dank

 

[rpor66]

ritorna valore tag - parametri: nome entità, tag
(defun fntestotag(n tag / setze tipo e loop valore)
(setq e (entget n)
(Setq Sitzfläche (cdr (assoc 66 e)))
(setq tipo (cdr (assoc 0 e)))
(wenn (und (= Sitzplatz 1) (= tipo "Insert"))
(Progn)
(setq n (entnext n)
(setq e (entget n)
(Setq Loop nil)
(while (/= Schleife "seqend")
(setq ntag (cdr (assoc 2 e))))
(setq txt (cdr (assoc 1 e))
(wenn (= Tag ntag)
(setq valore txt)
)
(setq n (entnext n)
(setq e (entget n)
(Setq Schleife (cdr (assoc 0 e))
)
)
)
Valore
)

Lista degli attributi visibili (tag . valore) - parametri: nome entità
(defun fnlistatag(n / Sitztippo e Loop Lista obblocco v ntag txt)
(setq e (entget n)
(Setq Sitzfläche (cdr (assoc 66 e)))
(setq tipo (cdr (assoc 0 e)))
(wenn (und (= Sitzplatz 1) (= tipo "Insert"))
(Progn)
(setq n (entnext n)
(setq e (entget n)
(Setq Loop nil)
(while (/= Schleife "seqend")
(setq ntag (cdr (assoc 2 e))))
(setq txt (cdr (assoc 1 e))
(setq obblocco (vlax-ename->vla-object n))
(setq v (vlax-get-property obblocco 'visible))
(if (= v :vlax-true)
(setq lista (Liste a angeben (Liste)))
)
(setq n (entnext n)
(setq e (entget n)
(Setq Schleife (cdr (assoc 0 e))
)
)
)
Liste
)

Beispiele:

(setq Quotez (atof (fntestotag nametag))))) den Wert des konvertierten Attributs in den numerischen Wert

oder

(setq list (fnlistatag name)) erhalten Sie die Liste aller Attribute des Blocks
Typ (("txt" . "tie-in") ("quotaz" . "10.52") ("nro" . "44")
(setq Quotez (tof (nth 1 list))) erhalten den Wert der zweiten Unterliste
wenn der Wert der Quote comma als Dezimal verwendet, müssen Sie sie vor der Verwendung von atof ersetzen

Grüße