치수 화살표 모양 변경 리습 부탁드립니다.

안녕하세요.

치수에 화살표 변경 리습이 필요해서요.

고캐드에서 ‘치수선및치수보조선가시성제어’  리습을 잘쓰고 있는데

이와 같은 형식으로 화살표를 변경을 했으면 합니다.

치수선택시 화살표1,  화살표2, 아님 화살표 전부를 ‘작은점’ 모양으로  변경하는 리습이 있을까요?

고수님들 잘 부탁드립니다.

지금 사용하고 있는 ‘치수선및치수보조선가시성제어 리습도 올릴께요


; 치수선 및 치수보조선 가시성 제어

(defun c:dcc ( / doc index objlist ss k )
  (prompt “n___ cadori created ___”)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq index 0 objlist nil)
  (prompt “n치수를 선택하세요 …”)
  (if (setq ss (ssget (list (cons 0 “DIMENSION”))))
    (repeat (sslength ss)
      (setq objlist (cons (vlax-ename->vla-object (ssname ss index)) objlist))
      (setq index (1+ index))
    )
  )
  (if objlist
    (progn
      (initget “1 2 3”)
      (setq k (getkword “n몇번째를 끄기할까요 … 첫번째<1>/두번째<2>/[모두<3>]: “))
      (if (= k nil) (setq k “3”))
    )
  )
  (vla-startundomark doc)
  (foreach obj objlist
    (cond
      ((= k “1”)
       (vla-put-dimline1suppress obj :vlax-true)
       (vla-put-extline1suppress obj :vlax-true)
      )
      ((= k “2”)
       (vla-put-dimline2suppress obj :vlax-true)
       (vla-put-extline2suppress obj :vlax-true)
      )
      ((= k “3”)
       (vla-put-dimline1suppress obj :vlax-true)
       (vla-put-dimline2suppress obj :vlax-true)
       (vla-put-extline1suppress obj :vlax-true)
       (vla-put-extline2suppress obj :vlax-true)
      )
    )
  )
  (vla-endundomark doc)
  (princ)
)
(vl-load-com)
(prompt “n[ DDC ]”)
(princ)