치수선 화살표 TYPE 변경 LISP

[뚜리]

dimarrow1.lsp

1.38KB

​; 

(defun c:dimarrow1 ( / doc index objlist ss k )
  (prompt "\화살표 열린 변경")
  (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")
       (vlax-put obj 'Arrowhead1Type 6)  
      )
      ((= k "2")
       (vlax-put obj 'Arrowhead2Type 6)
      )

      ((= k "3")
       (vlax-put obj 'Arrowhead1Type 6)
       (vlax-put obj 'Arrowhead2Type 6)
      )
     )
  )
  (vla-endundomark doc)
  (prompt "\n[ 변경 완료 ]")
  (princ)
)
(vl-load-com)
(princ)

​;위 내용중 Arrowhead1Type X     

;X를 다음과 같은 숫자로 변경하면 다른 TYPE 적용이 됩니다.
;6-열린(기본),11-dot,5-사선,10-큰열린,12-원,9-더큰열린,8-쌍원

;간단하게 열린,점,사선 ICON도 만들어 봤습니다.
;
;필요할 경우 도구막대 적용시 사용하세요.
;[출처] autolisp-치수선 화살표 TYPE 변경 LISP|작성자 kajakjs

:도서구입 : AutoLISP기초부터 고급까지 교재구입 클릭!!!

AutoCAD 사용자를 위한 AutoLISP Programming(오토리습 프로그래밍)

※본 게시물은 해당사이트로부터 소정의 수수료를 지급 받고 있습니다.