Coordinaten met invoegpunt

[Peter T.]

Dames en heren,

Het volgende irritante gegeven doet zich zojuist voor. Men baas vraagt van mij om op een plan van de omgeving van een autostrade station een hele hoop coordinaten bij te zetten. Voorlopig doe ik dit dus met een block met attribuut. Deze voeg ik overal in waar ik het punt van wil weten en dan komen de x y en z coordinaten in de properties en hoef ik die enkel over te tippen.

Nu was eigenlijk men vraag. Aangezien ik zo een 500 tal punten nodig heb (ja zeer groot station  ) is er een manier om automatisch die gegevens in te vullen? Zoiets als een block invoegen en dan krijg je in de tekst ineens de benodigde gegevens.

met vriendelijke groetjes,

Peter

[HofCAD]

Dames en heren,

Het volgende irritante gegeven doet zich zojuist voor. Men baas vraagt van mij om op een plan van de omgeving van een autostrade station een hele hoop coordinaten bij te zetten. Voorlopig doe ik dit dus met een block met attribuut. Deze voeg ik overal in waar ik het punt van wil weten en dan komen de x y en z coordinaten in de properties en hoef ik die enkel over te tippen.

Nu was eigenlijk men vraag. Aangezien ik zo een 500 tal punten nodig heb (ja zeer groot station  ) is er een manier om automatisch die gegevens in te vullen? Zoiets als een block invoegen en dan krijg je in de tekst ineens de benodigde gegevens.

met vriendelijke groetjes,

Peter

Beste Peter,

Kun je niet aan een Point een field hangen met bijv een omschrijving
als onderstaand:
%<\AcObjProp Object(%<\_ObjId 2120065808>%).Coordinates \f "%lu6">%

Als je het point verplaatst zullen ook de coordinaten verplaatsen.
Je kan om het plaatsen te vergemakkelijken het point en de field in een
block opnemen en later exploderen.

Met vriendelijke groet,
HofCAD CSI

[Reimer]

Beste Peter,

onderstaande lisp kan in jouw geval weleens snel werken.

Reimer

;-------------------------------------------------------algemeen---------------
; FILENAAM : XYZ.LSP
; DATUM    : 23-09-2004
; DOOR     : Rutger          www.cadforum.nl
; STATUS   : Freeware
;-------------------------------------------------------omschrijving-----------
; even een coordinaat bij een punt zetten met leader
;-------------------------------------------------------variabelen-------------
; pt
; pt1
; x
; y
; z
; xyz
;-------------------------------------------------------source code------------
(defun c:xyz(/ pt pt1 x y z xyz)
(setq pt (getpoint "\nselecteer coordinaat : "))
(setq x(rtos(car pt)))
(setq y(rtos(cadr pt)))
(setq z(rtos(caddr pt)))
(setq xyz (strcat x "," y "," z ))
(setq pt1 (getpoint pt "\nTo Point: "))
(command "leader" pt pt1 "" xyz "" )
(princ)

)
(prompt "\nType xyz om te starten")
;-------------------------------------------------------einde------------------


PS wanneer je de tekst steeds op de zelfde afstand van het punt wilt zetten dan kun je nog de volgende aanpassing doen om minder te hoeven klikken.
verwijder de regel: (setq pt1 (getpoint pt "\nTo Point: "))
verander de volgende regel van: (command "leader" pt pt1 "" xyz "" )
in: (command "leader" pt "@1,1" "" xyz "" )
op de plek van 1,1 kun je jouw gewenste coordinaten plaatsen.

Succes