폴리선 끝점을 한번에 화살표로 바꾸주는 리습 구합니다.

네 화살표 모양이나 크기는 큰 상관이 없습니다. 방향을 알아보기 위한 작업을 하는거라서요.

이런건 구글 검색   10분만 하면 나오지 않나요???

여기

아래도 참고하세요

.

물론 구글검색 열심히 해봤는데 위쪽 글 확인해서 실행 해봤는데 폴리선 끝점에 붙지않더라고요.. 아래쪽은 폴리선 끝에 화살표가 붙는게 아니라서…;;;;;

이런건 어떤지…? ArchiOffice에 있는 기능입니다.

답변 감사합니다~ 그런데 제가 찾는건 그려져있는 여러개의 폴리선을 선택하고 리습을 실행시키면 화살표가 생성되는 리습을 구하고 있어서요…;; 좋은자료 참고하겠습니다~^^

찰싹 찰싹     

폴리선 끝점에 찰싹 찰싹  잘 붙는데요, 제대로 실행해 보신게 맞는지요???

화살표 블록을 만들때,  기준점을 정확히 해 보세요…

.

아~기준점을 설정하는건가요? 폴리선 전체를 잡고 실행했더니 멀리 둥글게 화살표가 생성되던데..;; 다시 한번 해보겠습니다. 감사합니다.

제가 블록 기준점을 제대로 안잡아서 그랬네요.. 도움 감사합니다.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; 라인의 시점에 유수방향자동입력 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun c:sta(/ #a #index #b #c #d) (vl-load-com) (setq #a(ssget "x" (LIST (cons 8 "중심선"))))  ;;;레이어 변경해서 사용하셔요 (setq #index 0) (repeat (sslength #a) (setq #b(vlax-ename->vla-object(ssname #a #index))) (setq #c(vlax-curve-getstartpoint #b)) (setq #d(angle #c(vlax-curve-getpointatparam #b 1))) (vl-cmdf "layer" "m" "시점" "C" "7″ """" ) (vl-cmdf "insert" "SB914″ #c "" "" (*(/ 180 pi)#d)) ;;;화살표심볼 레이어 변경해서 사용하셔요 (setq #index(1+ #index)) );;repeat (princ) );;defun