topic Re: Fast change line, polyline, arc global width in Visual LISP, AutoLISP and General Customization Forum

Fast change line, polyline, arc global width

ancrayzy — Sat, 08 Jun 2024 02:49:16 GMT

1. In the usual way, to change the thickness of a line, polyline, or arc...
I typically use the following method:
Type the command PL -> Start point -> select [Width] -> Specify starting width <xxx> -> Specify ending width <xxx>:
2. Is there any way to quickly and simply change this process, for example, like this:
Type the command ChangeGW -> enter the Global Width parameter of current layer (in mm) -> Enter to end the command

Re: Fast change line, polyline, arc global width

johnyDFFXO — Sat, 08 Jun 2024 07:17:21 GMT

PlineWidth is a global property, it has nothing to do with layers. Can't be set (only) for current layer.

PLINEWID system variable is probably what you want. Use PGP alias if you want to have a different name for it.

Re: Fast change line, polyline, arc global width

ancrayzy — Sat, 08 Jun 2024 09:07:45 GMT

Thank you for you reply @johnyDFFXO
I mean there is any way to shortened the routines below with autolisp

Type the command PL -> Start point -> select [Width] -> Specify starting width <xxx> -> Specify ending width <xxx>:

Re: Fast change line, polyline, arc global width

ancrayzy — Sat, 08 Jun 2024 09:33:01 GMT

I have created a lisp as below and it's work good for my request and I want to share with everyone.

If there is any better ideas, please comment to make it better.

(defun c:ChangeGW (/ width) (setq width (getreal "\nEnter the Global Width parameter (in mm): ")) (if width (progn (setvar "PLINEWID" width) (princ (strcat "\nGlobal width set to " (rtos width 2 2) " mm. Use the PL command to draw polylines with this width.")) ) (princ "\nInvalid width.") ) (princ) ) (defun c:PL () (command "_PLINE") (while (setq pt (getpoint "\nSpecify next point or [Arc/Halfwidth/Length/Undo/Width]: ")) (command pt) ) (command "") (princ) )

Re: Fast change line, polyline, arc global width

Sea-Haven — Sun, 09 Jun 2024 04:57:40 GMT

If you have a few like less that 10 widths that you always use then make multiple defuns that just set the Pline width then call the make pline as a seperate function. You used "PL" which is a built in function it is better to not do that.

(defun c:GW1 ( / ) (setvar "PLINEWID" 1) (c:plx) ) (defun c:GW2 ( / ) (setvar "PLINEWID" 2) (c:plx) ) (defun c:GW3 ( / ) (setvar "PLINEWID" 3) (c:plx) ) (defun c:PLx ( / ) (setq pt (getpoint "\nSpecify start point ")) (command "_PLINE" pt) (while (setq pt (getpoint (getvar 'lastpoint) "\nPick next point Enter to finish ")) (command pt) ) (command "") (princ) )

A way more advanced way is you can type P3 p23 ie pxx where xx can be any number including say 123.45. It uses a reactor to see what is after the "P" and uses that value. Currently I do C123 O123 F123 for circle, offset and fillet as any value. But maybe try the simple way 1st. In what I am talking about can have 26 commands A-Z.

Re: Fast change line, polyline, arc global width

Kent1Cooper — Sun, 09 Jun 2024 11:01:17 GMT

@ancrayzy wrote:

....
I mean there is any way to shortened the routines below with autolisp
Type the command PL -> Start point -> select [Width] -> Specify starting width <xxx> -> Specify ending width <xxx>:

The ending width default offered is always the starting width you just gave it, so you can use Enter to accept that.

(defun C:ChangeGW () (command "_.pline" "_width" pause ""))

That will leave you in the PLINE command, at the point of choosing your next point or option [such as Arc].

Re: Fast change line, polyline, arc global width

ancrayzy — Mon, 10 Jun 2024 01:04:35 GMT

Thanks @Kent1Cooper and @Sea-Haven for your valuable help.

Regards !

Re: Fast change line, polyline, arc global width

glvinson46 — Mon, 09 Feb 2026 14:14:36 GMT

Praise the Lord Jesus Christ! May God be with you ALL!

Re: Fast change line, polyline, arc global width

Sea-Haven — Tue, 10 Feb 2026 00:06:43 GMT

Just another idea on old post change this line. As you type ChangeGw you could do it this way.

(defun ChangeGW (width / ) ; (setq width (getreal "\nEnter the Global Width parameter (in mm): ")) just type (changegw 3)

I would change defun to CGW a bit shorter.

There is another way to do this using a reactor you type P12 P3 p1-5 the 1-5 is need for a width of 1.5 as the decimal point is detected differently and so on an error will occur as command is unknown but a reactor traps this error and gets the width value and sets the global width.

An example code attached. Just had a quick look the Pline width is in it.