문자 입력하는 lisp

(DEFUN C:T  (/ OK W_TEXT)
  (GRAPHSCR)
  (SETQ OSM (GETVAR “OSMODE”))
  (SETVAR “CMDECHO” 0)

  (SETQ DCL_ID (LOAD_DIALOG “D:/LISP/TEXT”))
  (IF (NOT (NEW_DIALOG “MY_TEXT” DCL_ID))
    (EXIT))

  (SETQ OK NIL)
  (ACTION_TILE “accept” “(SETQ OK 1)(TEXT_GET-SUB)(DONE_DIALOG)”)
  (START_DIALOG)

  (IF (= OK 1)
    (PROGN
      (FUNC_TEXT)
      (SETVAR “OSMODE” OSM)))
 
  (UNLOAD_DIALOG DCL_ID))

(DEFUN TEXT_GET-SUB ()
   (SETQ W_TEXT (GET_TILE “T_TEXT”)))

(DEFUN FUNC_TEXT ()
 
  (SETQ D1 (GETPOINT “n기준점을 찍으세요:”))  ;;;여기서 마우스 커서에 문자가 가상으로 보이게 할수 있나요?? 
(SETVAR “OSMODE” 0)
  
  (COMMAND “STYLE” “유형1” “HY그래픽” “” “” “” “” “N” “N” “N”)
  (COMMAND “TEXT” “S” “유형1” “J” “MC” D1 “50” “” W_TEXT)
  (COMMAND “LAYER” “M” “마킹” “C” “2” “” “M” “0” “”)
  (COMMAND “CHANGE” D1 “” “P” “LAYER” “마킹” “”))