Topic: Select text only or else loop

[dubb]

I want to know how to make the user select text or mtext only, if they select anything else it will loop until it is true.

My feeble attempt

Code: [Select]

(defun c:foo()
  (while
  (setq txt(cdr(assoc 1(entget (ssname (ssget "_:S+." '((0 . "*TEXT"))) 0)))))
  (princ "error")
 
)
  )

[ronjonp]

http://www.lee-mac.com/selectif.html


Why are you selecting text one at a time? Could you process all selected at once?

[dubb]

Perhaps I can try to approach the method differently.
I have a batch of survey points that each contain a tag id. The survey is in a delimited format which is imported into a gis (QGIS) program to populate the points. From the GIS program I export the points and the corresponding labels as a dxf file. However the generated point is a block separate from the label which is mtext. To merge block and mtext together. I replace those exported blocks with an attributed block then I have to copy the exported text contents into the attribute. 

I hope that explains it.

The initial script I have been writing:

Code: [Select]

;select text or mtext
;select attribute
;edits attribute with text
(defun c:tat (/ txt loop)
  (while
  (princ "Select Text or Mtext <press enter to exit>")(setq txt(cdr(assoc 1(entget (ssname (ssget "_:S+." '((0 . "*TEXT"))) 0)))))
  (attinject txt)
  )
  (princ)
)
;;function
(defun attinject(txt / e)
      (princ "Select attribute text\n")(if (and (setq e (car (nentsel))) (= "ATTRIB" (cdr (assoc 0 (setq e (entget e))))))
    (entmod (subst (cons 1 txt) (assoc 1 e) e))
  )
  )

[Grrr1337]

Just for fun, recursive:

Code - Auto/Visual Lisp: [Select]

1. ; (seltxt)
2. (defun seltxt ( / rec )
3.   (defun rec ( msg pat / e )
4.     (setvar 'errno 0) (setq e (car (entsel msg)))
5.     (cond
6.       ( (= 52 (getvar 'errno)) e)
7.       ( (null e) (princ "\nMissed.") (rec msg pat) )
8.       ( (not (wcmatch (cdr (assoc 0 (entget e))) pat)) (princ "\nInvalid.")  (rec msg pat) )
9.       ( e )
10.     ); cond
11.   ); defun
12.   (rec "\nPick text/mtext: " "*TEXT")
13. ); defun seltxt

[ronjonp]

Perhaps I can try to approach the method differently.
I have a batch of survey points that each contain a tag id. The survey is in a delimited format which is imported into a gis (QGIS) program to populate the points. From the GIS program I export the points and the corresponding labels as a dxf file. However the generated point is a block separate from the label which is mtext. To merge block and mtext together. I replace those exported blocks with an attributed block then I have to copy the exported text contents into the attribute. 

I hope that explains it.

The initial script I have been writing:

Code: [Select]

;select text or mtext
;select attribute
;edits attribute with text
(defun c:tat (/ txt loop)
  (while
  (princ "Select Text or Mtext <press enter to exit>")(setq txt(cdr(assoc 1(entget (ssname (ssget "_:S+." '((0 . "*TEXT"))) 0)))))
  (attinject txt)
  )
  (princ)
)
;;function
(defun attinject(txt / e)
      (princ "Select attribute text\n")(if (and (setq e (car (nentsel))) (= "ATTRIB" (cdr (assoc 0 (setq e (entget e))))))
    (entmod (subst (cons 1 txt) (assoc 1 e) e))
  )
  )

Can you post a sample drawing ?

[ChrisCarlson]

I switched over to lee-mac's "select-if" function.

Simply pass arguments and it handles the rest.

http://www.lee-mac.com/selectif.html

Code - Auto/Visual Lisp: [Select]

1. ;;---------------------=={ Select if }==----------------------;;
2. ;;                                                            ;;
3. ;;  Provides continuous selection prompts until either a      ;;
4. ;;  predicate function is validated or a keyword is supplied. ;;
5. ;;------------------------------------------------------------;;
6. ;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;
7. ;;------------------------------------------------------------;;
8. ;;  Arguments:                                                ;;
9. ;;  msg  - prompt string                                      ;;
10. ;;  pred - optional predicate function [selection list arg]   ;;
11. ;;  func - selection function to invoke                       ;;
12. ;;  keyw - optional initget argument list                     ;;
13. ;;------------------------------------------------------------;;
14. ;;  Returns:  Entity selection list, keyword, or nil          ;;
15. ;;------------------------------------------------------------;;
16.  
17. (defun LM:SelectIf ( msg pred func keyw / sel ) (setq pred (eval pred))  
18.   (while
19.     (progn (setvar 'ERRNO 0) (if keyw (apply 'initget keyw)) (setq sel (func msg))
20.       (cond
21.         ( (= 7 (getvar 'ERRNO))
22.           (princ "\nMissed, Try again.")
23.         )
24.         ( (eq 'STR (type sel))
25.           nil
26.         )
27.         ( (vl-consp sel)
28.           (if (and pred (not (pred sel)))
29.             (princ "\nInvalid Object Selected.")
30.           )
31.         )
32.       )
33.     )
34.   )
35.   sel
36. )

[dubb]

Sure. I had to strip out some things but this should be good enough.

Can you post a sample drawing ?

[dubb]

Sweet! I'm gonna try this one!

I switched over to lee-mac's "select-if" function.

Simply pass arguments and it handles the rest.

http://www.lee-mac.com/selectif.html

Code - Auto/Visual Lisp: [Select]

1. ;;---------------------=={ Select if }==----------------------;;
2. ;;                                                            ;;
3. ;;  Provides continuous selection prompts until either a      ;;
4. ;;  predicate function is validated or a keyword is supplied. ;;
5. ;;------------------------------------------------------------;;
6. ;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;
7. ;;------------------------------------------------------------;;
8. ;;  Arguments:                                                ;;
9. ;;  msg  - prompt string                                      ;;
10. ;;  pred - optional predicate function [selection list arg]   ;;
11. ;;  func - selection function to invoke                       ;;
12. ;;  keyw - optional initget argument list                     ;;
13. ;;------------------------------------------------------------;;
14. ;;  Returns:  Entity selection list, keyword, or nil          ;;
15. ;;------------------------------------------------------------;;
16.  
17. (defun LM:SelectIf ( msg pred func keyw / sel ) (setq pred (eval pred))  
18.   (while
19.     (progn (setvar 'ERRNO 0) (if keyw (apply 'initget keyw)) (setq sel (func msg))
20.       (cond
21.         ( (= 7 (getvar 'ERRNO))
22.           (princ "\nMissed, Try again.")
23.         )
24.         ( (eq 'STR (type sel))
25.           nil
26.         )
27.         ( (vl-consp sel)
28.           (if (and pred (not (pred sel)))
29.             (princ "\nInvalid Object Selected.")
30.           )
31.         )
32.       )
33.     )
34.   )
35.   sel
36. )

[Grrr1337]

Another, to prompt for the text contents:

Code - Auto/Visual Lisp: [Select]

1. ; (TestPick "\nPick text: " (lambda (x / o) (if (and x (vlax-property-available-p (setq o (vlax-ename->vla-object x)) 'TextString)) (vla-get-TextString o))))
2. (defun TestPick ( msg tf / rec )
3.   (defun rec ( msg tf ) (setvar 'errno 0) (cond ( (tf (car (entsel msg))) ) ( (= 52 (getvar 'errno)) nil) ( (rec msg tf) ) ) )
4.   (rec msg tf)
5. ); defun TestPick

[ronjonp]

Sure. I had to strip out some things but this should be good enough.

Can you post a sample drawing ?

Try this:

Code - Auto/Visual Lisp: [Select]

1. (defun c:foo (/ b p text txt x)
2.   (vl-load-com)
3.   (cond ((null (setq txt (ssget "_x" '((0 . "mtext"))))) (print "Text not found!"))
4.         ((null (setq b (ssget "_x" '((0 . "insert") (2 . "_symbol")))))
5.          (print "Block '_symbol' not found!")
6.         )
7.         ((setq txt
8.                 (mapcar '(lambda (x) (cons (cdr (assoc 10 (entget x))) x)) (mapcar 'cadr (ssnamex txt)))
9.          )
10.          (if (null (tblobjname "block" "xpole"))
11.            (progn (entmake '((0 . "BLOCK")
12.                              (100 . "AcDbEntity")
13.                              (67 . 0)
14.                              (8 . "0")
15.                              (100 . "AcDbBlockReference")
16.                              (66 . 1)
17.                              (2 . "xpole")
18.                              (10 0.0 0.0 0.0)
19.                              (70 . 2)
20.                             )
21.                   )
22.                   (entmake '((0 . "CIRCLE")
23.                              (100 . "AcDbEntity")
24.                              (67 . 0)
25.                              (8 . "0")
26.                              (62 . 0)
27.                              (100 . "AcDbCircle")
28.                              (10 0.0 0.0 0.0)
29.                              (40 . 6.24999949999751)
30.                             )
31.                   )
32.                   (entmake '((0 . "ATTDEF")
33.                              (100 . "AcDbEntity")
34.                              (67 . 0)
35.                              (8 . "0")
36.                              (62 . 0)
37.                              (100 . "AcDbText")
38.                              (10 -11.13331384264566 8.407499455614502 0.0)
39.                              (40 . 3.999999679998406)
40.                              (1 . "NA")
41.                              (50 . 0.0)
42.                              (41 . 1.0)
43.                              (51 . 0.0)
44.                              (7 . "Standard")
45.                              (71 . 0)
46.                              (72 . 0)
47.                              (11 0.0 0.0 0.0)
48.                              (100 . "AcDbAttributeDefinition")
49.                              (280 . 0)
50.                              (3 . "Enter pole #")
51.                              (2 . "POLE-NO")
52.                              (70 . 1)
53.                              (73 . 0)
54.                              (74 . 0)
55.                              (280 . 0)
56.                             )
57.                   )
58.                   (entmake '((0 . "LINE")
59.                              (100 . "AcDbEntity")
60.                              (67 . 0)
61.                              (8 . "0")
62.                              (62 . 0)
63.                              (100 . "AcDbLine")
64.                              (10 4.419417028860769 -4.419417028860769 0.0)
65.                              (11 -4.419417028860769 4.419417028860769 0.0)
66.                             )
67.                   )
68.                   (entmake '((0 . "LINE")
69.                              (100 . "AcDbEntity")
70.                              (67 . 0)
71.                              (8 . "0")
72.                              (62 . 0)
73.                              (100 . "AcDbLine")
74.                              (10 4.419417028860769 4.419417028860769 0.0)
75.                              (11 -4.419417028860769 -4.419417028860769 0.0)
76.                             )
77.                   )
78.                   (entmake '((0 . "ENDBLK") (100 . "AcDbBlockEnd") (8 . "0")))
79.            )
80.          )
81.          (command "_.attsync" "_Name" "xpole")
82.          (foreach blk (mapcar 'cadr (ssnamex b))
83.            (setq p (cdr (assoc 10 (entget blk))))
84.            (if (setq
85.                  text (car (vl-sort txt '(lambda (a b) (< (distance p (car a)) (distance p (car b))))))
86.                )
87.              (progn (setq txt (vl-remove text txt))
88.                     (entmod (subst '(2 . "xpole") (assoc 2 (entget blk)) (entget blk)))
89.                     (mapcar '(lambda (x) (vla-put-textstring x (cdr (assoc 1 (entget (cdr text))))))
90.                             (vlax-invoke (vlax-ename->vla-object blk) 'getattributes)
91.                     )
92.                     ;; This line is to check that correct content was found
93.                     ;; (entmakex (list '(0 . "line") '(8 . "check") (cons 10 p) (cons 11 (car text))))
94.                     (entdel (cdr text))
95.              )
96.            )
97.          )
98.         )
99.   )
100.   (princ)
101. )

[ziele_o2k]

Another from CADPL-Pack-v1:

Code - Auto/Visual Lisp: [Select]

1. ; =========================================================================================== ;
2. ; Wybiera zadane obiekty / Select a desired object                                            ;
3. ;  Msg   [LIST]     - lista komunikatow / list of messages                                    ;
4. ;  Obj   [LIST/nil] - LIST = lista zadanych obiektow / list of desired objects                ;
5. ;                     nil  = wybiera dowolne obiekty / selects any objects                    ;
6. ;  Init  [STR/nil]  - STR = slowa kluczowe / keywords                                         ;
7. ;                     nil = bez slow kluczowych / no keywords                                 ;
8. ;  Lock  [T/nil] - pomija obiekty na zamknietej warstwie / ignored objects in a locked layer  ;
9. ;                  nil = tak / yes                                                            ;
10. ;                  T   = nie / no                                                             ;
11. ;  Enter [T/nil] - zakoncz prawy klik/spacja/enter / exit right click/space/enter             ;
12. ;                  nil = nie / no                                                             ;
13. ;                  T   = tak / yes                                                            ;
14. ; =========================================================================================== ;
15. (defun cd:USR_EntSelObj (Msg Obj Init Lock Enter / res)
16.   (while
17.     (progn
18.       (setvar "ERRNO" 0)
19.       (if Init (initget Init))
20.       (setq res (entsel (car Msg)))
21.       (cond
22.         ( (= (getvar "ERRNO") 7)
23.           (princ (cadr Msg))
24.         )
25.         ( (null res)
26.           (if Enter
27.             (not (princ (caddr Msg)))
28.             (princ (caddr Msg))
29.           )
30.         )
31.         ( (listp res)
32.           (if
33.             (if Obj
34.               (member (cdr (assoc 0 (entget (car res)))) Obj)
35.               T
36.             )
37.             (if Lock
38.               (if (vlax-write-enabled-p (car res))
39.                 (not (setq res res))
40.                 (princ (last Msg))
41.               )
42.               (not (setq res res))
43.             )
44.             (princ (cadddr Msg))
45.           )
46.         )
47.         ( (= (type res) (quote STR))
48.           nil
49.         )
50.         (T nil)
51.       )
52.     )
53.   )
54.   res
55. )

Example for text/mtext

Code - Auto/Visual Lisp: [Select]

1. (cd:USR_EntSelObj
2.   (list
3.     "\nSelect Text or Mtext : " "Please select text/mtext " "Nothing selected "
4.     "This is not text/mtext " "Object on closed layer "
5.   )
6.   (list "TEXT" "MTEXT") nil T T
7. )

[dubb]

Wholly cow! I thats amazing. I didn't expect you to write all that. But it works great!

Sure. I had to strip out some things but this should be good enough.

Can you post a sample drawing ?

Try this:

Code - Auto/Visual Lisp: [Select]

1. (defun c:foo (/ b p text txt x)
2.   (vl-load-com)
3.   (cond ((null (setq txt (ssget "_x" '((0 . "mtext"))))) (print "Text not found!"))
4.         ((null (setq b (ssget "_x" '((0 . "insert") (2 . "_symbol")))))
5.          (print "Block '_symbol' not found!")
6.         )
7.         ((setq txt
8.                 (mapcar '(lambda (x) (cons (cdr (assoc 10 (entget x))) x)) (mapcar 'cadr (ssnamex txt)))
9.          )
10.          (if (null (tblobjname "block" "xpole"))
11.            (progn (entmake '((0 . "BLOCK")
12.                              (100 . "AcDbEntity")
13.                              (67 . 0)
14.                              (8 . "0")
15.                              (100 . "AcDbBlockReference")
16.                              (66 . 1)
17.                              (2 . "xpole")
18.                              (10 0.0 0.0 0.0)
19.                              (70 . 2)
20.                             )
21.                   )
22.                   (entmake '((0 . "CIRCLE")
23.                              (100 . "AcDbEntity")
24.                              (67 . 0)
25.                              (8 . "0")
26.                              (62 . 0)
27.                              (100 . "AcDbCircle")
28.                              (10 0.0 0.0 0.0)
29.                              (40 . 6.24999949999751)
30.                             )
31.                   )
32.                   (entmake '((0 . "ATTDEF")
33.                              (100 . "AcDbEntity")
34.                              (67 . 0)
35.                              (8 . "0")
36.                              (62 . 0)
37.                              (100 . "AcDbText")
38.                              (10 -11.13331384264566 8.407499455614502 0.0)
39.                              (40 . 3.999999679998406)
40.                              (1 . "NA")
41.                              (50 . 0.0)
42.                              (41 . 1.0)
43.                              (51 . 0.0)
44.                              (7 . "Standard")
45.                              (71 . 0)
46.                              (72 . 0)
47.                              (11 0.0 0.0 0.0)
48.                              (100 . "AcDbAttributeDefinition")
49.                              (280 . 0)
50.                              (3 . "Enter pole #")
51.                              (2 . "POLE-NO")
52.                              (70 . 1)
53.                              (73 . 0)
54.                              (74 . 0)
55.                              (280 . 0)
56.                             )
57.                   )
58.                   (entmake '((0 . "LINE")
59.                              (100 . "AcDbEntity")
60.                              (67 . 0)
61.                              (8 . "0")
62.                              (62 . 0)
63.                              (100 . "AcDbLine")
64.                              (10 4.419417028860769 -4.419417028860769 0.0)
65.                              (11 -4.419417028860769 4.419417028860769 0.0)
66.                             )
67.                   )
68.                   (entmake '((0 . "LINE")
69.                              (100 . "AcDbEntity")
70.                              (67 . 0)
71.                              (8 . "0")
72.                              (62 . 0)
73.                              (100 . "AcDbLine")
74.                              (10 4.419417028860769 4.419417028860769 0.0)
75.                              (11 -4.419417028860769 -4.419417028860769 0.0)
76.                             )
77.                   )
78.                   (entmake '((0 . "ENDBLK") (100 . "AcDbBlockEnd") (8 . "0")))
79.            )
80.          )
81.          (command "_.attsync" "_Name" "xpole")
82.          (foreach blk (mapcar 'cadr (ssnamex b))
83.            (setq p (cdr (assoc 10 (entget blk))))
84.            (if (setq
85.                  text (car (vl-sort txt '(lambda (a b) (< (distance p (car a)) (distance p (car b))))))
86.                )
87.              (progn (setq txt (vl-remove text txt))
88.                     (entmod (subst '(2 . "xpole") (assoc 2 (entget blk)) (entget blk)))
89.                     (mapcar '(lambda (x) (vla-put-textstring x (cdr (assoc 1 (entget (cdr text))))))
90.                             (vlax-invoke (vlax-ename->vla-object blk) 'getattributes)
91.                     )
92.                     ;; This line is to check that correct content was found
93.                     ;; (entmakex (list '(0 . "line") '(8 . "check") (cons 10 p) (cons 11 (car text))))
94.                     (entdel (cdr text))
95.              )
96.            )
97.          )
98.         )
99.   )
100.   (princ)
101. )

[ronjonp]

Wholly cow! I thats amazing. I didn't expect you to write all that. But it works great!

Sure. I had to strip out some things but this should be good enough.

Can you post a sample drawing ?

Try this:

Code - Auto/Visual Lisp: [Select]

1. (defun c:foo (/ b p text txt x)
2.   (vl-load-com)
3.   (cond   ((null (setq txt (ssget "_x" '((0 . "mtext"))))) (print "Text not found!"))
4.    ((null (setq b (ssget "_x" '((0 . "insert") (2 . "_symbol")))))
5.     (print "Block '_symbol' not found!")
6.    )
7.    ((setq txt
8.       (mapcar '(lambda (x) (cons (cdr (assoc 10 (entget x))) x)) (mapcar 'cadr (ssnamex txt)))
9.     )
10.     (if (null (tblobjname "block" "xpole"))
11.       (progn (entmake '((0 . "BLOCK")
12.               (100 . "AcDbEntity")
13.               (67 . 0)
14.               (8 . "0")
15.               (100 . "AcDbBlockReference")
16.               (66 . 1)
17.               (2 . "xpole")
18.               (10 0.0 0.0 0.0)
19.               (70 . 2)
20.              )
21.         )
22.         (entmake '((0 . "CIRCLE")
23.               (100 . "AcDbEntity")
24.               (67 . 0)
25.               (8 . "0")
26.               (62 . 0)
27.               (100 . "AcDbCircle")
28.               (10 0.0 0.0 0.0)
29.               (40 . 6.24999949999751)
30.              )
31.         )
32.         (entmake '((0 . "ATTDEF")
33.               (100 . "AcDbEntity")
34.               (67 . 0)
35.               (8 . "0")
36.               (62 . 0)
37.               (100 . "AcDbText")
38.               (10 -11.13331384264566 8.407499455614502 0.0)
39.               (40 . 3.999999679998406)
40.               (1 . "NA")
41.               (50 . 0.0)
42.               (41 . 1.0)
43.               (51 . 0.0)
44.               (7 . "Standard")
45.               (71 . 0)
46.               (72 . 0)
47.               (11 0.0 0.0 0.0)
48.               (100 . "AcDbAttributeDefinition")
49.               (280 . 0)
50.               (3 . "Enter pole #")
51.               (2 . "POLE-NO")
52.               (70 . 1)
53.               (73 . 0)
54.               (74 . 0)
55.               (280 . 0)
56.              )
57.         )
58.         (entmake '((0 . "LINE")
59.               (100 . "AcDbEntity")
60.               (67 . 0)
61.               (8 . "0")
62.               (62 . 0)
63.               (100 . "AcDbLine")
64.               (10 4.419417028860769 -4.419417028860769 0.0)
65.               (11 -4.419417028860769 4.419417028860769 0.0)
66.              )
67.         )
68.         (entmake '((0 . "LINE")
69.               (100 . "AcDbEntity")
70.               (67 . 0)
71.               (8 . "0")
72.               (62 . 0)
73.               (100 . "AcDbLine")
74.               (10 4.419417028860769 4.419417028860769 0.0)
75.               (11 -4.419417028860769 -4.419417028860769 0.0)
76.              )
77.         )
78.         (entmake '((0 . "ENDBLK") (100 . "AcDbBlockEnd") (8 . "0")))
79.       )
80.     )
81.     (command "_.attsync" "_Name" "xpole")
82.     (foreach blk (mapcar 'cadr (ssnamex b))
83.       (setq p (cdr (assoc 10 (entget blk))))
84.       (if (setq
85.        text (car (vl-sort txt '(lambda (a b) (< (distance p (car a)) (distance p (car b))))))
86.           )
87.         (progn (setq txt (vl-remove text txt))
88.           (entmod (subst '(2 . "xpole") (assoc 2 (entget blk)) (entget blk)))
89.           (mapcar '(lambda (x) (vla-put-textstring x (cdr (assoc 1 (entget (cdr text))))))
90.              (vlax-invoke (vlax-ename->vla-object blk) 'getattributes)
91.           )
92.           ;; This line is to check that correct content was found
93.           ;; (entmakex (list '(0 . "line") '(8 . "check") (cons 10 p) (cons 11 (car text))))
94.           (entdel (cdr text))
95.         )
96.       )
97.     )
98.    )
99.   )
100.   (princ)
101. )

Glad to help out

[dubb]

Thanks! This is very useful.

Another from CADPL-Pack-v1:

Code - Auto/Visual Lisp: [Select]

1. ; =========================================================================================== ;
2. ; Wybiera zadane obiekty / Select a desired object                                            ;
3. ;  Msg   [LIST]     - lista komunikatow / list of messages                                    ;
4. ;  Obj   [LIST/nil] - LIST = lista zadanych obiektow / list of desired objects                ;
5. ;                     nil  = wybiera dowolne obiekty / selects any objects                    ;
6. ;  Init  [STR/nil]  - STR = slowa kluczowe / keywords                                         ;
7. ;                     nil = bez slow kluczowych / no keywords                                 ;
8. ;  Lock  [T/nil] - pomija obiekty na zamknietej warstwie / ignored objects in a locked layer  ;
9. ;                  nil = tak / yes                                                            ;
10. ;                  T   = nie / no                                                             ;
11. ;  Enter [T/nil] - zakoncz prawy klik/spacja/enter / exit right click/space/enter             ;
12. ;                  nil = nie / no                                                             ;
13. ;                  T   = tak / yes                                                            ;
14. ; =========================================================================================== ;
15. (defun cd:USR_EntSelObj (Msg Obj Init Lock Enter / res)
16.   (while
17.     (progn
18.       (setvar "ERRNO" 0)
19.       (if Init (initget Init))
20.       (setq res (entsel (car Msg)))
21.       (cond
22.         ( (= (getvar "ERRNO") 7)
23.           (princ (cadr Msg))
24.         )
25.         ( (null res)
26.           (if Enter
27.             (not (princ (caddr Msg)))
28.             (princ (caddr Msg))
29.           )
30.         )
31.         ( (listp res)
32.           (if
33.             (if Obj
34.               (member (cdr (assoc 0 (entget (car res)))) Obj)
35.               T
36.             )
37.             (if Lock
38.               (if (vlax-write-enabled-p (car res))
39.                 (not (setq res res))
40.                 (princ (last Msg))
41.               )
42.               (not (setq res res))
43.             )
44.             (princ (cadddr Msg))
45.           )
46.         )
47.         ( (= (type res) (quote STR))
48.           nil
49.         )
50.         (T nil)
51.       )
52.     )
53.   )
54.   res
55. )

Example for text/mtext

Code - Auto/Visual Lisp: [Select]

1. (cd:USR_EntSelObj
2.   (list
3.     "\nSelect Text or Mtext : " "Please select text/mtext " "Nothing selected "
4.     "This is not text/mtext " "Object on closed layer "
5.   )
6.   (list "TEXT" "MTEXT") nil T T
7. )

[Grrr1337]

Ron, my 2 cents is that you could mapcar the entmake, when creating the block definiton.