Code:
(DEFUN c:flae_test (
/ farbe
;;p_ul p_ur
;;p_ol p_or
r_mitte h_mitte
links rechts
oben unten
FlaeToolAsk4GetElements#center
*FlaeToolAsk4SearArea*
)(setq FlaeToolAsk4GetElements#center (getpoint "\nwähle einen Punkt: "))
(setq *FlaeToolAsk4SearArea* (getdist "\ndefiniere einen Suchradius: "))
(setq
;;split center-coord
r_mitte (car FlaeToolAsk4GetElements#center)
h_mitte (cadr FlaeToolAsk4GetElements#center)
;;calculate coord-values for the window-corners
links (- r_mitte *FlaeToolAsk4SearArea*)
rechts (+ r_mitte *FlaeToolAsk4SearArea*)
oben (+ h_mitte *FlaeToolAsk4SearArea*)
unten (- h_mitte *FlaeToolAsk4SearArea*)
;;coordinates for the point top-left (p_ol) and button-right (p_or)
p_ul (list links unten )
p_ur (list rechts unten )
p_ol (list links oben )
p_or (list rechts oben )
) ;end-setq
;;zoom need window for selection
(command "_.zoom" "_w" p_ul p_or)
;;nochmal um alles zu sehen
(command "_.zoom" "fa" 0.8)
(princ "\np_ur: ")
(princ p_ur)
(princ "\np_ol: ")
(princ p_ol)
(setq selected_elements
(SSGET "_c"
p_ur
p_ol
'((0 . "LINE,ARC,LWPOLYLINE"))
)
) ;end-setq
(command "rechteck" p_ul p_or)
(command "_.zoom" "_p") ;0.8 rückgängig
(command "_.zoom" "_p") ;ausgangssituation
selected_elements ;Rückgabewert
)