Jump to content
  • 0
donlb55

Line Type Palette (self-created)

Question

Some years ago (MiniCAD 4+?) I created a Line Type Palette that allowed (and still allows) me to click on a "Line Type" (for example "00-Blue") which changes the line color (prior to drawing it) to BLUE and .15 thickness (like old drafting pens). This palette (with some tweaking in various version upgrades) still works fine in my custom files (that I use for my architectural work), but NOT in the VW default "NEW" file (VW 2020, current SP). The line weights change but NOT the color. 

 

Any suggestions? Thanks!

Share this post


Link to post

3 answers to this question

Recommended Posts

  • 0

The way color are defined changed a loooong time ago, but the old method basically still worked. hold 

 

If you can post the script (hold down the Option key and click on the script in the Palette. Copy the script from the Script Editor window) we can probably help you figure out what needs to change to make the scripts work again.

 

Share this post


Link to post
  • 0

Here's one of the line weight/line color scripts (which works in my custom files, but not in VW "blank" file):

 

Procedure CustTool; VAR Name:STRING; Result:BOOLEAN; BEGIN PenFore(2037); PenSize(1); END; Run(CustTool);

Share this post


Link to post
  • 0

Somewhere along the line, VW shifted from a mostly fixed color palette to the more flexible multiple palettes that we have today. Originally since there was a "fixed" palette, you could use a single number to define the color.

 

With the new format, colors need to be defined using three values RGB (Red, Green, Blue).

 

The attached script will return the RGB values for the PenFore of the first selected object on the active layer. Select an object with the color you want, run the script, copy the values from the dialog box. Edit your script and paste the RGB string into the PenFore() in place of the single number.

Procedure ReturnRGB;

Var	R1,G1,B1:Real;
	S1:String;
	
Begin
	GetPenFore(FSActLayer,R1,G1,B1);
	S1:=StrDialog('Pen RGB Values',Concat(R1,',',G1,',',B1));
End;

Run(ReturnRGB);

 

Share this post


Link to post

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Answer this question...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


 

7150 Riverwood Drive, Columbia, Maryland 21046, USA   |   Contact Us:   410-290-5114

 

© 2018 Vectorworks, Inc. All Rights Reserved. Vectorworks, Inc. is part of the Nemetschek Group.

×
×
  • Create New...