ADD LEADER

rolisonfelipe · ‎10-25-2020

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;LEANDER COMMANDS

(DEFUN C:LLL () (C:AT-LEANDERX))
;============================================================
(DEFUN C:AT-LEANDERX ()
(SETQ FLAGOK nil)
;
(IF (NOT FLAG-XLS) (AT-LEARQXLS) )
;
(SETQ DCL_ID (LOAD_DIALOG "STANDARD"))
(SETQ FLAGOK1 T)
(SETQ XFIM1 0)
;
(WHILE FLAGOK1
(NEW_DIALOG "AT_TELA_LEANDERx" DCL_ID)
(START_LIST "LTXOBS") (MAPCAR 'ADD_LIST LLTXTOBS) (END_LIST)
(IF (NOT NLO) (SETQ NLO "0"))
(SET_TILE "LTXOBS" NLO)
(ACTION_TILE "LTXOBS" "(SETQ NLO $value)")
(ACTION_TILE "BT-PONTOREFERENCIA" "(DONE_DIALOG 1)")
(ACTION_TILE "BT-SAIR" "(DONE_DIALOG 0)")
(SETQ XFIM1 (START_DIALOG))

;
(IF (= XFIM1 0) (SETQ FLAGOK1 nil))
(IF (= XFIM1 1) (AT-LEANDER-INDICARPONx))
)
;
(PRINC)
)
;=========================================================================
(DEFUN AT-LEANDER-INDICARPONx ()
;
(COMMAND "_UNDO" "_BEGIN")
(IF SALVA (SALVA (LIST "OSMODE" "CLAYER" "TEXTSTYLE")))
(SETVAR "OSMODE" 512)
;(SETQ FLAGOK1 nil)
;(IF (NOT FLAGAA)(ALERT "\n Informe um ponto!"))(SETQ FLAGIJ T)
;
(SETQ VVBL "STANDARD-NBR LEADER") ;THIS A BLOCK
(VERIFICA-VVBL VVBL);
(SETQ VINSERT (GETPOINT)); THIS INSERT A BLOCK
(COMMAND "_INSERT" VVBL VINSERT ESCALA "" "" (NTH (ATOI NLO) LLTXTOBS) )
;
(SETQ PTSI1 (GETPOINT"\n>>Selecione um Ponto Interno <ENTER=Fim>: "))
; WOULD YOU LIKE TO INSERT A LEADER, NOT A BLOCK AS SUGGESTED BY LISP, HOW TO MODIFY THIS LANGUAGE THAT STILL OPTION TO CONFIGURE THE ARROW TYPE AND SIZE, THANKYOU ALL...
(IF RESTAURA (RESTAURA))
(COMMAND "_UNDO" "_END")
;
)

rolisonfelipe · ‎10-28-2020

MY BEST,

I SEE THIS LSP

Labeling N,E Coordinates with Leader - David B. Stewart

(defun C:LP(/ PNT1 P1X P1Y STDY DY COORDN COORDE PTXT)
(setq PNT1 (getpoint
"\nPick coordinate point: "))
(setq P1X (car pnt1)) ;x coord
(setq P1Y (cadr pnt1)) ;y coord
(setq STDX (rtos P1X 2 3))
(setq STDY (rtos P1Y 2 3))
(setq COORDN (strcat "N " STDY ))
(setq COORDE (strcat "E " STDX ))
(setq PTXT (getpoint
"\nPick text location: "))
(command "LEADER" PNT1 PTXT "" COORDN COORDE "")
(princ) : INSERT LEADER WICH TEXT... IT OK
)

==================

;MY TEST
(DEFUN C:LLL () (C:AT-LEANDERX))
;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN C:AT-LEANDERX ()
(SETQ FLAGOK nil)
;
(IF (NOT FLAG-XLS) (AT-LEARQXLS) )
;
(SETQ DCL_ID (LOAD_DIALOG "STANDARD"))
(SETQ FLAGOK1 T)
(SETQ XFIM1 0)
;
(WHILE FLAGOK1
(NEW_DIALOG "AT_TELA_LEANDERx" DCL_ID)
(START_LIST "LTXOBS") (MAPCAR 'ADD_LIST LLTXTOBS) (END_LIST)
(IF (NOT NLO) (SETQ NLO "0"))
(SET_TILE "LTXOBS" NLO)
(ACTION_TILE "LTXOBS" "(SETQ NLO $value)")
(ACTION_TILE "BT-PONTOREFERENCIA" "(DONE_DIALOG 1)")
(ACTION_TILE "BT-SAIR" "(DONE_DIALOG 0)")
(SETQ XFIM1 (START_DIALOG))

;
(IF (= XFIM1 0) (SETQ FLAGOK1 nil))
(IF (= XFIM1 1) (AT-LEADER-INDICARPONx))
)
;
(PRINC)
)
;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN AT-LEADER-INDICARPONx (/ PNT1 PTXT)
;
(setq PNT1 (getpoint
"\nPick LEADER point: "))
(setq PTXT (getpoint
"\nPick TEXT location: "))
(command "LEADER" PNT1 PTXT "" NTH (ATOI NLO) LTXOBS) "") ; DIDN'T INSERT THE TEXT, JUST CREATED THE LEADER
(princ)

