plinewidth change
Accepted solution
Hi
For example
(mapcar '(lambda (x) (eval (list 'defun (read (strcat "c:p" (itoa x))) nil (list 'setvar "plinewid" x))))
'(0 1 2 3 4 5 6 7 8 9 10)
)
@+
Hi
You can't use a point to defun's function.
An another
(mapcar '(lambda (a b) (eval (list 'defun (read (strcat "c:p" b)) nil (list 'setvar "plinewid" a))))
'( 0 1 1.5 2 2.5 3 4 5 6 7 8 9 10)
'("0" "1" "15" "2" "25" "3" "4" "5" "6" "7" "8" "9" "10")
)
@+
@patrick_35 wrote:
....
(mapcar '(lambda (a b) (eval (list 'defun (read (strcat "c:p" b)) nil (list 'setvar "plinewid" a)))) '( 0 1 1.5 2 2.5 3 4 5 6 7 8 9 10) '("0" "1" "15" "2" "25" "3" "4" "5" "6" "7" "8" "9" "10") )....
That's fine as long as you don't also need one to set it to 15 mils, or 25 mils, or.... Unlike periods, hyphens are allowed in command names -- consider making that lower list this way, instead:
'("0" "1" "1-5" "2" "2-5" "3" "4" "5" "6" "7" "8" "9" "10")
Then you can have both a P1-5 command to set it to 1.5, and a P15 command to set it to 15 mils.
Kent Cooper, AIA 
@Anonymous wrote:
.... i give real numbers.for eg( 10.1,5.2,5.15,etc)....
Another way to go about it: Define not as a collection of separate command names, but as a single function that takes an argument for the setting:
(defun p (mils) (setvar 'plinewid mils))
Then you would use it this way:
(p 10.1)
(p 5.2)
(p 5.15)
etc.
which is slightly more cumbersome in usage, since it requires the parentheses and the space between the p and the value, but:
A) you don't have to have separate command definitions for every value you'll ever want to set it to, and
B) you can give it a value that you've never used before and isn't in any such command definition, without re-doing the other routine to add a definition for that value, and
C) you don't have to remember to use a command name with the value in a different format from the "true" value, e.g. P15 or P1-5 for a result of 1.5, but instead you enter it as the actual numerical value, whether integer or decimal.
Kent Cooper, AIA
You are right, it just to economize a character.
I find that it makes of a labyrinth just to redefine a variable.
That allowed to make an exercise of style.
@+
And, in new-enough versions at least, while PL is the command alias for the PLINE command, without your typing any more than that it also offers the PLINEWID System Variable to pick on, so you don't need to spell it all out. Type PL, pick that, give it a value -- still slightly more than with those defined commands or function, but no code is required at all.
Kent Cooper, AIA
ALIASEDIT COMMAND, Add button in the dialog box. If it's not obvious enough from there, read about it in Help.
Kent Cooper, AIA