11.  Լ

ڿ ȭ鿡 ÷ϰų, ȭ鿡 ϴ Լ̴.

Լ princ, prin1, print, prompt 4 , ϴ ȭ鿡 Ÿ,

óϴ Ŀ ̰ ִ.

 

**

      

   \\

   \

   \"

   ""

   \e

   Escape

   \n

   New Line, ٿ ǥ.

   \r

  Return Key

   \t

  Tab, ݸŭ ̵

   \nnn

 

 

(1) Princ

    (1)

      Princ "" ϰ, ڸ ϸ, ڽ ݺѴ.

    (2)

      (princ "Expression")

    (3)

       (Princ "Hello LISP \n Hi LSIP")

       ; Hello LISP
          Hi LSIP"Hello LISP \n Hi LSIP"

       (princ "Hi lisp")

       ;  Hi lisp"Hi lisp"

       (setq a 252000)

       ;  !a   :   252000

       (princ a)

       ;  252000252000

       (setq cha "autolisp")

       ;  !cha   :   "autolisp"

       (princ cha)

       ;  autolisp"autolisp"

       (princ cha)(princ)

       ;  autolisp

       (princ (+ a 100))(princ)

       ;  252100

     

    ** : Princ, Prin1, Print ݺ ϱ Ͽ Princ, Prin1, Print ѹ Ѵ.

    ** : AutoLISP α׷ ĥ ׻ "nil" ȭ鿡 ǥϴµ, κп ȭ

    princ ɾ θ "nil" ǥð Ÿ ʴ´. 

 

 

(2) Prin1

    (1) :

      Prin1 "" ϰ, ڸ ϸ, ڽ ݺѴ.

    (2)

      (prin1 "Expression")

    (3)

       (prin1 "Hello LISP \n Hi LISP")

       ; "Hello LISP \n Hi LISP""Hello LISP \n Hi LISP"

       (prin1 "Hi LISP")

       ; "Hi LISP""Hi LISP"

       (setq a 2000)

       ; !a   :   2000

       (prin1 a)

       ; 20002000

       (setq cha "autolisp")

       ; !cha   :   "autolisp"

       (prin1 cha)

       ; "autolisp""autolisp"

       (prin1 "autolisp")(prin1)

       ; "autolisp"

       (prin1 "autolisp")(princ)

       ; "autolisp"

       (princ "autolisp")(princ)

       ;  autolosp

       (princ (+ a 100))(princ)

       ;  2100

       

 

(3) Print

    (1)

      Print "" ϰ, ڸ ϸ, ڽ ѹ ݺϸ鼭

      ĭ д.

    (2)

      (print "Expression")

    (3)

       (print "Hello LISP \n Hi LISP")

       ; "Hello LISP \n Hi LISP"   "Hello LISP \n Hi LISP"

       (print "Hi LISP")

       ; "Hi LISP"   "Hi LISP"

       (setq a 262000)

       ; !a   :   262000

       (print a)

       ; 262000   262000

       (setq cha "autolisp")

       ; !a   :   "autolisp"

       (print cha)

       ; "autolisp"   "autolisp"

       (print "autolisp")(print)

       ; "autolisp"

       (print "autolisp")(prin1)

       ; "autolisp"

       (pinc "autolisp")(print)

       ;  autolisp

       (princ (+ a 100))(princ)

       ;  252100

     

 

(4) Prompt

    (1)  

      ڿ ϱ Լ̸, ڿ ϴ.

    (2)

      (Prompt "Expression")

    (3)

       (setq num 262000)

       ; !num   :   262000

       (prompt num)

       ; error: bad argument type
         (PROMPT A)
         *Cancel*

       (prompt 262000)

       ; error: bad argument type
         (PROMPT 262000)
         *Cancel*

       (prompt "autolisp")

       ; autolispnil

       (setq cha "autolisp")

       ; !cha   :   "autolisp"

       (prompt cha)

       ; autolispnil

       (prompt cha)(princ)

       ; autolisp

       (prompt "\n autolisp")

       ; autolispnil

     

     

(5) α׷
 

       

       (defun c:sample()

          (prompt " Loaded..")

          (prompt "\n By PNP")

          (princ "\n Copytight 2000")

          (princ)

       )

       

       

      Command: sample

       Loaded..

       By PNP

       Copytight 2000

     

     

 

Defun Լ

ۼ 2000.02.08

Է Լ

2006.04.10