Met het commando "_dimordinate" word het X of Y coordinaat geplaatst.
Is er een commando waarmee in 1x beide coordinaten worden geplaatst?
Bij voorbaat dank en groeten.
Peter
Beste TTB,
ik gebruik meestal de onderstaande lisproutine om x-, y- en z-waarden te plaatsen. Ik heb hem zelf ook iets bewerkt om alleen de x- en y-waarden te plaatsen.
Groeten,
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------------------
Of alleen x en y:
;-------------------------------------------------------algemeen---------------
; FILENAAM : XY.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
; xy
;-------------------------------------------------------source code------------
(defun c:xy(/ pt pt1 x y xy)
(setq pt (getpoint "\nselecteer coordinaat : "))
(setq x(rtos(car pt)))
(setq y(rtos(cadr pt)))
(setq xy (strcat x "," y))
(setq pt1 (getpoint pt "\nTo Point: "))
(command "leader" pt pt1 "" xy "" )
(princ)
)
(prompt "\nType xy om te starten")
;-------------------------------------------------------einde------------------
Reimer,
Ontzettend bedankt, werkt perfect !
Groeten.
Peter