Topic: annotation text lisp

[pedroantonio]

Hi I am using Lee Mac code for text .I want to update this code to work with annotation text. The only commands i know to do this is

Code - Auto/Visual Lisp: [Select]

1. (COMMAND "_layer" "_m" "_KEIM" "_c" "7" "" "")
2. (command "_.-style" "_KEIM" "arial.ttf" "_annotative" "_yes" "_no" 2.5 1.0 0.0 "_no" "_no" "_no")
3.  

Can any one help me to update the code

Code - Auto/Visual Lisp: [Select]

1. (defun c:txt (/ *error* varlist oldvars pt1 tval)
2.     (defun *error* (msg)
3.     (mapcar 'setvar varlist oldvars)
4.     (if (= msg "")
5.         (princ "\nText Inserted.")
6.         (princ "\nEsc or Error Pressed...")
7.     ) ;_  end if
8.     (princ)
9.     ) ;_  end defun
10.     (setq varlist (list "CMDECHO" "CLAYER")
11.       oldvars (mapcar 'getvar varlist)
12.     ) ;_  end setq
13.     (while (and    (/= (setq pt1 (getpoint "\nSelect Insertion Point: ")) nil)
14.         (/= (setq tval (getstring t "\nSpecify Text: ")) "")
15.        ) ;_  end and
16.     (if (not (tblsearch "Layer" "TEXT"))
17.         (command "-layer" "m" "TEXT" "")
18.     ) ;_  end if
19.     (entmake (list '(0 . "TEXT")
20.                '(8 . "_KEIM")
21.                (cons 10 pt1)
22.                (cons 40 (getvar "TEXTSIZE"))
23.                (cons 1 tval)
24.                '(50 . 0.0)
25.                '(7 . "_KEIM")
26.                '(71 . 0)
27.                '(72 . 0)
28.                '(73 . 0)
29.          ) ;_  end list
30.     ) ;_  end entmake
31.     ) ;_  end while
32.     (*error* "")
33.     (princ)
34. ) ;_  end defun
35.  

Thanks

[pedroantonio]

No one ?

[CAB]

Hey, it's the weekend. We're all watching football & drinking beer.

[pedroantonio]

Ok CAB 

[Stefan]

It is much easier with visual lisp:

Code - Auto/Visual Lisp: [Select]

1.   (setvar 'textstyle "_KEIM")
2.   (vla-addtext
3.     <current space>;; ModelSpace or PaperSpace
4.     <text>;;; your text
5.     (vlax-3d-point <point>) ;;; insertion point
6.     (/
7.       (cdr (assoc 40 (tblsearch "style" "_KEIM")))
8.       (getvar 'cannoscalevalue)
9.     )
10.   )

[roy_043]

This topic (also started by the OP) is quite similar:
http://www.theswamp.org/index.php?topic=50075.0

[pedroantonio]

any other option ?

[ChrisCarlson]

Are you just trying to make annotative text?

[pedroantonio]

Hi  ChrisCarlson
I am using the lisp in post 1 to write text in specific layer and text style. I want now to use the same lisp or same like this lisp to write an annotation text in specific text style and layer

Code - Auto/Visual Lisp: [Select]

1. (COMMAND "_layer" "_m" "_KEIM" "_c" "7" "" "")
2. (command "_.-style" "_KEIM" "arial.ttf" "_annotative" "_yes" "_no" 2.5 1.0 0.0 "_no" "_no" "_no")
3.  

Thanks

[ChrisCarlson]

Hi  ChrisCarlson
I am using the lisp in post 1 to write text in specific layer and text style. I want now to use the same lisp or same like this lisp to write an annotation text in specific text style and layer

Code - Auto/Visual Lisp: [Select]

1. (COMMAND "_layer" "_m" "_KEIM" "_c" "7" "" "")
2. (command "_.-style" "_KEIM" "arial.ttf" "_annotative" "_yes" "_no" 2.5 1.0 0.0 "_no" "_no" "_no")
3.  

Thanks

This doesn't create text, that just simply creates a layer and text style. Just shooting off the hip..

Code - Auto/Visual Lisp: [Select]

1. entmake
2.         (list
3.                 (cons 0 "TEXT")
4.                 (cons 8 "_KEIM") ; layer name
5.                 (list 10 0.0 0.0 0.0) ; insertion point
6.                 (cons 1 textstring) ; text string to pass
7.                 (cons 50 0)
8.                 (cons 7 "_KEIM") ; text style
9.         )
10. )
11.  

[pedroantonio]

I try this but is not working

Code - Auto/Visual Lisp: [Select]

1. (defun c:test (/ *error* varlist oldvars pt1 tval)
2.     (COMMAND "_layer" "_m" "_KEIM" "_c" "7" "" "")
3. (command "_.-style" "_KEIM" "arial.ttf" "_annotative" "_yes" "_no" 2.5 1.0 0.0 "_no" "_no" "_no")
4.      (defun *error* (msg)
5.     (mapcar 'setvar varlist oldvars)
6.     (if (= msg "")
7.         (princ "\nText Inserted.")
8.         (princ "\nEsc or Error Pressed...")
9.     ) ;_  end if
10.     (princ)
11.     ) ;_  end defun
12.     (setq varlist (list "CMDECHO" "CLAYER")
13.       oldvars (mapcar 'getvar varlist)
14.     ) ;_  end setq
15.     (while (and    (/= (setq pt1 (getpoint "\nSelect Insertion Point: ")) nil)
16.         (/= (setq tval (getstring t "\nSpecify Text: ")) "")
17.        ) ;_  end and
18.     (if (not (tblsearch "Layer" "_KEIM"))
19.         (command "-layer" "m" "_KEIM" "")
20.     ) ;_  end if
21.     ) ;_  end while
22.     (*error* "")
23.     (princ)
24. ) ;_  end defun
25.  

[ChrisCarlson]

Ok, what line does it error out on?

[pedroantonio]

I can not see any text.Create only the layer

[ChrisCarlson]

So it creates the layer then breaks? Based on that I would assume something is wrong with this line. Copy and paste it into the CAD command line.

Code - Auto/Visual Lisp: [Select]

1. (command "_.-style" "_KEIM" "arial.ttf" "_annotative" "_yes" "_no" 2.5 1.0 0.0 "_no" "_no" "_no")

[pedroantonio]

I use the same line in other lisp files . is correct