hoe z-coord. inserten bij alle punten uit een tekening?

[Matijs]

Hey,

ik heb m'n vraag al even in de algemene cad-problemen gepost maar ik heb zelf nog een en ander opgezocht en ik denk dat ik toch via een lisproutine zal moeten gaan, vandaar dat ik hier ook even mijn licht kom opsteken.

Ik heb een tekening met enkele honderden opmetingspunten in 3D (X-, y- en z-coord).
Nu moet dit kunnen verwerkt worden in een ander pakket dat 2.5D werkt ttz 2D met bij de punten de z-coord geïnsert als tekst.

Ik zou dus via een loop voor alle punten binnen de tekening de coordinaten ophalen, vervolgens via het textcommando de z-waarde inserten en overgaan naar een volgend punt tot deze allemaal gedaan zijn.

Vervolgens kan ik via FLATTEN de tekening naar niveau 0 brengen.

Kan iemand helpen bij deze lisproutine? (mijn laatste lisp-werk dateert van een jaar of 10 geleden helaas)...

alvast hartelijk bedankt,

[EddyBeerke]

Ik denk dat je bij het juiste forum bent.
Hier helpen we graag mee (jongens... ik spreek toch niet allen voor mijzelf he?)
't Is dat ik met vakantie ben anders kon ik je al wat opweg helpen.
Wat je wel kunt doen is kijken wat er tot nu al gescheven is over 3d coords.
Ook de lessen van Joop op deze site kunnen je aardig op weg helpen met de coords.
Ik hoor/lees nog wel volgende week of je al wat verder bent.

[roy_043]

Deze bijdragen kunnen je verder helpen:
http://www.cadsite.be/smf/index.php?topic=3477.0
http://www.cadsite.be/smf/index.php?topic=3769.0

[Kristof_0609]

(defun c:zval ()
(setq a (ssget ' ((0 . "point"))))
(setq b (sslength a))
(setq c 0)
(while (< c b)
(setq jk (cdr (assoc 10 (entget (ssname a c)))))
(setq gh (caddr jk))
(setq mu (rtos gh 2 2))

(setq jm (list (car jk) (cadr jk)))
(command "text" jm "" "" mu)
(setq c (+ c 1))
)
)

Lips zet een textwaarde (z-waarde) op je punten.
Hoop dat dit is wat je zcoht.

[roy_043]

Het probleem is klaarblijkelijk op een andere manier al opgelost:
http://www.cadsite.be/smf/index.php?PHPSESSID=f463e45a2ca8c3d332bb834f5da123e6&topic=4286.0