Topic: Problem to create folder and file name

[Adesu]

My idea got from creator by JefferyPSanders
Here my code

Code: [Select]

; Create program in program
(defun c:test (/ tex file f)
  (prompt "(C)ircle,(L)ine,(R)ectangular,(E)llipse")
  (setq tex (getstring "\nSelect a program[C/L/R/E]<C>: "))
  (if
    (= tex "")
    (setq tex "c")
    ) ; if
  (cond
    ((= tex "c")(cir))
    ((= tex "l")(lin))
    ((= tex "r")(rec))
    ((= tex "e")(ell))
    ) ; cond
  (startapp "notepad" file) 
  (princ)
  ) ; defun
 

(defun cir ()
  (vl-filename-mktemp "cir" "c:\\Autolisp" ".lsp")
  (setq file "c:/Autolisp/cir.lsp")
  (setq f (open file "w"))
  (princ  "\n(defun c:cir (/ loc rad)" f)
  (princ "\n(setq loc '(0 0 0))" f)
  (princ "\n(setq rad 5)" f)
  (princ "\n(command \"_circle\" loc rad \"\")" f)
  (princ "\n(princ)" f)
  (princ "\n)" f) 
  (close f)
  ) ; defun

(defun lin ()
  (vl-filename-mktemp "lin" "c:\\Autolisp" ".lsp") 
  (setq file "c/Autolisp/lin.lsp")
  (setq f (open file "w"))
  (princ "\n(defun c:lin (/ pt1 pt2)" f)
  (princ "\n(setq pt1 '(0 0 0))" f)
  (princ "\n(setq pt2 '(10 5 0)" f)
  (princ "\n(command \"_line\" pt1 pt2 \"\")" f)
  (princ "\n(princ)" f)
  (princ "\n)" f)
  (close f)
  ) ; defun

(defun rec ()
  (vl-filename-mktemp "rec" "c:\\Autolisp" ".lsp")
  (setq file "c/Autolisp/rec.lsp")
  (setq f (open file "w"))
  (princ "\n(defun c:rec (/ pt1 pt2)" f)
  (princ "\n(setq pt1 '(0 0 0))" f)
  (princ "\n(setq pt2 '(10 5 0)" f)
  (princ "\n(command \"_rectang\" pt1 pt2 \"\")" f)
  (princ "\n(princ)" f)
  (princ "\n)" f)
  (close f)
  ) ; defun

(defun ell ()
  (vl-filename-mktemp "ell" "c:\\Autolisp" ".lsp")
  (setq file "c/Autolisp/ell.lsp")
  (setq f (open file "w"))
  (princ "\n(defun c:ell (/ pt1 pt2)" f)
  (princ "\n(setq pt1 '(0 0 0))" f)
  (princ "\n(setq pt2 '(10 5 0))" f)
  (princ "\n(command \"_ellipse\" pt1 pt2 \"\")" f)
  (princ "\n(princ)" f)
  (princ "\n)" f)
  (close f)
  ) ; defun     


[FengK]

what is your question?

[Adesu]

I can not create folder and file name at drive C, any wrong in my code?

what is your question?

[fixo]

I can not create folder and file name at drive C, any wrong in my code?

what is your question?

Use VL-MKDIR for that

~'J'~

[dustinthiesse]

......
  (prompt "(C)ircle,(L)ine,(R)ectangular,(E)llipse")
  (setq tex (getstring "\nSelect a program[C/L/R/E]<C>: "))
  (if
    (= tex "")
    (setq tex "c")
    ) ; if
  (cond
    ((= tex "c")(cir))
    ((= tex "l")(lin))
    ((= tex "r")(rec))
    ((= tex "e")(ell))
......

May I suggest using (initget) before your call to getstring?

Code: [Select]

(initget "C L R E")
(setq tex(getkword "\nSelect a program[C/L/R/E]<C>"))
(if(not tex)(setq tex "C"))

This restricts the user input to only those values that you have defined.

[Adesu]

Thanks fixo it's great information.
here new code

Code: [Select]

(vl-mkdir "c:\\Autolisp")
(setq file "c:/Autolisp/cir.lsp")


I can not create folder and file name at drive C, any wrong in my code?

what is your question?

Use VL-MKDIR for that

~'J'~

[fixo]

Glad to refresh your memory
Cheers

~'J'~