치수 보조선 끄기 리습 수정이 가능할까요?

아래 리습은  Kor_Storm님이 수정해주신 리습입니다

이 리습을 선택한 치수의 치수보조선중에서 1.첫번째만 끄기, 2.두번째만 끄기, 3.모두 끄기 세가지중
한가지를 선택해서 끄는 방식으로 수정이 가능할까요? 고수님들 수정 좀 부탁드립니다.


;치수보조선 끄기 2014.01.18 고캐드 Kor_Storm님

(defun c:명령어 ( / doc index ss objlist)
 (vl-load-com)
 (setq
  doc (vla-get-activedocument (vlax-get-acad-object))
  index 0
 )
 (prompt “n치수를 선택하세요 …”)
 (if (setq ss (ssget (list (cons 0 “DIMENSION”))))
  (progn
   (vla-startundomark doc)
   (repeat (sslength ss)
    (setq
     obj (vlax-ename->vla-object (ssname ss index))
     index (1+ index)
    )
    (vla-put-extline1suppress obj :vlax-true)
    (vla-put-extline2suppress obj :vlax-true)
   )
   (vla-endundomark doc)
   (vlax-release-object doc)
  )
  )
 (princ)
)