insert lisp

(defun ccc_er (s)
(if (/= s “Function Cancelled”)
(if (= s “quit / exit abort”)
(princ)
(princ (strcat “nERROR :” s))
)
)
(setvar “cmdecho” ocmde)                              
(setvar “osmode” oosmo)
(graphscr)
(setq *error* olderr)
(princ)
)
;;;;;;;;;;;;;;;;;;;
(defun dtr (dtr1)
(* pi (/ dtr1 180.00))
)
;——————————————————-
(defun C:ccc (/ ocmde an1 size h a1 c r t1 pt p1 p2 p3
p4 p5 p6 p7 p21 p1t pt4 p45 p56 p23 p67 flr fll ful fur
ofl oosmo olderr entl en1 enl)                          
(setq olderr *error* *error* cch_er)
(setq ocmde (getvar “cmdecho”))
(setq oosmo (getvar “osmode”))
(setvar “cmdecho” 0)
(setvar “osmode” 0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(textpage)
(princ “n                                  [ C-CHANNEL ]                               “)
(princ “n==============================================================================”)
(princ “n 1. 60 30 10 1.6     2. 60 30 10 2.0     3. 60 30 10 2.3     4. 70 40 25 1.6  “)
(princ “n 5. 75 35 15 2.3     6. 75 45 15 1.6     7. 75 45 15 2.0     8. 75 45 15 2.3  “)
(princ “n 9. 90 45 20 1.6    10. 90 45 20 2.3    11. 90 45 20 3.2    12. 100 50 20 1.6 “)
(princ “n13. 100 50 20 2.0   14. 100 50 20 2.3   15. 100 50 20 2.8   16. 100 50 20 3.2 “)
(princ “n17. 100 50 20 4.0   18. 100 50 20 4.5   19. 120 40 20 3.2   20. 120 60 20 2.3 “)
(princ “n21. 120 60 20 3.2   22. 120 60 25 4.5   23. 125 50 20 2.3   24. 125 50 20 3.2 “)
(princ “n25. 125 50 20 4.0   26. 125 50 20 4.5   27. 150 50 20 2.3   28. 150 50 20 3.2 “)
(princ “n29. 150 50 20 4.5   30. 150 65 20 2.3   31. 150 65 20 3.2   32. 150 65 20 4.5 “)
(princ “n33. 150 75 20 3.2   34. 150 75 20 4.0   35. 150 75 20 4.5   36. 150 75 25 3.2 “)
(princ “n37. 150 75 25 4.0   38. 150 75 25 4.5   39. 200 75 20 3.2   40. 200 75 20 4.0 “)
(princ “n41. 200 75 20 4.5   42. 200 75 25 3.2   43. 200 75 25 4.0   44. 200 75 25 4.5 “)
(princ “n45. 250 75 25 4.5                            * HxA(w)xCxt,  r=2t :Unconfirmed “)
(princ “n==============================================================================”)
(initget 7)
(setq an1 (getint “nSelect No.? : ” )) 
(cond
((= an1 1) (setq size ‘( 60 30 10 1.6)))
((= an1 2) (setq size ‘( 60 30 10 2.0)))
((= an1 3) (setq size ‘( 60 30 10 2.3)))
((= an1 4) (setq size ‘( 70 40 25 1.6)))
((= an1 5) (setq size ‘( 75 35 15 2.3)))
((= an1 6) (setq size ‘( 75 45 15 1.6)))
((= an1 7) (setq size ‘( 75 45 15 2.0)))
((= an1 8) (setq size ‘( 75 45 15 2.3)))
((= an1 9) (setq size ‘( 90 45 20 1.6)))
((= an1 10) (setq size ‘( 90 45 20 2.3)))
((= an1 11) (setq size ‘( 90 45 20 3.2)))
((= an1 12) (setq size ‘( 100 50 20 1.6)))
((= an1 13) (setq size ‘( 100 50 20 2.0)))
((= an1 14) (setq size ‘( 100 50 20 2.3)))
((= an1 15) (setq size ‘( 100 50 20 2.8)))
((= an1 16) (setq size ‘( 100 50 20 3.2)))
((= an1 17) (setq size ‘( 100 50 20 4.0)))
((= an1 18) (setq size ‘( 100 50 20 4.5)))
((= an1 19) (setq size ‘( 120 40 20 3.2)))
((= an1 20) (setq size ‘( 120 60 20 2.3)))
((= an1 21) (setq size ‘( 120 60 20 3.2)))
((= an1 22) (setq size ‘( 120 60 25 4.5)))
((= an1 23) (setq size ‘( 125 50 20 2.3)))
((= an1 24) (setq size ‘( 125 50 20 3.2)))
((= an1 25) (setq size ‘( 125 50 20 4.0)))
((= an1 26) (setq size ‘( 125 50 20 4.5)))
((= an1 27) (setq size ‘( 150 50 20 2.3)))
((= an1 28) (setq size ‘( 150 50 20 3.2)))
((= an1 29) (setq size ‘( 150 50 20 4.5)))
((= an1 30) (setq size ‘( 150 65 20 2.3)))
((= an1 31) (setq size ‘( 150 65 20 3.2)))
((= an1 32) (setq size ‘( 150 65 20 4.5)))
((= an1 33) (setq size ‘( 150 75 20 3.2)))
((= an1 34) (setq size ‘( 150 75 20 4.0)))
((= an1 35) (setq size ‘( 150 75 20 4.5)))
((= an1 36) (setq size ‘( 150 75 25 3.2)))
((= an1 37) (setq size ‘( 150 75 25 4.0)))
((= an1 38) (setq size ‘( 150 75 25 4.5)))
((= an1 39) (setq size ‘( 200 75 20 3.2)))
((= an1 40) (setq size ‘( 200 75 20 4.0)))
((= an1 41) (setq size ‘( 200 75 20 4.5)))
((= an1 42) (setq size ‘( 200 75 25 3.2)))
((= an1 43) (setq size ‘( 200 75 25 4.0)))
((= an1 44) (setq size ‘( 200 75 25 4.5)))
((= an1 45) (setq size ‘( 250 75 25 4.5)))
) ;cond
;;;;;;;;;;;;;;;;;;;;;
(setq h (nth 0 size)
     a1 (nth 1 size)
      c (nth 2 size)
     t1 (nth 3 size))
(setq r (* t1 2.0))  ;;UNCONFIRMED
;;;;;point;;;;;;;;;;;
(graphscr)
(initget 1)
(setq pt (getpoint “nPick the lower left corner : ” ))
(setq p1 (polar pt (dtr 0.0) a1)
      p2 (polar p1 (dtr 90.0) c)
      p3 (polar p2 (dtr 180.0) t1)
      p4 (polar pt (dtr 90.0) h) 
      p5 (polar p4 (dtr 0.0) a1)  
      p6 (polar p5 (dtr 270.0) c)
      p7 (polar p6 (dtr 180.0) t1))
;;;;;draw;;;;;;;;;;;;      
(command “line” p2 p1 “”) (setq p21 (entlast))
(command “line” p1 pt “”) (setq p1t (entlast))
(command “line” pt p4 “”) (setq pt4 (entlast))
(command “line” p4 p5 “”) (setq p45 (entlast))
(command “line” p5 p6 “”) (setq p56 (entlast))
(command “fillet” “r” r)
(command “fillet” p21 p1t)  (setq flr (entlast))  
(command “fillet” p1t pt4)  (setq fll (entlast))   
(command “fillet” pt4 p45)  (setq ful (entlast))          
(command “fillet” P45 p56)  (setq fur (entlast))   
(command “line” p2 p3 “”)   (setq p23 (entlast))
(command “line” p6 p7 “”)   (setq p67 (entlast))
(command “pedit” p21 “” “j” flr p1t fll pt4 ful p45 fur p56 “” “”) (setq en1 (entlast))
(command “offset” t1 pt p3 “”) (setq ofl (entlast))
(command “pedit” p23 “” “j” pt p45 p67 ofl “” “”) (setq entl (entlast))
(command “rotate” en1 entl “” pt pause) 
(princ (strcat “nYou select : C” (rtos h) “x” (rtos a1) “x”
                                  (rtos c) “x” (rtos t1)))
;———————–
(setvar “cmdecho” ocmde)                              
(setvar “osmode” oosmo)
(setq *error* olderr)
(princ)                                              
)

위에는 제가 사용하는 첸넬 insert lisp 입니다.
다른건 아니구요 제가 반도체 장비설계에서 일을 하는데 피팅,벨브,튜브를
위에 lisp 처럼 불러서 사용하고 싶은데 lisp 에 아는게 없어서 도움을 요청 드립니다.