ВeekeeCZ · ‎10-29-2020

@rolisonfelipe wrote:

MY BEST,

I SEE THIS LSP

Labeling N,E Coordinates with Leader - David B. Stewart

(defun C:LP(/ PNT1 P1X P1Y STDY DY COORDN COORDE PTXT)
(setq PNT1 (getpoint
"\nPick coordinate point: "))
(setq P1X (car pnt1)) ;x coord
(setq P1Y (cadr pnt1)) ;y coord
(setq STDX (rtos P1X 2 3))
(setq STDY (rtos P1Y 2 3))
(setq COORDN (strcat "N " STDY ))
(setq COORDE (strcat "E " STDX ))
(setq PTXT (getpoint
"\nPick text location: "))
(command "LEADER" PNT1 PTXT "" COORDN COORDE "")
(princ) : INSERT LEADER WICH TEXT... IT OK
)

==================

;MY TEST
(DEFUN C:LLL () (C:AT-LEANDERX))
;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN C:AT-LEANDERX ()
(SETQ FLAGOK nil)
;
(IF (NOT FLAG-XLS) (AT-LEARQXLS) )
;
(SETQ DCL_ID (LOAD_DIALOG "STANDARD"))
(SETQ FLAGOK1 T)
(SETQ XFIM1 0)
;
(WHILE FLAGOK1
(NEW_DIALOG "AT_TELA_LEANDERx" DCL_ID)
(START_LIST "LTXOBS") (MAPCAR 'ADD_LIST LLTXTOBS) (END_LIST)
(IF (NOT NLO) (SETQ NLO "0"))
(SET_TILE "LTXOBS" NLO)
(ACTION_TILE "LTXOBS" "(SETQ NLO $value)")
(ACTION_TILE "BT-PONTOREFERENCIA" "(DONE_DIALOG 1)")
(ACTION_TILE "BT-SAIR" "(DONE_DIALOG 0)")
(SETQ XFIM1 (START_DIALOG))

;
(IF (= XFIM1 0) (SETQ FLAGOK1 nil))
(IF (= XFIM1 1) (AT-LEADER-INDICARPONx))
)
;
(PRINC)
)
;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN AT-LEADER-INDICARPONx (/ PNT1 PTXT)
;
(setq PNT1 (getpoint
"\nPick LEADER point: "))
(setq PTXT (getpoint
"\nPick TEXT location: "))
(command "LEADER" PNT1 PTXT "" NTH (ATOI NLO) LTXOBS) "") ; DIDN'T INSERT THE TEXT, JUST CREATED THE LEADER
(princ)

What NTH is ?

rolisonfelipe · ‎10-30-2020

