[编程交流] 获取viewp范围的坐标

([color=BLUE]defun[/color] c:vprec ( [color=BLUE]/[/color] _text l j k p )
   ([color=BLUE]defun[/color] _text ( s p r j )
       ([color=BLUE]entmake[/color]
           ([color=BLUE]list[/color]
              '(0 . [color=MAROON]"TEXT"[/color])
               ([color=BLUE]cons[/color] 410 ([color=BLUE]getvar[/color] 'ctab))
               ([color=BLUE]cons[/color] 040 ([color=BLUE]getvar[/color] 'textsize))
               ([color=BLUE]cons[/color] 007 ([color=BLUE]getvar[/color] 'textstyle))
               ([color=BLUE]cons[/color] 010 p)
               ([color=BLUE]cons[/color] 011 p)
               ([color=BLUE]cons[/color] 001 s)
               ([color=BLUE]cons[/color] 050 r)
               ([color=BLUE]cons[/color] 072 j)
              '(73 . 2)
           )
       )
   )
   ([color=BLUE]cond[/color]
       (   ([color=BLUE]=[/color] 1 ([color=BLUE]getvar[/color] 'tilemode))
           ([color=BLUE]princ[/color] [color=MAROON]"\nCommand only available in Paperspace."[/color])
       )
       (   ([color=BLUE]=[/color] 1 ([color=BLUE]getvar[/color] 'cvport))
           ([color=BLUE]princ[/color] [color=MAROON]"\nPlease activate a viewport."[/color])
       )
       (   ([color=BLUE]setq[/color] l  ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] ([color=BLUE]getvar[/color] 'cvport) ([color=BLUE]vports[/color])))
                 j '(2 0 2 0)
                 k '(2 0 0 2)
           )
           ([color=BLUE]foreach[/color] x ([color=BLUE]list[/color] ([color=BLUE]car[/color] l) ([color=BLUE]cadr[/color] l) ([color=BLUE]list[/color] ([color=BLUE]caadr[/color] l) ([color=BLUE]cadar[/color] l)) ([color=BLUE]list[/color] ([color=BLUE]caar[/color] l) ([color=BLUE]cadadr[/color] l)))
               ([color=BLUE]setq[/color] p ([color=BLUE]mapcar[/color] '[color=BLUE]rtos[/color] ([color=BLUE]trans[/color] ([color=BLUE]trans[/color] x 3 2) 2 0)))
               (_text ([color=BLUE]strcat[/color] [color=MAROON]"E:"[/color] ([color=BLUE]car[/color]  p)) x ([color=BLUE]/[/color] [color=BLUE]pi[/color] 2.0) ([color=BLUE]car[/color] j))
               (_text ([color=BLUE]strcat[/color] [color=MAROON]"N:"[/color] ([color=BLUE]cadr[/color] p)) x    0.0     ([color=BLUE]car[/color] k))
               ([color=BLUE]setq[/color] j ([color=BLUE]cdr[/color] j)
                     k ([color=BLUE]cdr[/color] k)
               )
           )
       )
   )
   ([color=BLUE]princ[/color])
)

([color=BLUE]setq[/color] p ([color=BLUE]mapcar[/color] '[color=BLUE]rtos[/color] ([color=BLUE]trans[/color] ([color=BLUE]trans[/color] x 3 2) 2 0)))

3