Anuncios

The Autodesk Community Forums has a new look. Read more about what's changed on the Community Announcements board.

Kent1Cooper
en respuesta a: pmasonx

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