지시선 리습인데요 라인 변환이 되는데 폴리 라인도 변환이 되는게 알고싶습니다~

안녕하세요? 얼마전 글자 정렬 리습수정으로 인해 엄청난 효율을 자랑 하고있습니다 너무 감사하게

잘 사용하고 있습니다. 이 리습은 라인을 지시선으로 만들어주는 리습입니다 폴리라인도 가능하게 하고 

싶은데 조언 구합니다~또 리습으로 선을  지시선으로 만들고 가로로 더 뺄수 있게 할수 있는지도 궁금합

니다~고수님들의 도움을 받고 싶습니다 조언 부탁드리겠습니다 감사합니다

(defun C:ST1()

     (setvar “cmdecho” 1)                                           ;명령어창에 입력되는걸 방지
     (setq #n 0                                                     ;반복문을 위한 n변수선언
           #ss (ssget ‘((-4 . “<or”)(0 . “line”)(-4 . “or>”)))      ;LINE만 선택
           #en (sslength #ss)                                       ;선택된 Line 갯수
           #os (getvar “osmode”)                                    ;지금컴의 오스냅값을 가져옴
           #aw (getvar “dimldrblk”)                                 ;지금컴의leader 화살표모양변수값을 가져옴
     )
     (setvar “dimldrblk” “_dotsmall”)                               ;leader화살표를 작은점으로 바꾸라 
     (while (< #n #en)                                              ;#en > #n 경우 반복
            (setq #ename (ssname #ss #n)                            ;선택세트중(#ss) #n번째의 객체 이름을 #ename에 저장
                  #elist (entget #ename)                            ;#ename의 dxf list를 #elist에 저장
                  #dxf1 (cdr (assoc 10 #elist) )                    ;10번 dxf code를 #dxf1에 입력(Line의 10번은 시작점)
                  #dxf2 (cdr (assoc 11 #elist) )                    ;               ”       (Line의 11번은 끝점)
                  #n (+ #n 1)                                       ;반복문을 위한 +1
            )
     (command “erase” #ename “”)                                    ;Line을 지우고
     (setvar “osmode” 0)                                            ;오스냅을 끄고
                            
     (command “leader” #dxf1 #dxf2 “” “” “n”)                       ;지시선을 생성하라
     (setvar “osmode” #os)                                          ;다시 오스냅 원위치
     )

 (setvar “dimldrblk” #aw)                                       ;리더화살표를 처음설정으로 돌림
 (princ “*** 잠오죠? ***”)                                          ;
 (princ)

)