hi klaus
probiers mal hiermit
define aa
local kpkt
local kmitt
local krad
local kumf
local kbem
local bem1
local bem2
local bem3
loop
loop
catch elem
read pnt 'kreis antippen' kpkt
inq_elem kpkt
exit_if (inq 403=circle)
beep display_no_wait 'kein kreis gefunden' wait 2
end_loop
let kmitt (inq 101)
let krad (inq 3)
let kumf (inq 102)
read pnt 'bemassungsrichtung antippen' rubber_line kmitt kbem
let bemw (ang (kmitt-kbem))
let bem1 (kmitt+(pnt_ra krad (bemw+90)))
let bem2 (kmitt+(pnt_ra krad (bemw-90)))
split bem1 bem1 bem2 bem2 end
if ((bem1<>kumf) and (bem2<>kumf))
merge kumf end
end_if
da_dim_line manual parallel bem1 bem2
read pnt 'ort angeben' last_feedback bem3 bem3
end
end_loop
end_define
gruss aus finsterhennen
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP