Jump to content

Leader degrees arrangement

VisDak

By VisDak
in AutoLISP, Visual LISP & DCL

 Share

Recommended Posts

VisDak Collaborator

VisDak

Posted
Posted

Hello,

 

Good day to all of you mates, :D i have some request for a Lsp route on leader degrees arrangements that will inclined the arrow heads by 60, -60 positioning the text to the right side and 120, -120 when text is positioning to the left side.

 

Is there any body have this route hope you can help me on this. Thanks

 

Cheers,

VD

Lee Mac Grand Master

Lee Mac

Posted
Posted

This is all I could think of for the minute:

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ql [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] pt grdat cAng cDis pt1[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#ff00ff]"\nSelect First Point: "[/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]while[/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] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] grdat [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=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]redraw[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cAng [b][color=RED]([/color][/b][b][color=BLUE]angle[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cPt [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] grdat[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             cDis [b][color=RED]([/color][/b][b][color=BLUE]distance[/color][/b] pt cPt[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]<=[/color][/b] [b][color=#009900]0[/color][/b] cAng [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] pi [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt1 [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] pi [b][color=#009900]3[/color][/b][b][color=RED])[/color][/b] cDis[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]<[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] pi [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] cAng pi[b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt1 [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]2[/color][/b] pi[b][color=RED])[/color][/b] [b][color=#009900]3[/color][/b][b][color=RED])[/color][/b] cDis[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]<=[/color][/b] pi cAng [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]3[/color][/b] pi[b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt1 [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]4[/color][/b] pi[b][color=RED])[/color][/b] [b][color=#009900]3[/color][/b][b][color=RED])[/color][/b] cDis[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]<[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]3[/color][/b] pi[b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] cAng [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]2[/color][/b] pi[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt1 [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]5[/color][/b] pi[b][color=RED])[/color][/b] [b][color=#009900]3[/color][/b][b][color=RED])[/color][/b] cDis[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]grvecs[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=#009900]5[/color][/b] pt pt1[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     
     [i][color=#990099]; Thanks VovKa [/color][/i]
     [b][color=RED]([/color][/b][b][color=BLUE]entmake[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#ff00ff]"LEADER"[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]100[/color][/b] [b][color=#ff00ff]"AcDbEntity"[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]100[/color][/b] [b][color=#ff00ff]"AcDbLeader"[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]71[/color][/b] [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]72[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]73[/color][/b] [b][color=#009900]3[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]74[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]75[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] pt[b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] pt1[b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=#009900]-3[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=#ff00ff]"ACAD"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1000[/color][/b] [b][color=#ff00ff]"DSTYLE"[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1002[/color][/b]  [b][color=#ff00ff]"{"[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1070[/color][/b]  [b][color=#009900]41[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1040[/color][/b]  [b][color=#009999]2.5[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1002[/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=RED]([/color][/b][b][color=BLUE]redraw[/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]

VisDak Collaborator

VisDak

Posted
  • Author
Posted

Thank Lee, great :lol: it ok that you can extend the tail on 3 points inclined follow the horizontal lines ended to the text

 

[b][color=red]([/color][/b][b][color=blue]defun[/color][/b] c:ql [b][color=red]([/color][/b][b][color=blue]/[/color][/b] pt grdat cAng cDis pt1[b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]if[/color][/b] [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] pt [b][color=red]([/color][/b][b][color=blue]getpoint[/color][/b] [b][color=#ff00ff]"\nSelect First Point: "[/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]while[/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] [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] grdat [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=red])[/color][/b]
       [b][color=red]([/color][/b][b][color=blue]redraw[/color][/b][b][color=red])[/color][/b]
       [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] cAng [b][color=red]([/color][/b][b][color=blue]angle[/color][/b] pt [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] cPt [b][color=red]([/color][/b][b][color=blue]cadr[/color][/b] grdat[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
             cDis [b][color=red]([/color][/b][b][color=blue]distance[/color][/b] pt cPt[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]<=[/color][/b] [b][color=#009900]0[/color][/b] cAng [b][color=red]([/color][/b][b][color=blue]/[/color][/b] pi [b][color=#009900]2[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
              [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] pt1 [b][color=red]([/color][/b][b][color=blue]polar[/color][/b] pt [b][color=red]([/color][/b][b][color=blue]/[/color][/b] pi [b][color=#009900]3[/color][/b][b][color=red])[/color][/b] cDis[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]<[/color][/b] [b][color=red]([/color][/b][b][color=blue]/[/color][/b] pi [b][color=#009900]2[/color][/b][b][color=red])[/color][/b] cAng pi[b][color=red])[/color][/b]
              [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] pt1 [b][color=red]([/color][/b][b][color=blue]polar[/color][/b] pt [b][color=red]([/color][/b][b][color=blue]/[/color][/b] [b][color=red]([/color][/b][b][color=blue]*[/color][/b] [b][color=#009900]2[/color][/b] pi[b][color=red])[/color][/b] [b][color=#009900]3[/color][/b][b][color=red])[/color][/b] cDis[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]<=[/color][/b] pi cAng [b][color=red]([/color][/b][b][color=blue]/[/color][/b] [b][color=red]([/color][/b][b][color=blue]*[/color][/b] [b][color=#009900]3[/color][/b] pi[b][color=red])[/color][/b] [b][color=#009900]2[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
              [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] pt1 [b][color=red]([/color][/b][b][color=blue]polar[/color][/b] pt [b][color=red]([/color][/b][b][color=blue]/[/color][/b] [b][color=red]([/color][/b][b][color=blue]*[/color][/b] [b][color=#009900]4[/color][/b] pi[b][color=red])[/color][/b] [b][color=#009900]3[/color][/b][b][color=red])[/color][/b] cDis[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]<[/color][/b] [b][color=red]([/color][/b][b][color=blue]/[/color][/b] [b][color=red]([/color][/b][b][color=blue]*[/color][/b] [b][color=#009900]3[/color][/b] pi[b][color=red])[/color][/b] [b][color=#009900]2[/color][/b][b][color=red])[/color][/b] cAng [b][color=red]([/color][/b][b][color=blue]*[/color][/b] [b][color=#009900]2[/color][/b] pi[b][color=red])[/color][/b][b][color=red])[/color][/b]
              [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] pt1 [b][color=red]([/color][/b][b][color=blue]polar[/color][/b] pt [b][color=red]([/color][/b][b][color=blue]/[/color][/b] [b][color=red]([/color][/b][b][color=blue]*[/color][/b] [b][color=#009900]5[/color][/b] pi[b][color=red])[/color][/b] [b][color=#009900]3[/color][/b][b][color=red])[/color][/b] cDis[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]grvecs[/color][/b] [b][color=red]([/color][/b][b][color=blue]list[/color][/b] [b][color=#009900]5[/color][/b] pt pt1[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]

     [i][color=#990099]; Thanks VovKa [/color][/i]
     [b][color=red]([/color][/b][b][color=blue]entmake[/color][/b] [b][color=red]([/color][/b][b][color=blue]list[/color][/b] [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#ff00ff]"LEADER"[/color][/b][b][color=red])[/color][/b]
          [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]100[/color][/b] [b][color=#ff00ff]"AcDbEntity"[/color][/b][b][color=red])[/color][/b]
          [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]100[/color][/b] [b][color=#ff00ff]"AcDbLeader"[/color][/b][b][color=red])[/color][/b]
          [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]71[/color][/b] [b][color=#009900]1[/color][/b][b][color=red])[/color][/b]
          [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]72[/color][/b] [b][color=#009900]0[/color][/b][b][color=red])[/color][/b]
          [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]73[/color][/b] [b][color=#009900]3[/color][/b][b][color=red])[/color][/b]
          [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]74[/color][/b] [b][color=#009900]0[/color][/b][b][color=red])[/color][/b]
          [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]75[/color][/b] [b][color=#009900]0[/color][/b][b][color=red])[/color][/b]
          [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]10[/color][/b] pt[b][color=red])[/color][/b]
          [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]10[/color][/b] pt1[b][color=red])[/color][/b]
          [b][color=red]([/color][/b][b][color=blue]list[/color][/b] [b][color=#009900]-3[/color][/b] [b][color=red]([/color][/b][b][color=blue]list[/color][/b] [b][color=#ff00ff]"ACAD"[/color][/b] [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]1000[/color][/b] [b][color=#ff00ff]"DSTYLE"[/color][/b][b][color=red])[/color][/b]
              [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]1002[/color][/b]  [b][color=#ff00ff]"{"[/color][/b][b][color=red])[/color][/b]
              [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]1070[/color][/b]  [b][color=#009900]41[/color][/b][b][color=red])[/color][/b]
              [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]1040[/color][/b]  [b][color=#009999]2.5[/color][/b][b][color=red])[/color][/b]
              [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=#009900]1002[/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=red]([/color][/b][b][color=blue]redraw[/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]

Lee Mac Grand Master

Lee Mac

Posted
Posted

Try this:

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ql  [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] oldorth pt grdat cAng cDis pt1[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] oldorth [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"ORTHOMODE"[/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]setq[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#ff00ff]"\nSelect First Point: "[/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]while[/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] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] grdat [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=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]redraw[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cAng [b][color=RED]([/color][/b][b][color=BLUE]angle[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cPt [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] grdat[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             cDis [b][color=RED]([/color][/b][b][color=BLUE]distance[/color][/b] pt cPt[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]<=[/color][/b] [b][color=#009900]0[/color][/b] cAng [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] pi [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt1 [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] pi [b][color=#009900]3[/color][/b][b][color=RED])[/color][/b] cDis[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]<[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] pi [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] cAng pi[b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt1 [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]2[/color][/b] pi[b][color=RED])[/color][/b] [b][color=#009900]3[/color][/b][b][color=RED])[/color][/b] cDis[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]<=[/color][/b] pi cAng [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]3[/color][/b] pi[b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt1 [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]4[/color][/b] pi[b][color=RED])[/color][/b] [b][color=#009900]3[/color][/b][b][color=RED])[/color][/b] cDis[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]<[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]3[/color][/b] pi[b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] cAng [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]2[/color][/b] pi[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt1 [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]5[/color][/b] pi[b][color=RED])[/color][/b] [b][color=#009900]3[/color][/b][b][color=RED])[/color][/b] cDis[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]grvecs[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=#009900]5[/color][/b] pt pt1[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"ORTHOMODE"[/color][/b] [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]

 [i][color=#990099]; Thanks VovKa [/color][/i]
     [b][color=RED]([/color][/b][b][color=BLUE]entmake[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#ff00ff]"LEADER"[/color][/b][b][color=RED])[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]100[/color][/b] [b][color=#ff00ff]"AcDbEntity"[/color][/b][b][color=RED])[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]100[/color][/b] [b][color=#ff00ff]"AcDbLeader"[/color][/b][b][color=RED])[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]71[/color][/b] [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]72[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]73[/color][/b] [b][color=#009900]3[/color][/b][b][color=RED])[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]74[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]75[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] pt[b][color=RED])[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] pt1[b][color=RED])[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] pt1 [b][color=#ff00ff]"\nSpecify Next Point"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=#009900]-3[/color][/b]
                          [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=#ff00ff]"ACAD"[/color][/b]
                                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1000[/color][/b] [b][color=#ff00ff]"DSTYLE"[/color][/b][b][color=RED])[/color][/b]
                                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1002[/color][/b] [b][color=#ff00ff]"{"[/color][/b][b][color=RED])[/color][/b]
                                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1070[/color][/b] [b][color=#009900]41[/color][/b][b][color=RED])[/color][/b]
                                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1040[/color][/b] [b][color=#009999]2.5[/color][/b][b][color=RED])[/color][/b]
                                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1002[/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=RED]([/color][/b][b][color=BLUE]redraw[/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]setvar[/color][/b] [b][color=#ff00ff]"ORTHOMODE"[/color][/b] oldorth[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]

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