(defun c:LSB ( / )
(alert (strcat "This drawing was last saved by: "
(strcase (vla-get-lastsavedby (vla-get-SummaryInfo (vla-get-Database
(vla-get-ActiveDocument (vlax-get-Acad-Object))))))))
(princ)
)
(c:lsb)

Advertisements