INITGET other uses

[Aditya Bagaskara]

I always see initget used with just getkword only. According to AutoCAD Help. initget can be used to various getxxx functions. How do initget used with ohter getxxx functions? And give me an example. Thanks for the help!

[elyosua]

(DEFUN test (/ nContraHuellas mens)
  (IF nContraHuellas0
    ()
    (SETQ nContraHuellas0 8)
  )
  (SETQ    mens (STRCAT "\nEnter the number of steps <"
             (ITOA nContraHuellas0)
             ">: "
         )
  )
  (INITGET (+ 2 4))            ;Prevents the program from ending if the user enters a negative or zero value.
  (IF (SETQ nContraHuellas (GETINT mens))
    ()
    (SETQ nContraHuellas nContraHuellas0)
  )
  (SETQ nContraHuellas0 nContraHuellas)
)

(DEFUN errores_test (men)
  (SETQ *error* error0)
  (IF (= men "quitar / salir abandonar")
    (PRIN1)
    (PRINC (STRCAT "\nError: " men " "))
  )
  (SETVAR "cmdecho" 1)
  (PRIN1)
)

(DEFUN c:test (/ error0)
  (SETVAR "cmdecho" 0)
  (SETQ    error0    *error*
    *error*    errores_test
  )
  (test)
  (SETQ *error* error0)
  (PROMPT "\nPrograma finalizado.")
  (SETVAR "cmdecho" 1)
  (PRIN1)
)

(PROMPT
  "\nComando TEST cargado."
)
(PRIN1)

[BIGAL]

This is my version of initget, there are examples in top of code. There is also a 2 column version.

 

Multi radio buttons.lsp