[编程交流] 在非worl中创建文本对象

(defun c:ptlev ()
(setq la1 (getvar "clayer"))
(setq SnapVal (getvar "osmode"))
(command "luprec" "3")
(command "osmode" "8")
(setq pp (getpoint "\nPick Point:   "))
(command "osmode" "0")
  (entmake (list  (cons  0 "TEXT")    ;Entity type
                 (cons  1 (rtos (caddr pp)))  ;The string itself
                 (cons  7 "arialn")    ;Text style
                 (cons  8 la1)     ;Layer name
                 (cons 10 (polar pp 0.0 0.10)) ;1st Alignment point
                 (cons 11 (polar pp 0.0 0.05)) ;2nd Alignment point
                 (cons 40 0.2)     ;Text height
                 (cons 50 0.0)     ;Text rotation
                 (cons 51 0.0)     ;Oblique angle
                 (cons 62 256)     ;Colour (256=Bylayer)
                 (cons 72 0)      ;Horizontal text justification
                 (cons 73 0)      ;Vertical text justification
   )
)
  (command "point" pp) 
(command "osmode" SnapVal)
)

([color=BLUE]defun[/color] c:ptlev ( [color=BLUE]/[/color] ins ocs pnt )
   ([color=BLUE]while[/color]
       ([color=BLUE]setq[/color] pnt ([color=BLUE]getpoint[/color] [color=MAROON]"\nPick point <exit>: "[/color])) [color=GREEN];; UCS point[/color]
       ([color=BLUE]setq[/color] ins ([color=BLUE]cons[/color] ([color=BLUE]+[/color] ([color=BLUE]car[/color] pnt) 0.1) ([color=BLUE]cdr[/color] pnt))  [color=GREEN];; UCS Text insertion point[/color]
             pnt ([color=BLUE]trans[/color] pnt 1 0) [color=GREEN];; WCS point[/color]
             ocs ([color=BLUE]trans[/color] '(0.0 0.0 1.0) 1 0 [color=BLUE]t[/color]) [color=GREEN];; OCS normal vector[/color]
       )
       ([color=BLUE]entmake[/color]
           ([color=BLUE]list[/color]
              '(00 . [color=MAROON]"TEXT"[/color])  [color=GREEN];; Entity type[/color]
               ([color=BLUE]cons[/color] 01 ([color=BLUE]rtos[/color] ([color=BLUE]caddr[/color] pnt))) [color=GREEN];; Z-coordinate of WCS point[/color]
               ([color=BLUE]cons[/color] 07 ([color=BLUE]if[/color] ([color=BLUE]tblsearch[/color] [color=MAROON]"style"[/color] [color=MAROON]"arialn"[/color]) [color=MAROON]"arialn"[/color] ([color=BLUE]getvar[/color] 'textstyle))) [color=GREEN];; Text Style[/color]
               ([color=BLUE]cons[/color] 10 ([color=BLUE]trans[/color] ins 1 ocs)) [color=GREEN];; OCS insertion point[/color]
               ([color=BLUE]cons[/color] 50 ([color=BLUE]angle[/color] '(0.0 0.0) ([color=BLUE]trans[/color] ([color=BLUE]getvar[/color] 'ucsxdir) 0 ocs [color=BLUE]t[/color]))) [color=GREEN];; Rotation to match UCS[/color]
              '(40 . 0.2)     [color=GREEN];; Text Height[/color]
              '(62 . 256)     [color=GREEN];; Colour set to ByLayer[/color]
               ([color=BLUE]cons[/color] 210 ocs) [color=GREEN];; Normal vector of OCS plane[/color]
           )
       )
       ([color=BLUE]entmake[/color]
           ([color=BLUE]list[/color]
              '(00 . [color=MAROON]"POINT"[/color]) [color=GREEN];; Entity type[/color]
              '(62 . 256)     [color=GREEN];; Colour set to ByLayer[/color]
               ([color=BLUE]cons[/color] 010 pnt) [color=GREEN];; WCS point[/color]
               ([color=BLUE]cons[/color] 210 ocs) [color=GREEN];; For when PDMODE /= 0[/color]
           )
       )
   )
   ([color=BLUE]princ[/color])
)