VectorWorks forum: Kleuren Naar Klasses - VectorWorks forum

Ga naar inhoud

Pagina 1 van 1

Kleuren Naar Klasses

#1 Gebruiker is offline   Pascal 

  • Expert
  • Groep: Members
  • Posts: 1,069
  • Lid geworden: 17-June 04
  • Gender:Male
  • Location:Loker-heuvelland
  • Interests:DTP, jeugdvoetbal
  • Stad:Loker

Gepost 04 June 2014 - 01:52 PM

Wij krijgen vaak tekeningen binnen van een betonconstructuur die tekent in autocad, en waarbij ALLES op de klasse 0 staat
hij gebruikt ook de kleuren cyaan, blauw, geel, groen en rood voor zijn lijnen. Vaak moeten we die tekeningen als onderlegger gebruiken
en maken we van die kleuren grijswaarden.
We werken nu als volgt, ik selecteer alle groene lijnen en verplaats deze naar de klasse groen die ik dan de grijze instellingen meegeef.
dan alle rode lijenn selecteren en weer verplaatsen naar klasse rood, waar andere grijswaarden automatisch worden toegekend.

Vraag is nu is er geen scriptmogelijkheid, waarbij ik alles selecteer en de kleuren automatisch van de klasse 0 kan verplaatsen naar de respectievelijke klassen rood, groen, etc.

mvg
Pascal
iMac (Retina 5K, 27-inch, 2017)
Processor 4,2 GHz Intel Core i7
Geheugen 24 GB 2400 MHz DDR4
27-inch (2560 x 1440)
Videokaart Radeon Pro 575 4096 MB
OS MacOs High Sierra

Vectorworks 2018 Architectuur SP4+ Renderworks
0

#2 Gebruiker is offline   Gerrit 

  • Expert
  • Groep: Root Admin
  • Posts: 3,319
  • Lid geworden: 17-June 04
  • Gender:Male
  • Stad:DE Hasselt

Gepost 04 June 2014 - 02:26 PM

Niet meteen een Vectorscript antwoord, maar de Import DWG dialoog (tweede tabblad) geeft je de mogelijkheid om de kleuren om te zetten zowel in lijndikte als naar zwart.
Retina MacBook Pro i7 • iPad Pro 10.5 • iPhone SE
macOS - iOS - Vectorworks [meest recente versies]
0

#3 Gebruiker is offline   dirk 

  • Expert
  • Groep: Members
  • Posts: 260
  • Lid geworden: 09-July 04

Gepost 13 June 2014 - 04:11 PM

Hier is een script waarmee ik lijndikte in de juiste kleur en klasse plaats.
Met een paar kleine aanpassingen kan dit wel in één keer uitvoeren wat jij manueel doet.

mvg

Dirk






PROCEDURE opn;

{verbeterd 28-02-2007-13-03-2013}

LABEL 1,2;
VAR
H,k,l : Handle;
t,TY: integer;
p,a ,r: real;
oc , ot, op, otn , CLAS,C: string;
Error : Boolean;

BEGIN


H:= FActLayer;
repeat
begin
setselect(H);
t:=GetLW(H);
TY := Gettype(H);
CLAS := Getclass(H);


if (t=4) and ((CLAS='Geen') OR (CLAS='Lijn-010') OR (CLAS='Lijn-018') OR (CLAS='Lijn-025') OR (CLAS='Lijn-035') OR (CLAS='Lijn-050') OR (CLAS='Lijn-070') OR (CLAS='Lijn-100'))
THEN BEGIN
SetClass(h,('Lijn-010'));

END;


if (t=7)and((CLAS='Geen') OR (CLAS='Lijn-010') OR (CLAS='Lijn-018') OR (CLAS='Lijn-025') OR (CLAS='Lijn-035') OR (CLAS='Lijn-050') OR (CLAS='Lijn-070') OR (CLAS='Lijn-100'))
THEN BEGIN
SetClass(h,('Lijn-018'));

END;


if (t=10)and((CLAS='Geen') OR (CLAS='Lijn-010') OR (CLAS='Lijn-018') OR (CLAS='Lijn-025') OR (CLAS='Lijn-035') OR (CLAS='Lijn-050') OR (CLAS='Lijn-070') OR (CLAS='Lijn-100'))
THEN BEGIN
SetClass(h,('Lijn-025'));

END;


if (t=14)and((CLAS='Geen') OR (CLAS='Lijn-010') OR (CLAS='Lijn-018') OR (CLAS='Lijn-025') OR (CLAS='Lijn-035') OR (CLAS='Lijn-050') OR (CLAS='Lijn-070') OR (CLAS='Lijn-100'))
THEN BEGIN
SetClass(h,('Lijn-035'));

END;

if (t=20)and((CLAS='Geen') OR (CLAS='Lijn-010') OR (CLAS='Lijn-018') OR (CLAS='Lijn-025') OR (CLAS='Lijn-035') OR (CLAS='Lijn-050') OR (CLAS='Lijn-070') OR (CLAS='Lijn-100'))
THEN BEGIN
SetClass(h,('Lijn-050'));

END;
if (t=28)and((CLAS='Geen') OR (CLAS='Lijn-010') OR (CLAS='Lijn-018') OR (CLAS='Lijn-025') OR (CLAS='Lijn-035') OR (CLAS='Lijn-050') OR (CLAS='Lijn-070') OR (CLAS='Lijn-100')) {dodb 0,10}
THEN BEGIN
SetClass(h,('Lijn-070'));

END;
if (t=31)and((CLAS='Geen') OR (CLAS='Lijn-010') OR (CLAS='Lijn-018') OR (CLAS='Lijn-025') OR (CLAS='Lijn-035') OR (CLAS='Lijn-050') OR (CLAS='Lijn-070') OR (CLAS='Lijn-100')) {dodb 0,10}
THEN BEGIN
SetClass(h,('Lijn-100'));

END;
SetPenColorByClass(h);
if (t<>31)AND (t<>28)AND(t<>20) AND (t<>14)AND (t<>10) AND (t<>7)AND (t<>4) AND (TY<>11){dodb ANDER }


then SetPenFore(H, 274);


dselectall;
H:=NextObj(H);

dselectall;
end;
until(H=nil);
2:
End;
RUN(opn);
Mac OS 10.13.3 / iMac 27"- i7 32GB / AMD Radeon R9 M395X 4096 MB / VW 2018 Architectuur.
0

Deel dit topic:


Pagina 1 van 1

1 Gebruiker(s) lezen dit topic
0 gebruikers, 1 gasten, 0 anonieme gebruikers