캐드 리습 수정 부탁드립니다.(간단한거여요~)

캐드 리습은 이렇습니다.





;  평면상의 원에 핀의 이름을 기록하는 프로그램입니다.

(defun C:ctt()
   (setq osmm (getvar “osmode”))
   (setvar “cmdecho” 0)
   (setvar “osmode” 0)
  
   (prompt “n같은명칭의 원을 선택하시요.”)
   (setq p (ssget))
  
  (setq sbm (strcase (getstring “n기호문자를 입력하시요.<RP, GP…>:”)))
  (setq htxt (getreal “n문자의 높이를 입력하시요.:”))
  (setq dtang (getreal “n문자의 회전각도를 입력하시요.:”))
  (setq dtcol (getvar “dimclrt”))

  (setq l 0)
  (while (/= p nil)

     (if (= “CIRCLE” (cdr (assoc 0 (entget (ssname p l)))))
      (progn
        (setq cp (cdr (assoc 10 (entget (ssname p l)))))
        (command “text” “c” cp htxt dtang sbm)
        (command “change” “l”  “” “p” “la” “dim” “c” dtcol “”)
       ) ; progn
     ) ; if

   (setq l (1+ l))
 
  )  ; while
 
   (setvar “osmode” osmm)
   (setvar “cmdecho” 1)
 
) ; defun



명령어가 많이 불안정한가 봅니다.
이 명령어 실행하면 온스냅도 리셋되어있고, 실행하면 뭔가 에러가 뜨구요..;;

그리고 기울기는 0도에서 계속 쓸꺼니까 기울기 설정 안나오게 좀 바꿔주세요..

MIDDLE CENTER는 TEXT 명령어 후 MC로 바꾸니까 미들센터로 가더군요.(이건 해결햇씁니다)

DATANG가 기울기 같은데 지우니 첨부터 다시 입력하라고 뜨고..;;

리습 책 사서 배워야겠내요..

도와주세요 ㅠㅠ;;