03-15-2022
04:39 PM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
03-15-2022
04:39 PM
In simplest terms, try something like this [untested EDIT: tested now -- it works for me], assuming the desired Text height is current and the current Style does not have a fixed height:
(defun C:WHATEVER (/ int inspt)
(setq int 0)
(while (setq inspt (getpoint "\nInsertion point for next Text number: "))
(command "_.text" "_mc" "_non" inspt "" "" (itoa (setq int (1+ int))))
)
(princ)
)
It can be made far more sophisticated in various ways, but there's a start.
Kent Cooper, AIA