TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: Mark on December 12, 2003, 07:47:29 AM

Title: (code) vl-filename-mktemp
Post by: Mark on December 12, 2003, 07:47:29 AM

Something to think about when you want to make ->load ->run -> delete some code.

Code: [Select]

(defun mst-run_remove ( / tf tfo)
  (if (setq tf (vl-filename-mktemp nil nil ".tmp"))
    (setq tfo (open tf "w")))

 (if tfo
    (progn
      (write-line "(defun me1 (/ name age)" tfo)
      (write-line "(if (setq name (getstring T \"\\nEnter Your Name: \"))" tfo)
      (write-line "(setq age (itoa (getint \"\\nEnter Your Age: \")))" tfo)
      (write-line ")" tfo)
      (write-line
(strcat
 "(alert (strcat \"Thanks for that info \"name\"\\nI did not know you were \"age))"
 )
tfo
)
      (write-line ")" tfo)
      )
    )
  (close tfo)
  (load tf)
  (me1)
  (if (vl-file-delete tf)(princ "\nCleanup finished"))
  (princ)
  )