Topic: How to align text in this lisp

[HasanCAD]

Hi all,
I upgrade LEE lisp to mach my needs
and I want to make change so I want some one to help

Code - Auto/Visual Lisp: [Select]

1. ;; Layer Legend  -  Lee Mac
2. ;; Generates a set of lines at a user-specified point and of a given length
3. ;; with associated layer name text sorted alphabetically for every layer in a drawing.
4. ;; https://www.cadtutor.net/forum/topic/64214-legends-lisp/
5.  
6. (defun c:LLD () (c:LayerLegend))
7.  
8. (defun c:LayerLegend ( / df i l ln p1 pt sp dsc ent nm lst desc objs)
9.  
10.   (vl-load-com)
11.   (defun *error* (msg)
12.     (LM:endundo (LM:acdoc))
13.     (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
14.       (princ (strcat "\nError: " msg))
15.       )
16.     (princ)
17.     )
18.   (defun layercount:assoc++ (key lst / itm)
19.     (if (setq itm (assoc key lst))
20.       (subst (cons key (1+ (cdr itm))) itm lst)
21.       (cons (cons key 1) lst)
22.       )
23.     )
24.   (if
25.     (and
26.       (setq pt (getpoint "\nSpecify Point for Legend: "))
27.       (setq pt (trans pt 1 0))
28.       (setq ln (* 100 (getvar 'TEXTSIZE)))
29.       (setq sp (* 2.5 (getvar 'TEXTSIZE)))
30.       (setq i -1)
31.       )
32.     (progn
33.       (vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
34.         (vlax-for obj blk
35.           (setq lst (layercount:assoc++ (vla-get-layer obj) lst))
36.           (if
37.             (and
38.               (= "AcDbBlockReference" (vla-get-objectname obj))
39.               (= :vlax-true (vla-get-hasattributes obj))
40.               )
41.             (foreach att (vlax-invoke obj 'getattributes)
42.               (setq lst (layercount:assoc++ (vla-get-layer att) lst))))))
43.  
44.       (while (setq df (tblnext "LAYER" (null df)))
45.         (if (/= 16 (logand 16 (cdr (assoc 70 df))))
46.           (setq l (cons (cdr (assoc 2 df)) l))
47.           )
48.         (setq l (acad_strlsort l))
49.         )
50.  
51.     (foreach n l
52.       (setq ent (vlax-ename->vla-object (tblobjname "LAYER" n)))
53.       (setq objs (assoc n lst))
54.       (setq objs (cdr objs))
55.       (setq dsc (vlax-get-property ent 'Description))
56.       (setq nm  (vlax-get-property ent 'name))
57.       (entmakex (list
58.                   (cons 0 "LINE")
59.                   (cons 8 n)
60.                   (cons 6 "ByLayer")
61.                   (cons 62 256)
62.                   (cons 10 (setq p1 (polar pt (* 1.5 pi) (* (setq i (1+ i)) sp))))
63.                   (cons 11 (polar p1 0. ln))
64.                   (cons 370 -1)
65.                   )
66.                 )
67.  
68.       (entmakex (list (cons 0 "TEXT")   ;***
69.                  (cons 1 (strcat n " - Objs: " (itoa objs) " - Desc: " dsc))            ;* (the string itself)
70.                  (cons 6 "BYLAYER")     ; Linetype name
71.                  (cons 7 (getvar 'TEXTSTYLE))           ;* Text style name, defaults to STANDARD, not current
72.                  (cons 8 n)             ; layer
73.                  (cons 10 p1)           ;* First alignment point (in OCS)
74.                  (cons 11 p1)           ;* Second alignment point (in OCS)
75.                  (cons 39 0.0)          ; Thickness (optional; default = 0)
76.                  (cons 40 (getvar 'TEXTSIZE))           ;* Text height
77.                  (cons 41 1.0)          ; Relative X scale factor, Width Factor, defaults to 1.0
78.                  (cons 62 256)          ; color
79.                  (cons 71 0)            ; Text generation flags
80.                  (cons 72 0)            ; Horizontal text justification type
81.                  (cons 73 1)            ; Vertical text justification type
82.                  (cons 210 (list 0.0 0.0 1.0))
83.                  (cons 370 -1)
84.                       )))
85.   (princ)
86.   )))
87.  

[ribarm]

You could try to make ACAD_TABLE entity instead... Text inside cells would be aligned as your wish...

[BIGAL]

If you use mtext a tab is supported, you can add tabs in a string using (chr 9)

(cons 1 (strcat n " - Objs:" (chr 9)  (itoa objs) (chr 9) " - Desc: " (chr 9) dsc)) ; not tested

[Dlanor]

You could change the font to a monospaced eg Lucida Console which would make controlling the length of each sub string easier.