Hallo zusammen,
Zitat:
wenn du nur die ansichtenabhängigen Objekte durchnudelst
zurzeit gehe ich sie alle durch. Und alle Strichstärken werden dick (das sind dann leider ein paar Linien zu viel).
Ich habe als Auswahlkriterium die Linienfarbe: Wenn sie 114 ist, dann habe ich die richtige Linie mit ihrer allgemeinen Eigenschaft am Haken. Wenn sie aber 78 wäre, dann wäre das die ansichtenabhängige Farbeigenschaft.
Einfacher Test: ich ermittle nur noch Linien mit Farbe 78 => Ergebnis: eine "leere Menge". Demnach kann ich mit meinem derzeitigen Code nicht die ansichtenabhängige Eigenschaft ermitteln.
Ich klemme den momentanen Code mal hier an, vielleicht hilft's zur Ideenfindung - und vielen Dank schon mal!
$$ --- View_dep_reste.grs
$$ --- 18.07.2008 /
$$ - Programm durchsucht die aktuelle Zeichnungs-Teiledatei
$$ - nach Ansichten,
$$ - findet alle Kurven (Typen 3,5,6,9) mit Farben Nr. 78 und 114 ,
$$ - und weist Strichstärke 1=normal zu
$$ --- Deklarationen ---
GRIPSW/DECLRV
ENTITY/obj
STRING/load_prt(100,132)
STRING/StSMac(132),VNam(50,132),$
a(132)
NUMBER/resp,objClr,objWth,AobjWth,i,ii
NUMBER/Debug,NumVW
$$ --- Defaults ---
Debug=0
StSMac='nicht definiert!'
StSMac=ENVVAR/'STS_MAC_DIR',ASK,iferr,ERR010:
JUMP/OK_020:
ERR010: MESSG/'Fehler beim Ermitteln der Variable','STS_MAC_DIR'
OK_020: IF/ Debug == 1, PRINT/'STS_MAC_DIR='+StSMac
$$ --- Ansichten der aktuellen Zeichnung ermitteln ---
DRAWV/VNam,,NumVW,IFERR,CANCEL:
$$ --- Elemente durchsuchen ---
INEXTE/ALL
MASK/3,5,6,9 $$ Line, Circle, Conic, Spline
i = 0
LBL040:
obj=NEXTE/IFEND,LBL050:
objClr=&COLOR(obj)
$$ --- nur bei Farben 78 und 114 ändern ---
IFTHEN/(objClr == 114) or (objClr == 78)
DO/ LOOP2:, ii, 1, NumVW
VDEDIT/obj,REMOVE,VNam(ii)
LOOP2:
&LWIDTH(obj)=1
$$ &DENS(obj)=1
i=i+1
ENDIF
LBL049: JUMP/LBL040:
LBL050:
RPAINT
MESSG/istr(i)+' Elemente bearbeitet.',$
'UNDO ist bei Bedarf möglich.'
CANCEL:
HALT
Au weia, da fehlen jetzt sämtliche Einzüge - hoffe, man kann es trotzdem noch halbwegs lesen...
------------------
Gruß
UdoMM
:
<><
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP