Insert text on Locate Point command

May 15, 2009

Why don't you use a block with an attribute?

May 15, 2009

This is how I'd do it.

y-dynamic.dwg

May 15, 2009

thanks ron - that's a useful backup way. lee mac's LISP is pretty much doing what I want now though

May 15, 2009

The trailing zero suppression is controlled by your setting of the system variable "DIMZIN".

I have added a few lines to correct this, measurements should be displayed to two dp.

(defun c:ty  (/ hOff vOff olddim pt)
 
 (setq hoff 0.2)  ; <<-- Horizontal Offset
 (setq vOff 0.15) ; <<-- Vertical Offset

 (setq olddim (getvar "DIMZIN"))
 (setvar "DIMZIN" 0)
 (if (setq pt (getpoint "\nSelect Point: "))
   (progn
     (SetBlkTF "ept")
     (entmake (list '(0 . "INSERT")
                    '(8 . "0") ; <<-- Block Layer (String)
                    '(2 . "ept")
                    (cons 10 pt)))
     (Make_Text (polar (polar pt (/ pi 2) vOff) 0 hoff)
       (rtos (cadr pt) 2 2) 0.0)))
 (setvar "DIMZIN" olddim)
 (princ))

(defun Make_Text  (pt val rot)
 (entmake (list '(0 . "TEXT")
                (cons 8 "0") ; <<-- Layer (String)
                (cons 10 pt)
                (cons 40 2.5) ; <<-- Text Height (Real)
                (cons 1 val)
                (cons 50 rot)
                (cons 7 (getvar "TEXTSTYLE"))
                '(71 . 0)
                '(72 . 0) ; 0=left     1=center  2=right
                '(73 . 2) ; 0=baseline 1=bottom  2=middle  3=top
                (cons 11 pt))))

 ; FORCE BLOCK TABLE  (David Bethel)

(defun SetBlkTF  (n)
 (cond ((not (snvalid n))
        (princ "\nInvalid Block Name - " n)
        (exit))
       ((tblsearch "BLOCK" n))
       ((findfile (strcat n ".DWG"))
        (command "_.INSERT" n)
        (command))
       (T ; If all else fails....
        (entmake (list (cons 0 "BLOCK") (cons 2 n) (cons 10 (list 0 0 0)) (cons 70 0)))
        (entmake (list (cons 0 "TEXT")
                       (cons 1 (strcat "BLOCK PLACECARD - " n))
                       (cons 7 (cdr (assoc 2 (tblnext "STYLE" T))))
                       (cons 8 "0")
                       (cons 10 (list 0 0 0))
                       (cons 11 (list 0 0 0))
                       (cons 40 (max 1 (getvar "TEXTSIZE")))
                       (cons 72 4)))
        (entmake (list (cons 0 "ENDBLK") (cons 8 "0")))))
 n)

May 15, 2009

thanks ron - that's a useful backup way. lee mac's LISP is pretty much doing what I want now though

IMO the attributed block with a field is a much cleaner way to do it. This way you do not have a bunch of text and separate blocks all over the place....and if you move the block the position automatically updates. But to each is own.

Ron

May 18, 2009

ron - i get what you're saying, but i will use try to adapt this LISP for other functions too which won't include blocks, so this gives me the flexibility i need.

lee - one LAST thing (i hope!): is it possible to add a suffix to the y value? eg. 'm'

May 18, 2009

Sure, not sure that you wanted a prompt, as it slows things down, so you can alter it via the highlighted section:

(defun c:ty  (/ hOff vOff suff olddim pt)
 
 (setq hoff 0.2)  ; <<-- Horizontal Offset
 (setq vOff 0.15) ; <<-- Vertical Offset
[b][color=Red]  (setq suff "m")  ; <<-- Suffix[/color][/b]

 (setq olddim (getvar "DIMZIN"))
 (setvar "DIMZIN" 0)
 (if (setq pt (getpoint "\nSelect Point: "))
   (progn
     (SetBlkTF "ept")
     (entmake (list '(0 . "INSERT")
                    '(8 . "0") ; <<-- Block Layer (String)
                    '(2 . "ept")
                    (cons 10 pt)))
     (Make_Text (polar (polar pt (/ pi 2) vOff) 0 hoff)
       (strcat (rtos (cadr pt) 2 2) suff) 0.0)))
 (setvar "DIMZIN" olddim)
 (princ))

(defun Make_Text  (pt val rot)
 (entmake (list '(0 . "TEXT")
                (cons 8 "0") ; <<-- Layer (String)
                (cons 10 pt)
                (cons 40 2.5) ; <<-- Text Height (Real)
                (cons 1 val)
                (cons 50 rot)
                (cons 7 (getvar "TEXTSTYLE"))
                '(71 . 0)
                '(72 . 0) ; 0=left     1=center  2=right
                '(73 . 2) ; 0=baseline 1=bottom  2=middle  3=top
                (cons 11 pt))))

 ; FORCE BLOCK TABLE  (David Bethel)

(defun SetBlkTF  (n)
 (cond ((not (snvalid n))
        (princ "\nInvalid Block Name - " n)
        (exit))
       ((tblsearch "BLOCK" n))
       ((findfile (strcat n ".DWG"))
        (command "_.INSERT" n)
        (command))
       (T ; If all else fails....
        (entmake (list (cons 0 "BLOCK") (cons 2 n) (cons 10 (list 0 0 0)) (cons 70 0)))
        (entmake (list (cons 0 "TEXT")
                       (cons 1 (strcat "BLOCK PLACECARD - " n))
                       (cons 7 (cdr (assoc 2 (tblnext "STYLE" T))))
                       (cons 8 "0")
                       (cons 10 (list 0 0 0))
                       (cons 11 (list 0 0 0))
                       (cons 40 (max 1 (getvar "TEXTSIZE")))
                       (cons 72 4)))
        (entmake (list (cons 0 "ENDBLK") (cons 8 "0")))))
 n)

May 18, 2009

thanks so much leemac. that all works how i want it to now. i've tried to adapt your LISP for another function that doesn't require a block. however, despite changing what layer i want the text to come in as, it keeps the layer from the EPT LISP that you wrote. what have i got wrong?

(defun c:gh (/ hOff vOff suff olddim pt)

(setq hoff 0.2) ;

(setq vOff 0.15) ;

(setq suff "mN") ;

(setq olddim (getvar "DIMZIN"))

(setvar "DIMZIN" 0)

(if (setq pt (getpoint "\nSelect Point: "))

(Make_Text (polar (polar pt (/ pi 2) vOff) 0 hoff)

(strcat (rtos (cadr pt) 2 2) suff) 0.0)))

(setvar "DIMZIN" olddim)

(princ))

(defun Make_Text (pt val rot)

(entmake (list '(0 . "TEXT")

(cons 8 "GRID") ;

(cons 10 pt)

(cons 40 0.5) ;

(cons 1 val)

(cons 50 rot)

(cons 7 (getvar "TEXTSTYLE"))

'(71 . 0)

'(72 . 0) ; 0=left 1=center 2=right

'(73 . 2) ; 0=baseline 1=bottom 2=middle 3=top

(cons 11 pt))))

n)

May 18, 2009

** just a quick tip Rooster - enclose your code in

 [/ code] tags (without the space), and it will frame it and retain indentations  **

May 18, 2009

There were a few brackets in the wrong places, but, other than that, good job.

Would you need the offsets though in this case?

With offsets:

(defun c:gh  (/ hOff vOff suff olddim pt)

 (setq hoff 0.2)  ; <<-- Horizontal Offset
 (setq vOff 0.15) ; <<-- Vertical Offset
 (setq suff "mN") ; <<-- Suffix

 (setq olddim (getvar "DIMZIN"))
 (setvar "DIMZIN" 0)
 (if (setq pt (getpoint "\nSelect Point: "))
   (Make_Text (polar (polar pt (/ pi 2) vOff) 0 hoff)
              (strcat (rtos (cadr pt) 2 2) suff) 0.0))
 (setvar "DIMZIN" olddim)
 (princ))

(defun Make_Text  (pt val rot)
 (entmake (list '(0 . "TEXT")
                (cons 8 "GRID") ; <<-- Layer (String)
                (cons 10 pt)
                (cons 40 0.5) ; <<-- Text Height (Real)
                (cons 1 val)
                (cons 50 rot)
                (cons 7 (getvar "TEXTSTYLE"))
                '(71 . 0)
                '(72 . 0) ; 0=left 1=center 2=right
                '(73 . 2) ; 0=baseline 1=bottom 2=middle 3=top
                (cons 11 pt))))

Without Offsets:

(defun c:gh  (/ suff olddim pt)

 (setq suff "mN") ; <<-- Suffix

 (setq olddim (getvar "DIMZIN"))
 (setvar "DIMZIN" 0)
 (if (setq pt (getpoint "\nSelect Point: "))
   (Make_Text pt (strcat (rtos (cadr pt) 2 2) suff) 0.0))
 (setvar "DIMZIN" olddim)
 (princ))

(defun Make_Text  (pt val rot)
 (entmake (list '(0 . "TEXT")
                (cons 8 "GRID") ; <<-- Layer (String)
                (cons 10 pt)
                (cons 40 0.5) ; <<-- Text Height (Real)
                (cons 1 val)
                (cons 50 rot)
                (cons 7 (getvar "TEXTSTYLE"))
                '(71 . 0)
                '(72 . 0) ; 0=left 1=center 2=right
                '(73 . 2) ; 0=baseline 1=bottom 2=middle 3=top
                (cons 11 pt))))

Hope this helps

Lee

May 18, 2009

thanks a lot lee - the one with the offsets is what i was trying to achieve. which bit do i change to extract the x value rather than the y value?

May 18, 2009

Hopefully this explains things:

(defun c:gh  (/ hOff vOff suff olddim pt)

 (setq hoff 0.2)  ; <<-- Horizontal Offset
 (setq vOff 0.15) ; <<-- Vertical Offset
 (setq suff "mN") ; <<-- Suffix

 (setq olddim (getvar "DIMZIN"))
 (setvar "DIMZIN" 0)
 (if (setq pt (getpoint "\nSelect Point: "))
   (Make_Text (polar (polar pt (/ pi 2) vOff) 0 hoff)
              (strcat
                (rtos
             [b][color=Red]     (car pt)  ; car=x  cadr=y  caddr=z[/color][/b]
                  2 2)
                suff)
     0.0))
 (setvar "DIMZIN" olddim)
 (princ))

(defun Make_Text  (pt val rot)
 (entmake (list '(0 . "TEXT")
                (cons 8 "GRID") ; <<-- Layer (String)
                (cons 10 pt)
                (cons 40 0.5) ; <<-- Text Height (Real)
                (cons 1 val)
                (cons 50 rot)
                (cons 7 (getvar "TEXTSTYLE"))
                '(71 . 0)
                '(72 . 0) ; 0=left 1=center 2=right
                '(73 . 2) ; 0=baseline 1=bottom 2=middle 3=top
                (cons 11 pt))))

May 18, 2009

ok, and lastly (honest!) which part controls the decimal placings? what should i change if i now want to supress the decimal points to leave me just with an integer?

May 18, 2009

This should spell everything out

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:gh  [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] hOff vOff suff olddim pt[b][color=RED])[/color][/b]  [i][color=#990099]; Define Function and Localise Variables[/color][/i]

 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] hoff [b][color=#009999]0.2[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099]; <<-- Horizontal Offset[/color][/i]
 
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] vOff [b][color=#009999]0.15[/color][/b][b][color=RED])[/color][/b] [i][color=#990099]; <<-- Vertical Offset[/color][/i]
 
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] suff [b][color=#ff00ff]"mN"[/color][/b][b][color=RED])[/color][/b] [i][color=#990099]; <<-- Suffix[/color][/i]

 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] olddim [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"DIMZIN"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [i][color=#990099]; Store Old DIMZIN Variable[/color][/i]
 
 [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"DIMZIN"[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099]; Set to not suppress Decimal Zeros[/color][/i]
 
 [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 Point: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [i][color=#990099]; If user Selects a Point...[/color][/i]
   
   [b][color=RED]([/color][/b]Make_Text  [i][color=#990099]; Call "Make_Text" sub-function[/color][/i]
     
     [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=Blue]pi[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] vOff[b][color=RED])[/color][/b] [b][color=#009900]0[/color][/b] hoff[b][color=RED])[/color][/b]  [i][color=#990099]; Position Argument[/color][/i]
     
              [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b]  [i][color=#990099]; Concatenate the following:[/color][/i]
                
                [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b]  [i][color=#990099]; Convert to String[/color][/i]
                  
                  [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] pt[b][color=RED])[/color][/b]  [i][color=#990099]; car=x  cadr=y  caddr=z[/color][/i]
                  
                  [b][color=#009900]2[/color][/b]  [i][color=#990099]; 1=Sci 2=Dec 3=Eng 4=Arch 5=Frac[/color][/i]
                  
                  [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] [i][color=#990099]; Number of Decimal Places[/color][/i]
                
                suff[b][color=RED])[/color][/b] [i][color=#990099]; Add Suffix[/color][/i]
     
     [b][color=#009999]0.0[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099]; Rotation Argument[/color][/i]
 
 [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"DIMZIN"[/color][/b] olddim[b][color=RED])[/color][/b]  [i][color=#990099]; Restore old DIMZIN Setting[/color][/i]
 
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099]; Exit Cleanly[/color][/i]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] Make_Text  [b][color=RED]([/color][/b]pt val rot[b][color=RED])[/color][/b]
 [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]"TEXT"[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099]; <<-- Entity Type     (Str)[/color][/i]
                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]8[/color][/b] [b][color=#ff00ff]"GRID"[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099]; <<-- Layer           (Str)[/color][/i]
                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] pt[b][color=RED])[/color][/b]     [i][color=#990099]; <<-- Insertion Point (Pt)[/color][/i]
                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]40[/color][/b] [b][color=#009999]0.5[/color][/b][b][color=RED])[/color][/b]    [i][color=#990099]; <<-- Text Height     (Real)[/color][/i]
                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1[/color][/b] val[b][color=RED])[/color][/b]     [i][color=#990099]; <<-- Text String     (Str)[/color][/i]
                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]50[/color][/b] rot[b][color=RED])[/color][/b]    [i][color=#990099]; <<-- Rotation        (Real)[/color][/i]
                [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]getvar[/color][/b] [b][color=#ff00ff]"TEXTSTYLE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [i][color=#990099]; <<-- Text Style (Str)[/color][/i]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]71[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]        [i][color=#990099]; 0=normal   2=Backward   4=Upside-Down[/color][/i]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]72[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]        [i][color=#990099]; 0=left     1=center     2=right[/color][/i]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]73[/color][/b] . [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b]        [i][color=#990099]; 0=baseline 1=bottom     2=middle 3=top[/color][/i]
                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]11[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099]; Alignment Point      (Pt)[/color][/i]

May 18, 2009

This should spell everything out

hehehe - that's what i need. thanks for all your help lee - that's awesome

May 18, 2009

No problem - if you still have any questions about any part of the code, just ask

May 18, 2009

This should spell everything out

      [b][color=#009999]0.0[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099]; Rotation Argument[/color][/i]

ok, you did say ask! is this the bit i change to change to rotation of the text? i want text rotated 90degrees now....

EDIT: Nevermind - i've done it now. i changed the above to 1.57 (90deg in radians) and i have it now. perfect

May 18, 2009

ok - i now have one small problem. if i run GH.LSP it works fine. if i open a new drawing and run EPT.LSP (the one you called TY) that also works fine. but if i run one after the other in the same drawing, the layers don't change. eg, if i run GH and then afterwards i run EPT, the text from EPT is still in my grid layer. what is stopping EPT from changing the layer to what it should be? The text height also doesn't update.....

May 18, 2009

OK, I have included the layer as an argument now, - just in case the sub-function was causing the problem.

Also, you can now specify the angle in Degrees

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:gh  [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] hOff vOff suff olddim pt[b][color=RED])[/color][/b]  [i][color=#990099]; Define Function and Localise Variables[/color][/i]

 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] hoff [b][color=#009999]0.2[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099]; <<-- Horizontal Offset[/color][/i]
 
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] vOff [b][color=#009999]0.15[/color][/b][b][color=RED])[/color][/b] [i][color=#990099]; <<-- Vertical Offset[/color][/i]
 
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] suff [b][color=#ff00ff]"mN"[/color][/b][b][color=RED])[/color][/b] [i][color=#990099]; <<-- Suffix[/color][/i]

 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] olddim [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"DIMZIN"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [i][color=#990099]; Store Old DIMZIN Variable[/color][/i]
 
 [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"DIMZIN"[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099]; Set to not suppress Decimal Zeros[/color][/i]
 
 [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 Point: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [i][color=#990099]; If user Selects a Point...[/color][/i]
   
   [b][color=RED]([/color][/b]Make_Text  [i][color=#990099]; Call "Make_Text" sub-function[/color][/i]
     
     [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] [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]2[/color][/b][b][color=RED])[/color][/b] vOff[b][color=RED])[/color][/b] [b][color=#009900]0[/color][/b] hoff[b][color=RED])[/color][/b]  [i][color=#990099]; Position Argument[/color][/i]
     
              [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b]  [i][color=#990099]; Concatenate the following:[/color][/i]
                
                [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b]  [i][color=#990099]; Convert to String[/color][/i]
                  
                  [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] pt[b][color=RED])[/color][/b]  [i][color=#990099]; car=x  cadr=y  caddr=z[/color][/i]
                  
                  [b][color=#009900]2[/color][/b]  [i][color=#990099]; 1=Sci 2=Dec 3=Eng 4=Arch 5=Frac[/color][/i]
                  
                  [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] [i][color=#990099]; Number of Decimal Places[/color][/i]
                
                suff[b][color=RED])[/color][/b] [i][color=#990099]; Add Suffix[/color][/i]
     
       [b][color=#009999]0.0[/color][/b]     [i][color=#990099]; Rotation Argument (Deg)[/color][/i]

     [b][color=#ff00ff]"GRID"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099]; Layer Argument[/color][/i]
 
 [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"DIMZIN"[/color][/b] olddim[b][color=RED])[/color][/b]  [i][color=#990099]; Restore old DIMZIN Setting[/color][/i]
 
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099]; Exit Cleanly[/color][/i]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] Make_Text  [b][color=RED]([/color][/b]pt val rot lay[b][color=RED])[/color][/b]
 [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]"TEXT"[/color][/b][b][color=RED])[/color][/b]               [i][color=#990099]; <<-- Entity Type     (Str)[/color][/i]
                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]8[/color][/b] lay[b][color=RED])[/color][/b]                  [i][color=#990099]; <<-- Layer           (Str)[/color][/i]
                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] pt[b][color=RED])[/color][/b]                  [i][color=#990099]; <<-- Insertion Point (Pt)[/color][/i]
                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]40[/color][/b] [b][color=#009999]0.5[/color][/b][b][color=RED])[/color][/b]                 [i][color=#990099]; <<-- Text Height     (Real)[/color][/i]
                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1[/color][/b] val[b][color=RED])[/color][/b]                  [i][color=#990099]; <<-- Text String     (Str)[/color][/i]
                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]50[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] pi [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] rot [b][color=#009999]180.[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [i][color=#990099]; <<-- Rotation        (Real)[/color][/i]
                [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]getvar[/color][/b] [b][color=#ff00ff]"TEXTSTYLE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [i][color=#990099]; <<-- Text Style      (Str)[/color][/i]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]71[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]        [i][color=#990099]; 0=normal   2=Backward   4=Upside-Down[/color][/i]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]72[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]        [i][color=#990099]; 0=left     1=center     2=right[/color][/i]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]73[/color][/b] . [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b]        [i][color=#990099]; 0=baseline 1=bottom     2=middle 3=top[/color][/i]
                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]11[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]               [i][color=#990099]; Alignment Point      (Pt)[/color][/i]

May 18, 2009

ok, and presumably i will need to do something similar to the first LISP?

EDIT: sorted that problem too now. i don't think it liked having a sub-function with the same name in both LISPS.

Just going back to the first LISP with the block: i have the text coming in in the layer that i want, but the block is coming in in layer 0 - how can i get the block to go into the same layer as the text?

Sign In

Insert text on Locate Point command

Recommended Posts

ronjonp

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Posted Images

ronjonp

Rooster

Lee Mac

ronjonp

Rooster

Lee Mac

Rooster

Lee Mac

Lee Mac

Rooster

Lee Mac

Rooster

Lee Mac

Rooster

Lee Mac

Rooster

Rooster

Lee Mac

Rooster

Join the conversation

Tutorials

Forums

Activity