Help required on changing text to readable angle

Hi Friends,

Attached lisp is provided by Bigal, its working fine,

Now i want to rotate text1 & text2 to readable angle.

Please check the attached lisp & help me in changing it.

Thanks In Advance.

bigal - Copy.lsp

Google for a subfunction LM:Readable.

Google for a subfunction LM:Readable.

Hi Grr,

i searched in google about LM:Readable, but it is not understandable to me, could you please tell me, where to replace lines in the attached lisp to make it rotate to readable angle, please help me as its urgently required

Thanks

If you look at the code you posted, there is a line that has (vla-put-rotation Tp ang ), you need to get Lee's LM:readable function, add it to the lisp and change to (vla-put-rotation Tp (LM:Readable ang)).

I've modified a bit BIGAL's code, and commented it:

[color=#8b4513]; pick 3 texts and align to a block                                 ;; Write what the code does, so you won't have to figure out what was this[/color]
[b][color=BLACK]([/color][/b]vl-load-com[b][color=BLACK])[/color][/b] [b][color=BLACK]([/color][/b]princ[b][color=BLACK])[/color][/b]                                               [color=#8b4513];; Load all visual lisp extensions[/color]
[b][color=BLACK]([/color][/b]defun c:trt                                                        [color=#8b4513];; Define a command function, call with [color=#2f4f4f]"TRT"[/color] [b][color=FUCHSIA]([/color][/b]this is the main command[b][color=FUCHSIA])[/color][/b][/color]
 [b][color=FUCHSIA]([/color][/b] / blockent blockobj oldang oldunit oldsnap ang ins xscale bname [color=#8b4513];; Localise all the used code variables[/color]
   len off textent1 textobj1 pt1 textent2 textobj2 pt1 
 [b][color=FUCHSIA])[/color][/b] 
 [color=#8b4513]; Example by BIGAL                                                ;; Write in the author in case you have further questions[/color]
 [b][color=FUCHSIA]([/color][/b]and                                                              [color=#8b4513];; wrap all evaluations with [b][color=NAVY]([/color][/b]and[b][color=NAVY])[/color][/b] function - this means if somewhere nil is returned, the program will stop[/color]
   [b][color=NAVY]([/color][/b]setq blockent [b][color=MAROON]([/color][/b]car [b][color=GREEN]([/color][/b]entsel [color=#2f4f4f]"\nPick Block object"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]            [color=#8b4513];; Prompt to select block entity[/color]
   [b][color=NAVY]([/color][/b]setq blockobj [b][color=MAROON]([/color][/b]vlax-ename->vla-object blockent[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]               [color=#8b4513];; convert the block entity to vla-object[/color]
   [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]= Objname [color=#2f4f4f]"AcDbBlockReference"[/color][b][color=MAROON])[/color][/b]                            [color=#8b4513];; check if block was selected[/color]
     T                                                             [color=#8b4513];; return True if block was selected [/color]
     [b][color=MAROON]([/color][/b]alert [color=#2f4f4f]"You have not Picked a block\n\nPress ok "[/color][b][color=MAROON])[/color][/b]            [color=#8b4513];; prompt alert message [b][color=MAROON]([/color][/b]alert returns nil[b][color=MAROON])[/color][/b][/color]
   [b][color=NAVY])[/color][/b][color=#8b4513]; if[/color]
   [b][color=NAVY]([/color][/b]mapcar 'set '[b][color=MAROON]([/color][/b]oldang oldunit oldsnap[b][color=MAROON])[/color][/b] [color=#8b4513]; store some system variables [sKIP THIS for now][/color]
     [b][color=MAROON]([/color][/b]mapcar '[b][color=GREEN]([/color][/b]lambda [b][color=BLUE]([/color][/b]a b / c[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]setq c [b][color=RED]([/color][/b]getvar a[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]setvar a b[b][color=BLUE])[/color][/b] c[b][color=GREEN])[/color][/b]
       '[b][color=GREEN]([/color][/b]angdir aunits osmode[b][color=GREEN])[/color][/b] '[b][color=GREEN]([/color][/b]0 3 0[b][color=GREEN])[/color][/b]
     [b][color=MAROON])[/color][/b]
   [b][color=NAVY])[/color][/b][color=#8b4513]; mapcar[/color]
   [b][color=NAVY]([/color][/b]mapcar 'set '[b][color=MAROON]([/color][/b]ang ins xscale bname[b][color=MAROON])[/color][/b] [color=#8b4513]; store some properties from the block's object [sKIP THIS for now][/color]
     [b][color=MAROON]([/color][/b]mapcar '[b][color=GREEN]([/color][/b]lambda [b][color=BLUE]([/color][/b]x[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]vlax-get blockobj x[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
       '[b][color=GREEN]([/color][/b]Rotation InsertionPoint XScaleFactor EffectiveName[b][color=GREEN])[/color][/b]
     [b][color=MAROON])[/color][/b]
   [b][color=NAVY])[/color][/b][color=#8b4513]; mapcar[/color]
   
   [b][color=NAVY]([/color][/b]cond                                                           [color=#8b4513];; set a codition to determine what value to assign for 'len', depending on the block name[/color]
     [b][color=MAROON]([/color][/b] [b][color=GREEN]([/color][/b]= bname [color=#2f4f4f]"TERM_AER_E"[/color][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]setq len 6[b][color=GREEN])[/color][/b] [b][color=MAROON])[/color][/b] [color=#8b4513]; as per sample [/color]
     [b][color=MAROON]([/color][/b] [b][color=GREEN]([/color][/b]= bname [color=#2f4f4f]"Block1"[/color][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]setq len 10[b][color=GREEN])[/color][/b] [b][color=MAROON])[/color][/b] [color=#8b4513]; other blocks change len value[/color]
     [b][color=MAROON]([/color][/b] [b][color=GREEN]([/color][/b]= bname [color=#2f4f4f]"Block2"[/color][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]setq len 10[b][color=GREEN])[/color][/b] [b][color=MAROON])[/color][/b] [color=#8b4513]; other blocks change len value[/color]
     [b][color=MAROON]([/color][/b] [b][color=GREEN]([/color][/b]setq len 20[b][color=GREEN])[/color][/b] [b][color=MAROON])[/color][/b] [color=#8b4513]; for unknown block change len value[/color]
   [b][color=NAVY])[/color][/b][color=#8b4513]; cond[/color]
   [b][color=NAVY]([/color][/b]setq off 8.0[b][color=NAVY])[/color][/b]                                                  [color=#8b4513];; set offset value[/color]
   
   [b][color=NAVY]([/color][/b]setq textent1 [b][color=MAROON]([/color][/b]car [b][color=GREEN]([/color][/b]entsel [color=#2f4f4f]"\nPick text1"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]                   [color=#8b4513];; Prompt to select a text entity[/color]
   [b][color=NAVY]([/color][/b]setq textobj1 [b][color=MAROON]([/color][/b]vlax-ename->vla-object textent1[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]               [color=#8b4513];; convert the text entity into a vla-object[/color]
   [b][color=NAVY]([/color][/b]setq pt1 [b][color=MAROON]([/color][/b]polar ins [b][color=GREEN]([/color][/b]+ ang [b][color=BLUE]([/color][/b]/ pi 2.0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] off[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]                   [color=#8b4513];; calculate the new base point for the text[/color]
   [b][color=NAVY]([/color][/b]vla-put textobj1 'insertionpoint pt1[b][color=NAVY])[/color][/b]                          [color=#8b4513];; set the new base point for the text[/color]
   [b][color=NAVY]([/color][/b]vla-put-rotation textobj1 [b][color=MAROON]([/color][/b]MakeReadable ang[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]                  [color=#8b4513];; set the text rotation, by recalculating the angle with [b][color=NAVY]([/color][/b]MakeReadable[b][color=NAVY])[/color][/b] subfunction[/color]
   [b][color=NAVY]([/color][/b]setq textent2 [b][color=MAROON]([/color][/b]car [b][color=GREEN]([/color][/b]entsel [color=#2f4f4f]"\nPick text2"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]                   [color=#8b4513];; Prompt to select a text entity[/color]
   [b][color=NAVY]([/color][/b]setq textobj2 [b][color=MAROON]([/color][/b]vlax-ename->vla-object textent2 [b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]              [color=#8b4513];; convert the text entity into a vla-object[/color]
   [b][color=NAVY]([/color][/b]setq pt1 [b][color=MAROON]([/color][/b]polar ins ang [b][color=GREEN]([/color][/b]* len 2.0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]                          [color=#8b4513];; calculate the new base point for the text[/color]
   [b][color=NAVY]([/color][/b]vlax-put textobj2 'insertionpoint pt1[b][color=NAVY])[/color][/b]                         [color=#8b4513];; set the new base point for the text[/color]
   [b][color=NAVY]([/color][/b]vla-put-rotation textobj2 [b][color=MAROON]([/color][/b]MakeReadable ang[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]                  [color=#8b4513];; set the text rotation, by recalculating the angle with [b][color=NAVY]([/color][/b]MakeReadable[b][color=NAVY])[/color][/b] subfunction[/color]
 [b][color=FUCHSIA])[/color][/b][color=#8b4513]; and[/color]
 [b][color=FUCHSIA]([/color][/b]mapcar '[b][color=NAVY]([/color][/b]lambda [b][color=MAROON]([/color][/b]a b[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]and a b [b][color=GREEN]([/color][/b]setvar a b[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [color=#8b4513]; Restore the system variables [sKIP THIS for now][/color]
   '[b][color=NAVY]([/color][/b]angdir aunits osmode[b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]list oldang oldunit oldsnap[b][color=NAVY])[/color][/b]
 [b][color=FUCHSIA])[/color][/b][color=#8b4513]; mapcar [/color]
 [b][color=FUCHSIA]([/color][/b]princ[b][color=FUCHSIA])[/color][/b]                                                           [color=#8b4513];; Exit Cleanly[/color]
[b][color=BLACK])[/color][/b][color=#8b4513]; defun [/color]

[color=#8b4513];; Define subfunctions that the main program uses:[/color]

[color=#8b4513];; Make Angle Readable by: ymg  [/color]
[b][color=BLACK]([/color][/b]defun MakeReadable [b][color=FUCHSIA]([/color][/b]a[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq a [b][color=NAVY]([/color][/b]rem [b][color=MAROON]([/color][/b]+ a pi pi[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]+ pi pi[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]rem [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]< [b][color=GREEN]([/color][/b]* pi 0.5[b][color=GREEN])[/color][/b] a [b][color=GREEN]([/color][/b]* pi 1.5[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
   [b][color=MAROON]([/color][/b]+ a pi[b][color=MAROON])[/color][/b]
   a
 [b][color=NAVY])[/color][/b] 
 [b][color=NAVY]([/color][/b]+ pi pi[b][color=NAVY])[/color][/b]
 [b][color=FUCHSIA])[/color][/b] 
[b][color=BLACK])[/color][/b] 

Study as much as you can from this, ask any questions if you have.

Hopefully next time you'll post your attempt.

I've modified a bit BIGAL's code, and commented it:

 

[color=#8b4513]; pick 3 texts and align to a block                                 ;; Write what the code does, so you won't have to figure out what was this[/color]
[b][color=BLACK]([/color][/b]vl-load-com[b][color=BLACK])[/color][/b] [b][color=BLACK]([/color][/b]princ[b][color=BLACK])[/color][/b]                                               [color=#8b4513];; Load all visual lisp extensions[/color]
[b][color=BLACK]([/color][/b]defun c:trt                                                        [color=#8b4513];; Define a command function, call with [color=#2f4f4f]"TRT"[/color] [b][color=FUCHSIA]([/color][/b]this is the main command[b][color=FUCHSIA])[/color][/b][/color]
 [b][color=FUCHSIA]([/color][/b] / blockent blockobj oldang oldunit oldsnap ang ins xscale bname [color=#8b4513];; Localise all the used code variables[/color]
   len off textent1 textobj1 pt1 textent2 textobj2 pt1 
 [b][color=FUCHSIA])[/color][/b] 
 [color=#8b4513]; Example by BIGAL                                                ;; Write in the author in case you have further questions[/color]
 [b][color=FUCHSIA]([/color][/b]and                                                              [color=#8b4513];; wrap all evaluations with [b][color=NAVY]([/color][/b]and[b][color=NAVY])[/color][/b] function - this means if somewhere nil is returned, the program will stop[/color]
   [b][color=NAVY]([/color][/b]setq blockent [b][color=MAROON]([/color][/b]car [b][color=GREEN]([/color][/b]entsel [color=#2f4f4f]"\nPick Block object"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]            [color=#8b4513];; Prompt to select block entity[/color]
   [b][color=NAVY]([/color][/b]setq blockobj [b][color=MAROON]([/color][/b]vlax-ename->vla-object blockent[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]               [color=#8b4513];; convert the block entity to vla-object[/color]
   [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]= Objname [color=#2f4f4f]"AcDbBlockReference"[/color][b][color=MAROON])[/color][/b]                            [color=#8b4513];; check if block was selected[/color]
     T                                                             [color=#8b4513];; return True if block was selected [/color]
     [b][color=MAROON]([/color][/b]alert [color=#2f4f4f]"You have not Picked a block\n\nPress ok "[/color][b][color=MAROON])[/color][/b]            [color=#8b4513];; prompt alert message [b][color=MAROON]([/color][/b]alert returns nil[b][color=MAROON])[/color][/b][/color]
   [b][color=NAVY])[/color][/b][color=#8b4513]; if[/color]
   [b][color=NAVY]([/color][/b]mapcar 'set '[b][color=MAROON]([/color][/b]oldang oldunit oldsnap[b][color=MAROON])[/color][/b] [color=#8b4513]; store some system variables [sKIP THIS for now][/color]
     [b][color=MAROON]([/color][/b]mapcar '[b][color=GREEN]([/color][/b]lambda [b][color=BLUE]([/color][/b]a b / c[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]setq c [b][color=RED]([/color][/b]getvar a[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]setvar a b[b][color=BLUE])[/color][/b] c[b][color=GREEN])[/color][/b]
       '[b][color=GREEN]([/color][/b]angdir aunits osmode[b][color=GREEN])[/color][/b] '[b][color=GREEN]([/color][/b]0 3 0[b][color=GREEN])[/color][/b]
     [b][color=MAROON])[/color][/b]
   [b][color=NAVY])[/color][/b][color=#8b4513]; mapcar[/color]
   [b][color=NAVY]([/color][/b]mapcar 'set '[b][color=MAROON]([/color][/b]ang ins xscale bname[b][color=MAROON])[/color][/b] [color=#8b4513]; store some properties from the block's object [sKIP THIS for now][/color]
     [b][color=MAROON]([/color][/b]mapcar '[b][color=GREEN]([/color][/b]lambda [b][color=BLUE]([/color][/b]x[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]vlax-get blockobj x[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
       '[b][color=GREEN]([/color][/b]Rotation InsertionPoint XScaleFactor EffectiveName[b][color=GREEN])[/color][/b]
     [b][color=MAROON])[/color][/b]
   [b][color=NAVY])[/color][/b][color=#8b4513]; mapcar[/color]
   
   [b][color=NAVY]([/color][/b]cond                                                           [color=#8b4513];; set a codition to determine what value to assign for 'len', depending on the block name[/color]
     [b][color=MAROON]([/color][/b] [b][color=GREEN]([/color][/b]= bname [color=#2f4f4f]"TERM_AER_E"[/color][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]setq len 6[b][color=GREEN])[/color][/b] [b][color=MAROON])[/color][/b] [color=#8b4513]; as per sample [/color]
     [b][color=MAROON]([/color][/b] [b][color=GREEN]([/color][/b]= bname [color=#2f4f4f]"Block1"[/color][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]setq len 10[b][color=GREEN])[/color][/b] [b][color=MAROON])[/color][/b] [color=#8b4513]; other blocks change len value[/color]
     [b][color=MAROON]([/color][/b] [b][color=GREEN]([/color][/b]= bname [color=#2f4f4f]"Block2"[/color][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]setq len 10[b][color=GREEN])[/color][/b] [b][color=MAROON])[/color][/b] [color=#8b4513]; other blocks change len value[/color]
     [b][color=MAROON]([/color][/b] [b][color=GREEN]([/color][/b]setq len 20[b][color=GREEN])[/color][/b] [b][color=MAROON])[/color][/b] [color=#8b4513]; for unknown block change len value[/color]
   [b][color=NAVY])[/color][/b][color=#8b4513]; cond[/color]
   [b][color=NAVY]([/color][/b]setq off 8.0[b][color=NAVY])[/color][/b]                                                  [color=#8b4513];; set offset value[/color]
   
   [b][color=NAVY]([/color][/b]setq textent1 [b][color=MAROON]([/color][/b]car [b][color=GREEN]([/color][/b]entsel [color=#2f4f4f]"\nPick text1"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]                   [color=#8b4513];; Prompt to select a text entity[/color]
   [b][color=NAVY]([/color][/b]setq textobj1 [b][color=MAROON]([/color][/b]vlax-ename->vla-object textent1[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]               [color=#8b4513];; convert the text entity into a vla-object[/color]
   [b][color=NAVY]([/color][/b]setq pt1 [b][color=MAROON]([/color][/b]polar ins [b][color=GREEN]([/color][/b]+ ang [b][color=BLUE]([/color][/b]/ pi 2.0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] off[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]                   [color=#8b4513];; calculate the new base point for the text[/color]
   [b][color=NAVY]([/color][/b]vla-put textobj1 'insertionpoint pt1[b][color=NAVY])[/color][/b]                          [color=#8b4513];; set the new base point for the text[/color]
   [b][color=NAVY]([/color][/b]vla-put-rotation textobj1 [b][color=MAROON]([/color][/b]MakeReadable ang[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]                  [color=#8b4513];; set the text rotation, by recalculating the angle with [b][color=NAVY]([/color][/b]MakeReadable[b][color=NAVY])[/color][/b] subfunction[/color]
   [b][color=NAVY]([/color][/b]setq textent2 [b][color=MAROON]([/color][/b]car [b][color=GREEN]([/color][/b]entsel [color=#2f4f4f]"\nPick text2"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]                   [color=#8b4513];; Prompt to select a text entity[/color]
   [b][color=NAVY]([/color][/b]setq textobj2 [b][color=MAROON]([/color][/b]vlax-ename->vla-object textent2 [b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]              [color=#8b4513];; convert the text entity into a vla-object[/color]
   [b][color=NAVY]([/color][/b]setq pt1 [b][color=MAROON]([/color][/b]polar ins ang [b][color=GREEN]([/color][/b]* len 2.0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]                          [color=#8b4513];; calculate the new base point for the text[/color]
   [b][color=NAVY]([/color][/b]vlax-put textobj2 'insertionpoint pt1[b][color=NAVY])[/color][/b]                         [color=#8b4513];; set the new base point for the text[/color]
   [b][color=NAVY]([/color][/b]vla-put-rotation textobj2 [b][color=MAROON]([/color][/b]MakeReadable ang[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]                  [color=#8b4513];; set the text rotation, by recalculating the angle with [b][color=NAVY]([/color][/b]MakeReadable[b][color=NAVY])[/color][/b] subfunction[/color]
 [b][color=FUCHSIA])[/color][/b][color=#8b4513]; and[/color]
 [b][color=FUCHSIA]([/color][/b]mapcar '[b][color=NAVY]([/color][/b]lambda [b][color=MAROON]([/color][/b]a b[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]and a b [b][color=GREEN]([/color][/b]setvar a b[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [color=#8b4513]; Restore the system variables [sKIP THIS for now][/color]
   '[b][color=NAVY]([/color][/b]angdir aunits osmode[b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]list oldang oldunit oldsnap[b][color=NAVY])[/color][/b]
 [b][color=FUCHSIA])[/color][/b][color=#8b4513]; mapcar [/color]
 [b][color=FUCHSIA]([/color][/b]princ[b][color=FUCHSIA])[/color][/b]                                                           [color=#8b4513];; Exit Cleanly[/color]
[b][color=BLACK])[/color][/b][color=#8b4513]; defun [/color]

[color=#8b4513];; Define subfunctions that the main program uses:[/color]

[color=#8b4513];; Make Angle Readable by: ymg  [/color]
[b][color=BLACK]([/color][/b]defun MakeReadable [b][color=FUCHSIA]([/color][/b]a[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq a [b][color=NAVY]([/color][/b]rem [b][color=MAROON]([/color][/b]+ a pi pi[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]+ pi pi[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]rem [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]< [b][color=GREEN]([/color][/b]* pi 0.5[b][color=GREEN])[/color][/b] a [b][color=GREEN]([/color][/b]* pi 1.5[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
   [b][color=MAROON]([/color][/b]+ a pi[b][color=MAROON])[/color][/b]
   a
 [b][color=NAVY])[/color][/b] 
 [b][color=NAVY]([/color][/b]+ pi pi[b][color=NAVY])[/color][/b]
 [b][color=FUCHSIA])[/color][/b] 
[b][color=BLACK])[/color][/b] 

 

Study as much as you can from this, ask any questions if you have.

Hopefully next time you'll post your attempt.

hi GRR,

Thank you so much for your help, your explanation was so helpful for me, i tried with the lisp provided by you, but for some reasons, left align is not working properly with that lisp, right side align is working perfectly, so i created two seperate lisp for left & right side align as in the attached lisp file, please check the file & provide your feedback.

Also please suggest, is it possible to make it in a single lisp?

grr.lsp