제가 단열재 그릴때 사용하는 리습좀 수정해주실분;;

;;ERROR FUNCTION
(defun *ERROR* (msg)
  (if (/= msg “Function cancelled”)
    (princ (strcat “nError: ” msg))
  )
  (if (not osm)
    (princ)
    (setvar “osmode” osm)
  )
  (if (not cla)
    (princ)
    (setvar “clayer” cla)
  )
  (if (not ort)
    (princ)
    (setvar “orthomode” ort)
  )
  (if (not sna)
    (princ)
    (setvar “snapang” sna)
  )
  (setq ss nil)
  (princ)
)

;;DRAW PROGRAM

;;단열재 그리기 (INsulation draw)
(defun C:INH (/ cc ck sna p1 p2 ang l)
  (setvar “cmdecho” 0)
  (setq sna (getvar “snapang”))
  (if (/= ins_thk nill)
    (setq cc (strcat “nEnter Insulation Thickness<“
       (rtos ins_thk 2)
       “>(mm): “
      )
   ck (getreal cc)
    )
    (setq ins_thk 50.0
   cc   (strcat “nEnter Insulation Thickness<“
     (rtos ins_thk 2)
     “>(mm): “
    )
   ck   (getreal cc)
    )
  )
  (if (numberp ck)
    (setq ins_thk ck)
  )
  (setq p1 (getpoint
      “nPick First Point : “
    )
  )
  (setq p2 (getpoint
      p1
      “nPick Second Point : “
    )
  )
  (setq ang (angle p1 p2))
  (setq l (distance p1 p2))
  (command “insert” “*단열재” p1 ins_thk (/ (* 180 ang) pi))
  (setvar “snapang” ang)
  (command “array”
    “l”
    “”
    “r”
    “1”
    (fix (/ l (* 0.4 ins_thk)))
    (* 0.4 ins_thk)
  )
  (setvar “snapang” sna)
  (setvar “cmdecho” 1)
)




제가 단열재 그릴때 쓰는 리습인데요.
지금 쓰는건 단열표현 하나하나가 선처럼 떨어져 있거든요~
근데 이걸 캐드 파워처럼 블럭으로 만들수있는 방법은 없을까요??
블럭 이름은 단열재 이렇게 넣어서요~고수님들 부탁드려요