;////////////////////////////////////////////////////////////////////////////////////////////////
;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN C:STANDARD ()
;////////////////////////////////////////////////////////////////////////////////////////////////
(IF SALVA0 (SALVA0 (LIST "ANGDIR" "ANGBASE" "CMDECHO" "ATTREQ" "ATTDIA" "DIMZIN")))
;
(SETQ LUNIDADE (LIST "MILIMÉTRO" "CENTIMÉTRO" "METRO"))
(SETQ LESCALA (LIST "1" "1.25" "2" "2.5" "5" "7.5" "10" "12.5" "20" "25" "50" "75" "100" "125" "200" "250" "500"))
;
(SETQ DCL_ID (LOAD_DIALOG "STANDARD"))
(SETQ FLAGOK T)
(SETQ XFIM 0)
;
(WHILE FLAGOK
(NEW_DIALOG "AT_TELA" DCL_ID)
(SET_TILE "ATIDNOME" ATIDNOME)
(SET_TILE "ATIDVERLIC" (STRCAT ATIDVER " * " ATIDDATA))
(START_LIST "LUNIDADE") (MAPCAR 'ADD_LIST LUNIDADE) (END_LIST)
(START_LIST "LESCALA") (MAPCAR 'ADD_LIST LESCALA) (END_LIST)
(IF (NOT NLU) (SETQ NLU "2") )
(IF (NOT NLE) (SETQ NLE "10") )
(SET_TILE "LUNIDADE" NLU)
(SET_TILE "LESCALA" NLE)
(ACTION_TILE "LUNIDADE" "(AT-NLU)")
(ACTION_TILE "LESCALA" "(AT-NLE)")
(ACTION_TILE "BT-PORTA" "(DONE_DIALOG 1)")
(ACTION_TILE "BT-JANELA" "(DONE_DIALOG 2)")
(ACTION_TILE "BT-AREA" "(DONE_DIALOG 3)")
(ACTION_TILE "BT-TABELA" "(DONE_DIALOG 4)")
(ACTION_TILE "BT-TEXTOS" "(DONE_DIALOG 5)")
(ACTION_TILE "BT-INDICANIVEL" "(DONE_DIALOG 6)")
(ACTION_TILE "BT-INDICATITULO" "(DONE_DIALOG 7)")
(ACTION_TILE "BT-INDICACHAMADA" "(DONE_DIALOG 8)")
(ACTION_TILE "BT-SAIR" "(DONE_DIALOG 0)")
(SETQ XFIM (START_DIALOG))
;
(SETQ UNI (NTH (ATOI NLU) LUNIDADE))
(COND
((= NLU "0") (SETQ UNIDADE 1 ))
((= NLU "1") (SETQ UNIDADE 10 ))
((= NLU "2") (SETQ UNIDADE 1000))
)
(SETQ ESCALA (ATOF (NTH (ATOI NLE) LESCALA) ) ); I WOULD NOT KNOW HOW TO EXPLAIN THIS FRAGMENT SO I KNOW IT STARTS IN THE PROGRAPH OF THIS FORM, BUT I BELIEVE THAT IT IS A COMBINATION BETWEEN UNIT AND SCALE

rolisonfelipe · ‎10-30-2020

;FINALLY IT WORKS, BUT NEEDS ADJUSTMENTS OF COLOR, AND LAYER, AND CONTROL ON THE LEADER, THAT IS, LINE ;UNDER THE TEXT AND SIZE OF THE ARROW ACCORDING TO THE TEXT SIZE.
;FOR TEXT SIZE 0.10 THE ARROW MUST BE 0.10..

;LEADER COMMANDS ok

(DEFUN C:LLL () (C:AT-LEADERX))
;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN C:AT-LEADERX ()
(SETQ FLAGOK nil)
;
(IF (NOT FLAG-XLS) (AT-LEARQXLS) )
;
(SETQ DCL_ID (LOAD_DIALOG "STANDARD"))
(SETQ FLAGOK1 T)
(SETQ XFIM1 0)
;
(WHILE FLAGOK1
(NEW_DIALOG "AT_TELA_LEADERx" DCL_ID)
(START_LIST "LTXOBS") (MAPCAR 'ADD_LIST LLTXTOBS) (END_LIST)
(IF (NOT NLO) (SETQ NLO "0"))
(SET_TILE "LTXOBS" NLO)
(ACTION_TILE "LTXOBS" "(SETQ NLO $value)")
(ACTION_TILE "BT-PONTOREFERENCIA" "(DONE_DIALOG 1)")
(ACTION_TILE "BT-SAIR" "(DONE_DIALOG 0)")
(SETQ XFIM1 (START_DIALOG))

;
(IF (= XFIM1 0) (SETQ FLAGOK1 nil))
(IF (= XFIM1 1) (AT-LEADER-INDICARPONx))
)
;
(PRINC)
)
;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN AT-LEADER-INDICARPONx ()
;

(COMMAND "_-LAYER" "_MAKE" "DETAIL" "_C" "252" "" "") ;CREATE COLOR AND LAYER FOR LEADER, BUT DO NOT CONTROL THE LINE ON THE TEXT, AND DO NOT CONTROL THE ARROW SIZE
(SETQ PNT1 (GETPOINT "\n PICK POINT: "))
(SETQ PTXT (GETPOINT "\n PICK TEXT: "))
(COMMAND "_-LAYER" "_MAKE" "NBR" "_C" "7" "" "");CREATE COLOR AND LAYER FOR TEXT
(COMMAND "_STYLE" "StandardARIAL" "ARIAL" "" "" "" "" "");CREATES SOURCE, BUT DOES NOT MANAGE SOURCE SIZE
(COMMAND "LEADER" PNT1 PTXT "" (NTH (ATOI NLO) LLTXTOBS) "");RUN THE LEADER WITHOUT CONTROLLING THE ;ARROW SIZE, WHICH IS A PROBLEM BECAUSE IN DETERMINED SCALE THE TIP DOES NOT APPEAR
(princ)
;
)

;THANKS TO ALL WHO HAVE COLLABORATED

rolisonfelipe · ‎10-30-2020

ADDING TEXT STYLE VARIABLES, TO CONTROL THE LEADER TEXT, BUT EVEN SO IT DOES NOT CHANGE

;LEADER COMMANDS ok

(DEFUN C:LLL () (C:AT-LEADERX))
;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN C:AT-LEADERX ()

(SETQ FLAGOK nil)
;
(IF (NOT FLAG-XLS) (AT-LEARQXLS) )
;
(SETQ DCL_ID (LOAD_DIALOG "STANDARD"))
(SETQ FLAGOK1 T)
(SETQ XFIM1 0)
;
(WHILE FLAGOK1
(NEW_DIALOG "AT_TELA_TXTOBS" DCL_ID)
(AT-TXTOBS-STY)
(START_LIST "LSTYLE") (MAPCAR 'ADD_LIST LLSTYLE) (END_LIST)
(START_LIST "LTXOBS") (MAPCAR 'ADD_LIST LLTXTOBS) (END_LIST)
(IF (NOT NLO) (SETQ NLO "0"))
(SET_TILE "LTXOBS" NLO)
(IF (NOT ALTTXT) (SETQ ALTTXT "0.1"))
(SET_TILE "ALTTXT" ALTTXT)
(SET_TILE "LSTYLE" (ITOA NLT))
(IF (= 0 (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETVAR "TEXTSTYLE")))))
(MODE_TILE "ALTTXT" 0)
(PROGN
(MODE_TILE "ALTTXT" 1)
(SET_TILE "ALTTXT" (RTOS (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETVAR "TEXTSTYLE")))) 2 3))
)
)
(ACTION_TILE "LTXOBS" "(SETQ NLO $value)")
(ACTION_TILE "ALTTXT" "(SETQ ALTTXT $value)")
(ACTION_TILE "LSTYLE" "(SETQ NLT $value)(DONE_DIALOG 3)")
(ACTION_TILE "BT-STYLE" "(DONE_DIALOG 2)")
(ACTION_TILE "BT-INSERETXT" "(DONE_DIALOG 1)")
(ACTION_TILE "BT-SAIR" "(DONE_DIALOG 0)")
(SETQ XFIM1 (START_DIALOG))

