리습을 실행 시키거나 실행종류후 osnap이 설정 되어 있던게 풀려 버리는데 몰라서 질문 합니다

리습을 모르는지라…. 고수님들 도와주세요… 리습은 밑에 올려 놓겠습니다…


——-다중복사———————
(defun C:MC ( / ent tdist pnt1 spt1 ang1 dist)
 (princ “>> Multy Copy”)
        (setvar “orthomode” 1)
        (setq Old_osmode (getvar “osmode”))
 (setq ent T)
 (while ent (setq tdist 0)
  (prompt “nSelect object to copy: “)
  (setq Ent (SSget))
  (if ent (progn (setvar “OSMODE” 1)
  (setq Pnt1 (getpoint “base point: “))
                (setvar “osmode” Old_osmode)
  (setq spt1 (getpoint Pnt1 “ndirection “))
  (setq ang1 (angle pnt1 spt1))
  (while (and (setq dist (mc_udist 1 “” “distance” dist pnt1))(/= dist 0.0))
  (setq tdist (+ tdist dist))
  (setq spt1 (polar pnt1 ang1 tdist))
  (command “Copy” Ent “” Pnt1 spt1)))
  (princ “<*WARNING*> DO not sected.”))
 )
 (lisp_reco)
 (princ)
)

(defun mc_udist (bit kwd msg def bpt / inp)
 (if def (setq msg (strcat “n” msg “<” (rtos def) “>: “)bit (* 2 (fix (/ bit 2))))
 (setq msg (strcat “n” msg “: “)))
 (initget bit kwd)
 (setq inp (if bpt (getdist msg bpt) (getdist msg)))(if inp inp def)
)
(princ)

(defun dtr(a)(* pi(/ a 180.0)))
(defun Midpick(/ p1 p2)
        (setq p1(getpoint”First point:”))
        (setq p2(getpoint”Second point:”))
        (setvar”LASTPOINT”(polar p1(angle p1 p2)
                (/(distance p1 p2)2))))
(defun MEET(/ A B C E)
        (setq   A(entget(car(entsel”Select first line:”)))
                B(cdr(assoc 10 A))
                C(cdr(assoc 11 A)))
                (terpri)
        (setq   A(entget(car(entsel”Select first line:”)))
                D(cdr(assoc 10 A))
                E(cdr(assoc 11 A)))
        (if(not(setq A(inters B C D E nil)))
        (princ”nLines are co-linear or don’t meet in 3D. Try again.n”))
        (trans a 0 1))
(defun BETWEEN(/ A B PT)
        (setq A(getpoint”nPoint 1?”))
        (setq B(getpoint a”nPoint 2?”))
        (setq PT(list(/(+(car A)(car B))2.0)
                (/(+(cadr A)(cadr B))2.0)))
        (if(caddr A)
                (setq PT(append PT(list(/(+(caddr A)(caddr B))2.0)))))PT)
(defun UND(/ X)
        (setq sc(getvar “ltscale”))
        (if(not(setq X(cadr(entsel”UNDERNEATH Pick Object: “))))
        (progn(prompt”nNo object found.”)(princ))
        (progn
        (setq ss1(ssdel(ssname(ssget X) 0)
                (ssget”C”(polar X 3.92699(* sc 0.01))
                (polar X 0.785398(* sc 0.01)))))
        (if(=(sslength ss1) 0)
                (progn(prompt”nNothing underneath.”)(princ))
                (eval ss1)))))

리습을 아직 한번도 사용해 본 적이 없는데요.
도면 저장한 폴더에 확장자가 lsp인 파일이 갑자기 생겼습니다.
리습을 추가하거나 적용한 적이 없는데 이게 생기는 이유가 뭔지 궁금해서요.
답글 부탁드려요. 

  (setq pf “C:/Users/Administrator/Desktop/pdf/”)
;;파일명 설정
  (setq pn (1+ no))
  (setq pp (strcat pf pn))
이렇게사용 하려고 하는데 오류: 잘못된 인수 유형: stringp 1이라고 나옵니다 혹시 뭐가 잘못된지 알수 있을까요?

컴퓨터 사양 – intel(r)core(tm)i5-2400 cpu @ 3.10ghz
cad 버전 – autocad 2007
윈도우 운영체제 – 윈도우7 32비트
보조프로그램 – 사용 무



*안녕하세요.

리습 초년생인데요.책자를 보고 리습을 공부하고 있는데 이해가 안되는 부분이 있어서 이렇게 글 올립니다.

(defun c:sam4()
; 중심점과 길이 입력
(setq cp (getpoint “n중심점을 지정하시오:”)) ———————> 이분은 이해가 됩니다.
(setq id (getreal “n장축의 길이를 입력하시오:”))——————>이분은 이해가 됩니다.
(setq sd (getreal “n단축의 길이를 입력하시오:”))——————>이분은 이해가 됩니다.
; x좌표와y좌표를 추출한다.
(setq x (car cp)
y (cadr cp)
)
; p1 ~ p4 의 리스트 작성한다.
(setq x1 (- x (- (/ id 2) (/ sd 2)))———————–> 이 밑부분 부터 이해가 안되는 부분
y1 (+ y (/ sd 2))
x2 (+ x (- (/ id 2) (/ sd 2)))-
y2 (- y (/ sd 2))
)
(setq p1 (list x1 y1)
p2 (list x2 y1)
p3 (list x1 y2)
p4 (list x2 y2)
)
; 객체의 선택
(command “pline” p1 p2 “a” p4 “l” p3 “a” p1 “”)———————–>요긴 이해가 됩니다
)

* 위의 리습은 도형을 그린건데요. 어떻게 해서 이런 도형이 생기는지 위의 이해가 안되는부분 부터 설명좀 부탁드립니다.

고수님들 부탁드립니다.

* 설명이 안되는 부분부터 주석을 달아서 이해가 가기 쉽게 설명 부탁드립니다.

* 파일을 첨부하여 드리오니 캐드도면에다가 설명을 기재하여 주셔도 됩니다.

수고하십시요.

2002에서 잘 작용하던 리습 명령어가 2006에서 안되는데. 다 안되는건 아니고 어떤건 되더라구요. 리습도 호환성이 있는건가요.
명령어를 치면 그림처럼 나타나더군요.
원인이 머줘 제가 쓰는 리습같이 올립니다.