리습변경

(defun c:22( / #circle-size #text-size #font #arrow-size #layer-name
                p1 p2 p3 p4 #qq
            )
    (setq #circle-size 2.2
          #text-size 3
          #font “EHM”
          #arrow-size 1
          #layer-name “SYM”
    )
;;_________________________________________________________Sub Routine – 01
    (defun PTE:start( variable-list / )
        (setq *variable* (mapcar ‘getvar variable-list)
              *list* variable-list
        )
        (vla-startundomark (vla-get-ActiveDocument (vlax-get-acad-object)))
    )
;;_________________________________________________________Sub Routine – 02
    (defun PTE:end ()
        (mapcar ‘setvar *list* *variable*)
        (vla-endundomark (vla-get-ActiveDocument (vlax-get-acad-object)))
        (setq *list nil *variable* nil)
    )
;;_________________________________________________________Make Style   
    (entmake (list (cons 0 “LAYER”)
               (cons 100 “AcDbSymbolTableRecord”)
               (cons 100 “AcDbLayerTableRecord”)
               (cons 2 #layer-name)
               (cons 70 0)
               (cons 62 4)
               (cons 6 “CONTINUOUS”)))
    (vl-cmdf “-STYLE” “ST-text” #font “0” “” “0” “N” “N” “N”)
;;________________________________________________________Error Function
    (defun *error* (s)
        (PTE:end)
        (setq *ERROR* nil)
    )


위 리습은 품번기호 리습입니다.
지시선과 원형 숫자가 각각 독립된 객체인데
명령을 실행하면 블럭으로 실행되게 리습을 변경하고 싶은데 방법이 없을까요?