Scale List Edit

[Commandobill]

Perhaps the other scales were not present in your scale list to begin with

 

Yea like Lee said. It's only going to have them there if they were there to begin with

[bijoymano]

can you please help me to create a lisp for adding a new scale with if statement

 

(command "-scalelistedit" "a" "20:1" "20:1" "E")

 

I don't know how to use "IF" statement in this command

 

this command is working but if their is "20:1" error message is comming

[Lee Mac]

Two ways to return the existing Scale List:

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] [color=black]LM:GetScaleList[/color] [b][color=RED]([/color][/b] [b][color=BLUE]/[/color][/b] dic l [b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [i][color=#990099];; © Lee Mac 2010[/color][/i]
 
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]vl-catch-all-error-p[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] dic
         [b][color=RED]([/color][/b][b][color=BLUE]vl-catch-all-apply[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]vla-item[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Dictionaries[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveDocument[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-acad-object[/color][/b][b][color=RED])[/color][/b]
               [b][color=RED])[/color][/b]
             [b][color=RED])[/color][/b]
             [b][color=#a52a2a]"ACAD_SCALELIST"[/color][/b]
           [b][color=RED])[/color][/b]
         [b][color=RED])[/color][/b]
       [b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]vlax-for[/color][/b] i dic
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] l
       [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]300[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vlax-vla-object->ename[/color][/b] i[b][color=RED])[/color][/b]
             [b][color=RED])[/color][/b]
           [b][color=RED])[/color][/b]
         [b][color=RED])[/color][/b]
         l
       [b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]reverse[/color][/b] l[b][color=RED])[/color][/b]
[b][color=RED])[/color][/b]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] [color=black]LM:GetScaleList[/color] [b][color=RED]([/color][/b] [b][color=BLUE]/[/color][/b] dic [b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [i][color=#990099];; © Lee Mac 2010[/color][/i]

 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] dic [b][color=RED]([/color][/b][b][color=BLUE]dictsearch[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]namedobjdict[/color][/b][b][color=RED])[/color][/b] [b][color=#a52a2a]"ACAD_SCALELIST"[/color][/b][b][color=RED]))[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b]
    [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] x [b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]300[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] x[b][color=RED]))))[/color][/b]
     [b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]vl-remove-if-not[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] x [b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]=[/color][/b] [b][color=#009900]350[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] x[b][color=RED])))[/color][/b] dic[b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]
[b][color=RED])[/color][/b]

[lpseifert]

can you please help me to create a lisp for adding a new scale with if statement

 

(command "-scalelistedit" "a" "20:1" "20:1" "E")

 

I don't know how to use "IF" statement in this command

 

this command is working but if their is "20:1" error message is comming

this might interest you

http://www.cadtutor.net/forum/showthread.php?46238-How-do-you-check-the-existence-of-a-Viewport-Scale-with-lisp&highlight=Scale+list