;
(IF (= XFIM1 0) (SETQ FLAGOK1 nil))
(IF (= XFIM1 3)
(PROGN
(SETQ NLT (ATOI NLT))
(SETVAR "TEXTSTYLE" (NTH NLT LLSTYLE))
)
)
(IF (= XFIM1 2)
(PROGN
(INITDIA)
(COMMAND "_STYLE")
)
)

(IF (= XFIM1 1)
(PROGN
(IF (= 0 (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETVAR "TEXTSTYLE"))))); SEARCH STYLE
(COMMAND "_-LAYER" "_MAKE" "NBR" "_C" "7" "" "")
)
(SETQ PNT1 (GETPOINT "\n PICK POINT/INDIQUE A REFERÊNCIA: "))
(SETQ PTXT (GETPOINT "\n PICK TEXT/INDIQUE A POSIÇÃO DO TEXTO: "))
(COMMAND "_LEADER" PNT1 PTXT "" (NTH (ATOI NLO) LLTXTOBS) "")
)
)
)
;
(PRINC)
)

;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN AT-TXTOBS-STY ()
(SETQ LLSTYLE '())
(SETQ STY nil)
(WHILE (SETQ STY (TBLNEXT "STYLE" (NOT STY)))
(IF (EQUAL 0 (LOGAND 0 (CDR (ASSOC 70 STY))))
(SETQ LLSTYLE (CONS (CDR (ASSOC 2 STY)) LLSTYLE))
)
)
(SETQ LLSTYLE (REVERSE LLSTYLE))
(ACAD_STRLSORT LLSTYLE)
(SETQ NLT 0)
(SETQ $NN 0)
(REPEAT (LENGTH LLSTYLE)
(IF (= (NTH $NN LLSTYLE) (GETVAR "TEXTSTYLE")) (SETQ NLT $NN))
(SETQ $NN (+ $NN 1))
)
)

