CADsite forum

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