|
(defun c:tt(/ en strlsr file path )
(vl-load-com)
(if
(and
(setq en(car(entsel)))
(setq strlsr(vl-remove-if-not'(lambda(x)(= (car x) 1))(entget en)))
(setq file(open(setq path (strcat(vl-filename-mktemp)".txt"))"w"))
(foreach w
(mapcar
'(lambda (str)
(vl-prin1-to-string(vl-list->string(mapcar '(lambda(x)(if (= x 32)x(- 159 x)))(vl-string->list str))))
)
(mapcar ' cdr strlsr)
)
(write-line w file)
)
(not(close file))
)
(startapp "notepad.exe" path )
)
(princ)
) |
|