라인이 지시선으로 만들어 지는 리습입니다 조언 부탁드립니다

안녕하세요? 몇일전에 올린 글에 질문이 잘못 되었는지 해서 다시 질문 드립니다~

이 리습은 라인을 지시선으로 만들어 주는 리습입니다 제가 여쭤보고 싶은것은 라인 끝에 선이 연장 되어

지신이 되는 리습을 만들고 싶은 마음에 글을 다시 올립니다 복사 프로젝트를 진행중이라 상세도 스케일 

변경 도면이 많아서 시간이 오래 걸려서 고수님들 조언 구합니다~ 여기저기 물어물어 수정해 보았지만 

도무지 안되서 여쭤봅니다~ 조언 부탁드립니다~ 감사합니다

(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)

)