hier mal das Sript:
!! =============== marker polygon =======================================
if gs_follow_clipp=`Ausschnittpolygon folgen` then
if AC_ClippNodes>0 then
for i=1 to AC_ClippNodes
put AC_ClippCoord[1]
next i
gs_boundary_rect[1][1]=min(use(nsp))
gs_boundary_rect[1][3]=max(get(nsp))
for i=1 to AC_ClippNodes
put AC_ClippCoord[2]
next i
gs_boundary_rect[1][2]=min(use(nsp))
gs_boundary_rect[1][4]=max(get(nsp))
endif
endif
!!!!rect2 gs_boundary_rect[1][1],gs_boundary_rect[1][2],gs_boundary_rect[1][3],gs_boundary_rect[1][4]
pen AC_ClippPen
line_type AC_ClippLineType
fill AC_MarkerFill
pen KUHStanDet_A
line_type KUHStanDet_B
unID=1
!!!If AC_Clipp Then
add2 AC_RefCoord[1][1],AC_RefCoord[1][2]
if gs_marker_polygon=`Ausschnittpolygon` then
for i=1 to AC_ClippNodes
hotspot2 AC_ClippCoord[1],AC_ClippCoord
von mir eingesetzt die Parameter mit KUH..
--> an dieser Stelle eingesetz ist die Wirkung gleich Null.
wenn ich die AC_Clipp... Parameter mit ! deaktiviere wird das Markerpolygon immer schwarz mit Volllinie, der Polygontyp wird durch den Standarddialog definiert.
Hier mein jetziges Vorgehen am Beispiel des 'gerundeten Rechteckes'
hotspot2 -1,0,unID,gs_round_rad,3 : unID=unID+1
hotspot2 gs_round_rad,0,unID,gs_round_rad,2 : unID=unID+1
del 2
pen KUHStanDet_A
line_type KUHStanDet_B
poly2_ 13, 1,
gs_boundary_rect[1][3]-gs_polygon_rad, gs_boundary_rect[1][2], 1,
gs_boundary_rect[1][3]-gs_polygon_rad, gs_boundary_rect[1][2]+gs_polygon_rad, 901,
0, 90, 4001,
Bei der Definition der Parameter innerhalb der if else Schleifen ? wird alles so wie ich mir das wünsche, ich muss es nur bei jeder Markerpolygonbeschreibung einfügen, da die