Jump to content

GrRead Text Editor...

Lee Mac

By Lee Mac
in AutoLISP, Visual LISP & DCL

 Share

Recommended Posts

Lee Mac Grand Master

Lee Mac

Posted
Posted

Could be useful, could be just a novelty - but I was just messing around with GrRead, so have fun with it :D

 

(uses TAB to switch mode)

 

[i][color=#990099];; Text Editor by Lee McDonnell (Lee Mac)[/color][/i]
[i][color=#990099];; 04.06.2009[/color][/i]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:MacEdit [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] fLst tEnt elst gr dis ang[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] fLst [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#ff00ff]"HEIGHT"[/color][/b] [b][color=#ff00ff]"OBLIQUE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] Mac$fun [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] Mac$fun [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tEnt [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entsel[/color][/b] [b][color=#ff00ff]"\nSelect Text Entity: "[/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]wcmatch[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdadr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] elst [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] tEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]"*TEXT"[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\n<< Mode: "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]nth[/color][/b] Mac$fun fLst[b][color=RED])[/color][/b] [b][color=#ff00ff]" >>"[/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]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] gr [b][color=RED]([/color][/b][b][color=BLUE]grread[/color][/b] [b][color=BLUE]t[/color][/b] [b][color=#009900]5[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#009900]5[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] gr[b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]9[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[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]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]2[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]9[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] Mac$fun [b][color=RED]([/color][/b][b][color=BLUE]-[/color][/b] [b][color=#009900]1[/color][/b] Mac$fun[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\n<< Mode: "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]nth[/color][/b] Mac$fun fLst[b][color=RED])[/color][/b] [b][color=#ff00ff]" >>"[/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]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]5[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]listp[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]0[/color][/b] Mac$fun[b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] dis [b][color=RED]([/color][/b][b][color=BLUE]abs[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]-[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadadr[/color][/b] gr[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]caddr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]10[/color][/b] elst[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]entmod[/color][/b]
                [b][color=RED]([/color][/b][b][color=BLUE]subst[/color][/b]
                  [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]40[/color][/b] dis[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]40[/color][/b] elst[b][color=RED])[/color][/b] elst[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]entupd[/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]-1[/color][/b] elst[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]eq[/color][/b] [b][color=#009900]1[/color][/b] Mac$fun[b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ang [b][color=RED]([/color][/b][b][color=BLUE]-[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=BLUE]pi[/color][/b] [b][color=#009999]2.[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]angle[/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]10[/color][/b] elst[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[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]entmod[/color][/b]
                [b][color=RED]([/color][/b][b][color=BLUE]subst[/color][/b]
                  [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]51[/color][/b] ang[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]51[/color][/b] elst[b][color=RED])[/color][/b] elst[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]entupd[/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]-1[/color][/b] elst[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=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

Link to comment
Share on other sites
  • Replies 24
  • Created
  • Last Reply

Top Posters In This Topic

  • Lee Mac

    12

  • Freerefill

    5

  • David Bethel

    2

  • wizman

    2

Popular Days

Top Posters In This Topic

Popular Days

Freerefill Rising Star

Freerefill

Posted
Posted

Very cool, Lee. I'm playing around with Grread myself. I'm sure my program is a little convoluted at the moment, but I'm getting there. :3

Link to comment
Share on other sites
Lee Mac Grand Master

Lee Mac

Posted
  • Author
Posted
Very cool, Lee. I'm playing around with Grread myself. I'm sure my program is a little convoluted at the moment, but I'm getting there. :3

 

Thanks man, I look forward to seeing your program :D

Link to comment
Share on other sites
rkmcswain Grand Master

rkmcswain

Posted
Posted

Very slick...

 

I've got q few routines that use (grread) to preview size and location of objects to be constructed, but with about 5X as much code... Nice.

Link to comment
Share on other sites
Lee Mac Grand Master

Lee Mac

Posted
  • Author
Posted
Very slick...

 

I've got q few routines that use (grread) to preview size and location of objects to be constructed, but with about 5X as much code... Nice.

 

Thanks RkMcSwain, that is high praise indeed considering the source :)

Link to comment
Share on other sites
Lee Mac Grand Master

Lee Mac

Posted
  • Author
Posted

Added a functionality to change TEXTSTYLE - hit space to change style :D

 

[i][color=#990099];; Text Editor by Lee McDonnell (Lee Mac)[/color][/i]
[i][color=#990099];; 04.06.2009[/color][/i]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:MacEdit [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] fLst tEnt elst cnt styl gr dis ang[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] fLst [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#ff00ff]"HEIGHT"[/color][/b] [b][color=#ff00ff]"OBLIQUE"[/color][/b] [b][color=#ff00ff]"TEXTSTYLE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] Mac$fun [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] Mac$fun [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tEnt [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entsel[/color][/b] [b][color=#ff00ff]"\nSelect Text Entity: "[/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]wcmatch[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdadr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] elst [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] tEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]"*TEXT"[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\n<< Mode: "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]nth[/color][/b] Mac$fun fLst[b][color=RED])[/color][/b] [b][color=#ff00ff]" >>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cnt [b][color=RED]([/color][/b][b][color=BLUE]vl-position[/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]7[/color][/b] elst[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] styl [b][color=RED]([/color][/b]tstyl[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]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] gr [b][color=RED]([/color][/b][b][color=BLUE]grread[/color][/b] [b][color=BLUE]t[/color][/b] [b][color=#009900]5[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#009900]5[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] gr[b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b]
                   [b][color=RED]([/color][/b][b][color=BLUE]member[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[b][color=RED])[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]9[/color][/b] [b][color=#009900]32[/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]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]2[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]9[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] Mac$fun [b][color=RED]([/color][/b][b][color=BLUE]rem[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]1+[/color][/b] Mac$fun[b][color=RED])[/color][/b] [b][color=#009900]3[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\n<< Mode: "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]nth[/color][/b] Mac$fun fLst[b][color=RED])[/color][/b] [b][color=#ff00ff]" >>"[/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]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]5[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]listp[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]0[/color][/b] Mac$fun[b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] dis [b][color=RED]([/color][/b][b][color=BLUE]abs[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]-[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadadr[/color][/b] gr[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]caddr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]10[/color][/b] elst[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]entmod[/color][/b]
                [b][color=RED]([/color][/b][b][color=BLUE]subst[/color][/b]
                  [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]40[/color][/b] dis[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]40[/color][/b] elst[b][color=RED])[/color][/b] elst[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]entupd[/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]-1[/color][/b] elst[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]eq[/color][/b] [b][color=#009900]1[/color][/b] Mac$fun[b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ang [b][color=RED]([/color][/b][b][color=BLUE]-[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=BLUE]pi[/color][/b] [b][color=#009999]2.[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]angle[/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]10[/color][/b] elst[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[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]entmod[/color][/b]
                [b][color=RED]([/color][/b][b][color=BLUE]subst[/color][/b]
                  [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]51[/color][/b] ang[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]51[/color][/b] elst[b][color=RED])[/color][/b] elst[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]entupd[/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]-1[/color][/b] elst[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=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]2[/color][/b] Mac$fun[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]2[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]32[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]entmod[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]subst[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]7[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]nth[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rem[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cnt [b][color=RED]([/color][/b][b][color=BLUE]1+[/color][/b] cnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]length[/color][/b] styl[b][color=RED])[/color][/b][b][color=RED])[/color][/b] styl[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]7[/color][/b] elst[b][color=RED])[/color][/b] elst[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]entupd[/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]-1[/color][/b] elst[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=RED])[/color][/b]        
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] tstyl [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] tdef lst[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tdef [b][color=RED]([/color][/b][b][color=BLUE]tblnext[/color][/b] [b][color=#ff00ff]"STYLE"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] tdef[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] lst [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]2[/color][/b] tdef[b][color=RED])[/color][/b][b][color=RED])[/color][/b] lst[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 lst[b][color=RED])[/color][/b]

Link to comment
Share on other sites
David Bethel Grand Master

David Bethel

Posted
Posted

Lee,

 

I think this is the part of the color coding of the vlide editor that I don't like

 

Nothing quite adds up after the (if) call:

 

[b][color=BLACK]([/color][/b]defun c:MacEdit [b][color=FUCHSIA]([/color][/b]/ fLst tEnt elst cnt styl gr dis ang[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]vl-load-com[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq fLst '[b][color=NAVY]([/color][/b][color=#2f4f4f]"HEIGHT"[/color] [color=#2f4f4f]"OBLIQUE"[/color] [color=#2f4f4f]"TEXTSTYLE"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]or Mac$fun [b][color=NAVY]([/color][/b]setq Mac$fun 0[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]and [b][color=MAROON]([/color][/b]setq tEnt [b][color=GREEN]([/color][/b]car [b][color=BLUE]([/color][/b]entsel [color=#2f4f4f]"\nSelect Text Entity: "[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]wcmatch [b][color=GREEN]([/color][/b]cdadr [b][color=BLUE]([/color][/b]setq elst [b][color=RED]([/color][/b]entget tEnt[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [color=#2f4f4f]"*TEXT"[/color][b][color=MAROON])[/color][/b]
   [b][color=MAROON]([/color][/b]princ [b][color=GREEN]([/color][/b]strcat [color=#2f4f4f]"\n<< Mode: "[/color] [b][color=BLUE]([/color][/b]nth Mac$fun fLst[b][color=BLUE])[/color][/b] [color=#2f4f4f]" >>"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
   [b][color=MAROON]([/color][/b]setq cnt [b][color=GREEN]([/color][/b]vl-position [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 7 elst[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]setq styl [b][color=RED]([/color][/b]tstyl[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]or [b][color=GREEN]([/color][/b]eq [b][color=BLUE]([/color][/b]car [b][color=RED]([/color][/b]setq gr [b][color=PURPLE]([/color][/b]grread t 5 0[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] 5[b][color=GREEN])[/color][/b]
              [b][color=GREEN]([/color][/b]and [b][color=BLUE]([/color][/b]eq [b][color=RED]([/color][/b]car gr[b][color=RED])[/color][/b] 2[b][color=BLUE])[/color][/b]
                   [b][color=BLUE]([/color][/b]member [b][color=RED]([/color][/b]cadr gr[b][color=RED])[/color][/b] '[b][color=RED]([/color][/b]9 32[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]and [b][color=BLUE]([/color][/b]eq 2 [b][color=RED]([/color][/b]car gr[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]eq 9 [b][color=RED]([/color][/b]cadr gr[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
       [b][color=GREEN]([/color][/b]progn
         [b][color=BLUE]([/color][/b]setq Mac$fun [b][color=RED]([/color][/b]rem [b][color=PURPLE]([/color][/b]1+ Mac$fun[b][color=PURPLE])[/color][/b] 3[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
         [b][color=BLUE]([/color][/b]princ [b][color=RED]([/color][/b]strcat [color=#2f4f4f]"\n<< Mode: "[/color] [b][color=PURPLE]([/color][/b]nth Mac$fun fLst[b][color=PURPLE])[/color][/b] [color=#2f4f4f]" >>"[/color][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]and [b][color=BLUE]([/color][/b]eq 5 [b][color=RED]([/color][/b]car gr[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]listp [b][color=RED]([/color][/b]cadr gr[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
       [b][color=GREEN]([/color][/b]cond [b][color=BLUE]([/color][/b][b][color=RED]([/color][/b]eq 0 Mac$fun[b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b]setq dis [b][color=PURPLE]([/color][/b]abs [b][color=TEAL]([/color][/b]- [b][color=OLIVE]([/color][/b]cadadr gr[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]caddr [b][color=GRAY]([/color][/b]assoc 10 elst[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b]entmod
                [b][color=PURPLE]([/color][/b]subst
                  [b][color=TEAL]([/color][/b]cons 40 dis[b][color=TEAL])[/color][/b] [b][color=TEAL]([/color][/b]assoc 40 elst[b][color=TEAL])[/color][/b] elst[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b]entupd [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc -1 elst[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
             [b][color=BLUE]([/color][/b][b][color=RED]([/color][/b]eq 1 Mac$fun[b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b]setq ang [b][color=PURPLE]([/color][/b]- [b][color=TEAL]([/color][/b]/ pi 2.[b][color=TEAL])[/color][/b] [b][color=TEAL]([/color][/b]angle [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 10 elst[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cadr gr[b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b]entmod
                [b][color=PURPLE]([/color][/b]subst
                  [b][color=TEAL]([/color][/b]cons 51 ang[b][color=TEAL])[/color][/b] [b][color=TEAL]([/color][/b]assoc 51 elst[b][color=TEAL])[/color][/b] elst[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b]entupd [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc -1 elst[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]and [b][color=BLUE]([/color][/b]eq 2 Mac$fun[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]eq 2 [b][color=RED]([/color][/b]car gr[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]eq 32 [b][color=RED]([/color][/b]cadr gr[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
       [b][color=GREEN]([/color][/b]progn
         [b][color=BLUE]([/color][/b]entmod
           [b][color=RED]([/color][/b]subst
             [b][color=PURPLE]([/color][/b]cons 7 [b][color=TEAL]([/color][/b]nth [b][color=OLIVE]([/color][/b]rem [b][color=GRAY]([/color][/b]setq cnt [b][color=AQUA]([/color][/b]1+ cnt[b][color=AQUA])[/color][/b][b][color=GRAY])[/color][/b] [b][color=GRAY]([/color][/b]length styl[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] styl[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
               [b][color=PURPLE]([/color][/b]assoc 7 elst[b][color=PURPLE])[/color][/b] elst[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
         [b][color=BLUE]([/color][/b]entupd [b][color=RED]([/color][/b]cdr [b][color=PURPLE]([/color][/b]assoc -1 elst[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]        
 [b][color=FUCHSIA]([/color][/b]princ[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

[b][color=BLACK]([/color][/b]defun tstyl [b][color=FUCHSIA]([/color][/b]/ tdef lst[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]setq tdef [b][color=MAROON]([/color][/b]tblnext [color=#2f4f4f]"STYLE"[/color] [b][color=GREEN]([/color][/b]not tdef[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]setq lst [b][color=MAROON]([/color][/b]cons [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 2 tdef[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] lst[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 lst[b][color=BLACK])[/color][/b]

-David

Link to comment
Share on other sites
Lee Mac Grand Master

Lee Mac

Posted
  • Author
Posted

David, I believe you are referring to two lines that are actually included in the AND statement for the first IF, but are positioned outside of it.

 

Am I correct?

Link to comment
Share on other sites
Freerefill Rising Star

Freerefill

Posted
Posted

Check out the help file on it, Zorg.

 

In a nutshell, (grread) is a function which, if passed certain arguments, takes all forms of user input, anything from mouse movement to keyboard presses, mouse clicks and right-clicks, I think it even covers menu clicks. When paired with loop and a regen, it allows dynamic user input, rather than static, which (as you can see) allows you to do some really funky stuff~

 

You don't need a regen, though, and sometimes you shouldn't have one because it'll slow the whole process down noticeably. However, it's the only way I know to make it dynamic, since, normally, like everything else, it will pause the script for input. There is a gray area: mouse movement. Grread can track the mouse, which means every time you move the mouse, that counts as input.

Link to comment
Share on other sites
David Bethel Grand Master

David Bethel

Posted
Posted
David, I believe you are referring to two lines that are actually included in the AND statement for the first IF, but are positioned outside of it.

 

Am I correct?

 

 

Yes, they look like they not part of the same boolens test.

 

Also, couldn't you use a (cond) in lieu of the (3) follow (if) tests? -David

Link to comment
Share on other sites
Freerefill Rising Star

Freerefill

Posted
Posted
That does sound awfully clever! :D

 

It is. With clever use of grread, you can make games in AutoCAD. I myself have done Pong and Breakout, and I was working on a sidescroller before the code made me go cross-eyed (I got stuck on jumping to platforms) and I want to at least attempt an MMORPG, text based or overhead.

 

There are actually a lot of games out there using grread, and google is your best friend on this one.

 

I guess there are few things more entertaining than jumping on a Goomba in a professional drafting program~

Link to comment
Share on other sites
Lee Mac Grand Master

Lee Mac

Posted
  • Author
Posted
Yes, they look like they not part of the same boolens test.

 

Well, with this one - I started with one extra statement, (the princ) needing to be added before the WHILE loop, and I didn't want to have to add the whole PROGN statement, just for a simple PRINC, so I just included it in the AND statement, knowing that it would return T. Same story for the second statement - although at that point it was just laziness I suppose... :oops:

 

Also, couldn't you use a (cond) in lieu of the (3) follow (if) tests? -David

 

Yes, this would probably be a better option :)

 

 

When paired with loop and a regen, it allows dynamic user input, rather than static, which (as you can see) allows you to do some really funky stuff~

 

Just wanted to add to this: Notice that I didn't use any regen in the code above (just an entmod and entupd) - and if I were to include a function to perform such a task, I would opt for (redraw) as opposed to regen, as it is quicker :wink:

Link to comment
Share on other sites
Freerefill Rising Star

Freerefill

Posted
Posted

Just wanted to add to this: Notice that I didn't use any regen in the code above (just an entmod and entupd) - and if I were to include a function to perform such a task, I would opt for (redraw) as opposed to regen, as it is quicker :wink:

 

True Lee, but the text was only modified when the user moved the mouse. What if you weren't moving the mouse? What if you weren't touching the keyboard at all but still wanted something to happen?

 

That's the point I was making. I really know redraw is a hell of a lot faster than regen, but say you wanted to input an increment then sit back and watch the text rotate. The moment you stop moving the mouse, the text will stop spinning. Try it out for yourself, you'll see what I mean. At least, that's how it always works for me. I have asked about this on other forums, but have yet to get a definitive answer.

 

This has been the bane of my existence for a long time, believe me ^^' I hate using regen, but it's the only thing that works. I've tried purge, redraw, gc, you name it.

Link to comment
Share on other sites
Lee Mac Grand Master

Lee Mac

Posted
  • Author
Posted

You asked for it :P

 

(defun c:fws () (FreeRefill_Wants_Stuff_to_Spin))

(defun FreeRefill_Wants_Stuff_to_Spin (/ ent obj ang cnt)
 (if (setq ent (car (entsel "\nSelect Something: ")))
   (progn
     (setq Obj (vlax-ename->vla-object ent)
           Ang (/ pi 1000) cnt 0)
   (while (< cnt 4000)
     (vla-rotate Obj
       (vlax-3D-point (getvar "VIEWCTR")) Ang)
     (vla-update Obj)
     (setq cnt (1+ cnt)))))
 (princ))

Link to comment
Share on other sites
Freerefill Rising Star

Freerefill

Posted
Posted
You asked for it :P

 

(defun c:fws () (FreeRefill_Wants_Stuff_to_Spin))

(defun FreeRefill_Wants_Stuff_to_Spin (/ ent obj ang cnt)
 (if (setq ent (car (entsel "\nSelect Something: ")))
   (progn
     (setq Obj (vlax-ename->vla-object ent)
           Ang (/ pi 1000) cnt 0)
   (while (< cnt 4000)
     (vla-rotate Obj
       (vlax-3D-point (getvar "VIEWCTR")) Ang)
     (vla-update Obj)
     (setq cnt (1+ cnt))
     (getstring))))
 (princ))

 

Yes, but with a (getstring) in there, it stops, and pauses for user input.

 

What I'm saying is, the only way to have a while loop continue unhindered yet still actively receive user input -at the same time- is to pair grread with regen.

 

.. very cute function name, by the way :P

Link to comment
Share on other sites
Commandobill Proficient

Commandobill

Posted
Posted
You asked for it :P

 

(defun c:fws () (FreeRefill_Wants_Stuff_to_Spin))

(defun FreeRefill_Wants_Stuff_to_Spin (/ ent obj ang cnt)
 (if (setq ent (car (entsel "\nSelect Something: ")))
   (progn
     (setq Obj (vlax-ename->vla-object ent)
           Ang (/ pi 1000) cnt 0)
   (while (< cnt 4000)
     (vla-rotate Obj
       (vlax-3D-point (getvar "VIEWCTR")) Ang)
     (vla-update Obj)
     (setq cnt (1+ cnt)))))
 (princ))

 

Hmm i made a clock and the code looks similar to this :P

Link to comment
Share on other sites
Lee Mac Grand Master

Lee Mac

Posted
  • Author
Posted

Revision got a bit boring, so made this:

 

Works on Arcs or Circles, hit space for something extra special :)

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:MacRad [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] ent cObj gr[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ent [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entsel[/color][/b] [b][color=#ff00ff]"\nSelect Circle or Arc: "[/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]member[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ObjectName[/color][/b]
                       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cObj [b][color=RED]([/color][/b][b][color=BLUE]vlax-ename->vla-object[/color][/b] ent[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
                     [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#ff00ff]"AcDbCircle"[/color][/b] [b][color=#ff00ff]"AcDbArc"[/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]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] gr [b][color=RED]([/color][/b][b][color=BLUE]grread[/color][/b] [b][color=BLUE]nil[/color][/b] [b][color=#009900]5[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]5[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]2[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[b][color=RED])[/color][/b] [b][color=#009900]32[/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]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]5[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]listp[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]vla-put-Radius[/color][/b] cObj
              [b][color=RED]([/color][/b][b][color=BLUE]distance[/color][/b]
                [b][color=RED]([/color][/b][b][color=BLUE]vlax-safearray->list[/color][/b]
                  [b][color=RED]([/color][/b][b][color=BLUE]vlax-variant-value[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Center[/color][/b] cObj[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[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]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]2[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]32[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]vla-put-color[/color][/b] cObj
              [b][color=RED]([/color][/b][b][color=BLUE]1+[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rem[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-color[/color][/b] cObj[b][color=RED])[/color][/b] [b][color=#009900]6[/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]vla-update[/color][/b] cObj[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

Link to comment
Share on other sites

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
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   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.

×
 Share
Go to topic listing
×
×
  • Create New...