ВeekeeCZ · ‎10-31-2020

All the setting you're fighting with is driven by your current drawing setting. How we can help if you did not post one? Post a DWG (no content but styles)

Also would be very helpful if we could actually RUN and TEST your routine. You can either rewrite the routine a bit that we would not need your DCL and all the (subs), or post them as well.

It's save to say, that missing dwg and inability to run it reliably kills our willingness to help you.

You wanna be helped? Make it easier to us!

rolisonfelipe · ‎12-03-2020

I DON'T HAVE A DWG FILE, BECAUSE ALL CONFIGURATION SHOULD BE MADE AT LISP, BUT I DISCOVERED THAT LEADER CANNOT RECEIVE A PRE-CONFIGURATION, THAT HAD TO ADD ON THE DCL [_MLEADERSTYLE], AND IN THIS CONFIGURATION STEP ADD THE PARAMETERS. LINE AND TEXT SIZE AND ARROW SIZE.

IF YOU HAVE A FRAGMENT THAT CONTROLS THE ARROW COLOR AND SEPARATE TEXT IT WOULD BE EASY TO CONTROL LISP, NOW THE ARROW SIZE IS 50% OF THE TEXT SIZE

;////////////////////////////////////////////////////////////////////////////////////////////////
;////////////////////////////////////////////////////////////////////////////////////////////////
;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN C:LLL () (C:EXECUTAR-LEADER))
;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN C:EXECUTAR-LEADER ()
(SETQ FLAGOK nil)
;
(IF (NOT FLAG-XLS) (EXECUTAR-LEARQXLS) )
;
(SETQ DCL_ID (LOAD_DIALOG "STANDARD"))
(SETQ FLAGOK1 T)
(SETQ XFIM1 0)
;
(WHILE FLAGOK1
(NEW_DIALOG "EXECUTAR_TELA_LEADER" DCL_ID)
(EXECUTAR-TXTOBS-STYY)
(START_LIST "LSTYLE") (MAPCAR 'ADD_LIST LLSTYLE) (END_LIST)
(START_LIST "LTXOBS") (MAPCAR 'ADD_LIST LLTXTOBS) (END_LIST)
(IF (NOT NLO) (SETQ NLO "0"))
(SET_TILE "LTXOBS" NLO)
(IF (NOT ALTTXT) (SETQ ALTTXT "0.1"))
(SET_TILE "ALTTXT" ALTTXT)
(SET_TILE "LSTYLE" (ITOA NLT))
(IF (= 0 (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETVAR "TEXTSTYLE")))))
(MODE_TILE "ALTTXT" 0)
(PROGN
(MODE_TILE "ALTTXT" 1)
(SET_TILE "ALTTXT" (RTOS (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETVAR "TEXTSTYLE")))) 2 3))
)
)

