Как сделать чтобы Название файла выводилось на чертеже автоматически?

[Pilot]

Код:

[Выделить все]

(getvar "dwgname")

а потом средствами Алиспа вставлять в нужное место на чертеже.

[Apelsinov]

Код:

[Выделить все]

(defun c:filename ()
  (entmake
    (list '(0 . "TEXT")
	  '(50 . 0)
	  (cons 1 (getvar "dwgname"))
	  (cons 10 (getpoint))
	  (cons 40 (getvar "textsize"))
	  (cons 7 (getvar "textstyle"))
    )
  )
)

[Startrek]

Если есть EXPRESS наити RTEXT D
$(getvar, dwgprefix)$(getvar, dwgname) $(getenv, username) $(edtime, $(getvar,date), DD/MO/YY - H:MM A/P)