Hi, Can someone help about text in AutoCad?

[saqib_theleo]

Pick a number saqib... we can make it a constant so it will always be 20 before it creates another column or would you rather be prompted for every use.. which one do you prefer?

Also with this new format Horizontal sorting is now a moot point does it?

See updated code [post # 2]

Helo pbejse,
Updated version of this Lisp is working fine now, it is sorting right than previous one. I think 20 number is just fine, if I need a 40 to create another column then I'll try to move texts manually.

And now Horizontal sorting is not a moot point.
I am very thankful to you for your time and help.

In Last, I have a LISP (attached) which selects all texts in the drawing by making a window and moves it like MOVE command. I want to know can you make a Lisp to select only "Numeric values" OR only "Alphabetic Values". Because in some drawings Plot numbers and other texts like "Road", "Green Area" and so.. are in same LAYER which needs to be placed on their specific Layer (with attached Lisp I can do it but I have to look whether there are only numbers selected or alphatic values selected).
I don't mean to disturb you. Do it when you have time.
TAKE CARE.

[pbejse]

Helo pbejse,
Updated version of this Lisp is working fine now, it is sorting right than previous one. I think 20 number is just fine, if I need a 40 to create another column then I'll try to move texts manually.

And now Horizontal sorting is not a moot point.
I am very thankful to you for your time and help.

In Last, I have a LISP (attached) which selects all texts in the drawing by making a window and moves it like MOVE command. I want to know can you make a Lisp to select only "Numeric values" OR only "Alphabetic Values". Because in some drawings Plot numbers and other texts like "Road", "Green Area" and so.. are in same LAYER which needs to be placed on their specific Layer (with attached Lisp I can do it but I have to look whether there are only numbers selected or alphatic values selected).
I don't mean to disturb you. Do it when you have time.
TAKE CARE.

Good for you saqib

If you want to change the number of lines per column
(= cnt 20) to
(= cnt 39)

As for your other request

(defun c:mtl  (/ Mode sel)
      (initget 1 "A N")
      (setq Mode (getkword "\nEnter String type [Numeric/Alpha]: "))
      (setq sel (ssget "_X"
                       (list '(0 . "*TEXT")
                             (cons 410 (getvar 'CTAB))
                             (cons 1
                                   (if (eq Mode "N")
                                         "#*"
                                         "~#*")))
                       )
            )
      (command "_chprop" sel "" "Layer" (getvar 'Clayer) "")
      (sssetfirst nil sel)	;;;		<-- for you to see whats selected
     	 	;;;		You can do without this line	
 (princ)	
      )

Hope this helps

[saqib_theleo]

Good for you saqib

If you want to change the number of lines per column
(= cnt 20) to
(= cnt 39)

As for your other request

(defun c:mtl  (/ Mode sel)
      (initget 1 "A N")
      (setq Mode (getkword "\nEnter String type [Numeric/Alpha]: "))
      (setq sel (ssget "_X"
                       (list '(0 . "*TEXT")
                             (cons 410 (getvar 'CTAB))
                             (cons 1
                                   (if (eq Mode "N")
                                         "#*"
                                         "~#*")))
                       )
            )
      (command "_chprop" sel "" "Layer" (getvar 'Clayer) "")
      (sssetfirst nil sel)    ;;;        <-- for you to see whats selected
              ;;;        You can do without this line    
 (princ)    
      )

Hope this helps

Hello pbejse,
Thanks for your help again. It really helped me and makes it easy to change number of lines per column as you told me.
And the second LISP you provided is as I requested. Thanks for that too.
I try alot to learn how to make lisp but unfortunately I cannot learn that, its difficult for me. But I am happy people like you are there to help others like me. GOD bless you and those who help others.Take care and thanks again.
BYE....

[pbejse]

Glad I could help

Cheers

[s.wasseem90681967]

Hi, check this please:

Command: test

Select objects: Specify opposite corner: 19 found

Select objects:

Enter Sort order [Ascending/Descending]: a

Pick point for Text postion:; error: no function definition:
VLAX-ENAME->VLA-OBJECT

this appears when I click on anywhere
Please help