(ACTION_TILE "LTXOBS" "(SETQ NLO $value)")
(ACTION_TILE "ALTTXT" "(SETQ ALTTXT $value)")
(ACTION_TILE "LEANDERSTYLE" "(DONE_DIALOG 4)")
(ACTION_TILE "LSTYLE" "(SETQ NLT $value)(DONE_DIALOG 3)")
(ACTION_TILE "BT-STYLE" "(DONE_DIALOG 2)")
(ACTION_TILE "BT-INSERETXT" "(DONE_DIALOG 1)")
(ACTION_TILE "BT-SAIR" "(DONE_DIALOG 0)")
(SETQ XFIM1 (START_DIALOG))

;
(IF (= XFIM1 0) (SETQ FLAGOK1 nil))

(IF (= XFIM1 4)
(PROGN
(INITDIA)
(COMMAND "_MLEADERSTYLE")
)
)
(IF (= XFIM1 3)
(PROGN
(SETQ NLT (ATOI NLT))
(SETVAR "TEXTSTYLE" (NTH NLT LLSTYLE))
)
)
(IF (= XFIM1 2)
(PROGN
(INITDIA)
(COMMAND "_STYLE")
)
)
(IF (= XFIM1 1)
(PROGN
(IF (= 0 (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETVAR "TEXTSTYLE")))))
(COMMAND "_-LAYER" "_MAKE" "NBR NOTA DE PROJETO" "_C" "7" "" "")
)
(SETQ PNT1 (GETPOINT "\n PICK POINT/INDIQUE A REFERÊNCIA: "))
(SETQ PTXT (GETPOINT "\n PICK TEXT/INDIQUE A POSIÇÃO DO TEXTO: "))
(COMMAND "_LEADER" PNT1 PTXT "" (NTH (ATOI NLO) LLTXTOBS) "")
(TRANSFERIR_PARA_LAYER (entlast) "NBR NOTA DE PROJETO")
)
)
)

)

;////////////////////////////////////////////////////////////////////////////////////////////////ADD LAYER OBJECT
(DEFUN TRANSFERIR_PARA_LAYER (ent entlay)
(COMMAND "_-LAYER" "_MAKE" "NBR NOTA DE PROJETO" "_C" "7" "" "")
(COMMAND "._change" ent "" "p" "layer" entlay "")
)
;;;;

;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN EXECUTAR-TXTOBS-STYY ()
(SETQ LLSTYLE '())
(SETQ STY nil)
(WHILE (SETQ STY (TBLNEXT "STYLE" (NOT STY)))
(IF (EQUAL 0 (LOGAND 0 (CDR (ASSOC 70 STY))))
(SETQ LLSTYLE (CONS (CDR (ASSOC 2 STY)) LLSTYLE))
)
)
(SETQ LLSTYLE (REVERSE LLSTYLE))
(ACAD_STRLSORT LLSTYLE)
(SETQ NLT 0)
(SETQ $NN 0)
(REPEAT (LENGTH LLSTYLE)
(IF (= (NTH $NN LLSTYLE) (GETVAR "TEXTSTYLE")) (SETQ NLT $NN))
(SETQ $NN (+ $NN 1))
)
)
;;;;

Community

ADD LEADER

ADD LEADER

ADD LEADER