rosebud5

Hello and happy holidays, does any one know of a way to keep the drop down menu for line weights open all the time. I know it seems like a small thing but it is one extra step that adds up over time. I have tried with some success to create a vector script for different line weights which worked but was not that stable and I would sometimes change other line weights as well. Or maybe a custom menu item that you could add for .18 and another for .25 etc. thanks,

Thanks for the reply, I guess that I am looking for something like the smart paint tool that is in illustrator

Hi Raymond, thanks so much for the speedy reply, I am attaching the file example. A lot of times I will import a dwg from kholer or some other site and need to fill it and have to spend a lot of time finding the tiny spaces between lines. Some of the shapes I can fill with the paint bucket but others won't fill and I waste a lot of time trying to close everything. I am including a sample file where the two side shapes are not filling. Maybe I should have said close all lines into a poly. Thanks, close lines sample.vwx

Hi there, I am wishing that there was a script to take 2d polygons that are open and make them closed within a certain tolerance. I import DWG's a lot and I always have to spend a good deal of time finding tiny little breaks and inconsistencies in order to fill the objects. Is there any kind of script that would do an auto join if the polyine is a short distance away? Thanks,

outstanding, in the script, I had to use 'SetFillBack' rather than 'SetFBack', why is that

Thanks, so... If I want to get rid of the line weight and just have a transparent fill of black, can I get rid of the top part of the script? " { (c) twk based off of original code by Petri Sakkinen 2008 } CONST newWeight = 10; PROCEDURE ChangeIt (h : HANDLE); VAR oldLW : INTEGER; BEGIN oldLW := GetLW(h); IF (oldLW = 2) OR (oldLW = 5) OR (oldLW = 7) OR (oldLW = 10) OR (oldLW = 14) OR (oldLW = 20) THEN SetLW(h, newWeight); SetPenFore(h, 0,0,0); SetFPat(H1,0) [zero]; SetFillBack(h,0,0,0); END; BEGIN FOREACHOBJECT(ChangeIt, ((SEL=TRUE))); END; RUN(LineWeightChange);

Thank you both! what about it I want to do a transparent fill?

Hi, Pat helped me with this script and it is working great! What about if I wanted to add a fill to the script with a specific color, for example rectangle with same red fill and black outline. < PROCEDURE LineWeightChange; { (c) twk based off of original code by Petri Sakkinen 2008 } CONST newWeight = 5; PROCEDURE ChangeIt (h : HANDLE); VAR oldLW : INTEGER; BEGIN oldLW := GetLW(h); IF (oldLW = 2) OR (oldLW = 5) OR (oldLW = 7) OR (oldLW = 10) OR (oldLW = 14) OR (oldLW = 20) THEN Begin SetLW(h, newWeight); SetPenFore(h, 65535,0,0); End; END; BEGIN FOREACHOBJECT(ChangeIt, ((SEL=TRUE))); END; RUN(LineWeightChange);

Hi Pat, script is working great! What about if I wanted to add a fill to the script with a specific color, for example rectangle with same red fill and black outline. < PROCEDURE LineWeightChange; { (c) twk based off of original code by Petri Sakkinen 2008 } CONST newWeight = 5; PROCEDURE ChangeIt (h : HANDLE); VAR oldLW : INTEGER; BEGIN oldLW := GetLW(h); IF (oldLW = 2) OR (oldLW = 5) OR (oldLW = 7) OR (oldLW = 10) OR (oldLW = 14) OR (oldLW = 20) THEN Begin SetLW(h, newWeight); SetPenFore(h, 65535,0,0); End; END; BEGIN FOREACHOBJECT(ChangeIt, ((SEL=TRUE))); END; RUN(LineWeightChange);

you are the man! thank you!!

Hi Pat, I am guessing that it should not matter, but the script works going from another color back to black when I use it as you did above, but I cant go the other way. I am trying to go from black to red or some other color. if you run the script on a black rectangle/line, will it change to the specified color (red, 221,0,0)

I tried with a new document and different color and still the line weight changes but the color does not. Thanks,

Hi Pat, thanks for walking me through this, totally lost when it comes to coding. I tried the script and line weight changes but color does not? Thanks,

Hi Pat, thanks for the quick reply, I did the following PROCEDURE LineWeightChange; { (c) twk based off of original code by Petri Sakkinen 2008 } CONST newWeight = 5; PROCEDURE ChangeIt (h : HANDLE); VAR oldLW : INTEGER; BEGIN oldLW := GetLW(h); IF (oldLW = 2) OR (oldLW = 5) OR (oldLW = 7) OR (oldLW = 10) OR (oldLW = 14) OR (oldLW = 20) THEN SetLW(h, newWeight); SetPenFore(Handle, 221,0,0); END; BEGIN FOREACHOBJECT(ChangeIt, ((SEL=TRUE))); END; RUN(LineWeightChange); Getting an error, any thoughts just trying to change for selected object(s)

what would be a simple script for changing the line weight and color of a line at the same time, for example, change to .25 line weight and red from an existing .05 and black line. Thanks Hi Pat, just posted that, also I am using 2018 version. thanks for the help