I tried to make text alignment but create all test in 0,0
(entmakex (list
(cons 0 "TEXT")
(cons 1 LyrName)
(cons 7 "LyrNameTxt")
(cons 8 LyrName)
(cons 10 Pnt2)
(cons 40 220)
(cons 41 0.8)
(cons 62 LyrClr)
(cons 72 2)
(cons 73 2)
))
And this Version using Subroutine
;|-------------------Layers List----------------------
q_|_|| _\|| q_|| _\|
Create a line & text for each layer and have
layer properties and text string is layer name
for each layer
------------------------------------------------------
Author: Hasan M. Asous, 2010
Copyright © 2010 by HasanCAD, All Rights Reserved.
Contact: HasanCAD @ TheSwamp.org,
asos2000 @ CADTutor.net
HasanCAD@gmail.com
------------------------------------------------------
Version: 1 20100928
Version: 1.1 20100928 Using Subroutine
____________________________________________________|;
; q_|_|| _\|| q_|| _\| ;
; Mainroutine Start ;
(defun c:Layers (/ AcObj ActDoc
Cntr Pnt0
e l
Pnt1 Pnt2 LyrName LyrLType LyrClr)
(vl-load-com)
(setq AcObj (vlax-get-Acad-Object))
(setq ActDoc (vla-get-ActiveDocument AcObj))
(vla-EndUndoMark ActDoc)
(vla-StartUndoMark ActDoc)
(setq Cntr -1)
(setq Pnt0 (trans (getpoint "\nBase point")1 0))
(command "_.-style" "LyrNameTxt" "romans.shx" 110 0.8 0 "n" "n" "n")
(while
(and
(setq Lyr (tblnext "LAYER" (null Lyr)))
(setq LyrName (cdr (assoc 2 Lyr)))
(setq LyrLType (cdr (assoc 6 Lyr)))
(setq LyrClr (cdr (assoc 62 Lyr)))
)
(if
(and
(setq Pnt1 (list (+ (car pnt0) 8000) (cadr pnt0) (caddr pnt0)))
(setq Pnt2 (list (+ (car pnt0) 8200) (+ (cadr pnt0) -110) (caddr pnt0)))
)
(progn
(LyrLnType LyrLType LyrName Pnt0 Pnt1 Pnt2 LyrClr)
(setq Pnt0 (list (car pnt0) (+ (cadr pnt0) -600) (caddr pnt0)))
)
)
(vla-EndUndoMark ActDoc)
)
(princ)
)
; q_|_|| _\|| q_|| _\| ;
; Mainroutine End ;
; q_|_|| _\|| q_|| _\| ;
; Subroutine Start ;
(defun LyrLnType (LyrLType LyrName Pnt0 Pnt1 Pnt2 LyrClr / )
(entmakex (list
(cons 0 "LINE")
(cons 6 LyrLType)
(cons 8 LyrName)
(cons 10 Pnt0)
(cons 11 Pnt1)
(cons 62 LyrClr)
))
(entmakex (list
(cons 0 "TEXT")
(cons 1 LyrName)
(cons 7 "LyrNameTxt")
(cons 8 LyrName)
(cons 10 Pnt2)
(cons 40 220)
(cons 41 0.8)
(cons 62 LyrClr)
))
)
; q_|_|| _\|| q_|| _\| ;
; Subroutine End ;