폴리선 끝점을 한번에 화살표로 바꾸주는 리습 구합니다.
컨텐츠 정보
- 412 조회
- 10 댓글
- 0 추천
- 0 비추천
-
목록
본문
gis에서 캐드로 내보낸 선의 방향을 알 수 있도록 화살표를 붙여주는 리습이
있다고 하던데 관망도 같은 파일을 불러들여 리습을 실행시키면 폴리선의 끝점에 화살표가 생성되어
흐름방향을 볼수 있는 리습이 필요합니다.
폴리선 여러개를 잡고 끝점에 화살표를 붙여주는 리습 구합니다.ㅜㅜ
관련자료
♡GISKOREA♡님의 댓글
- ♡GISKOREA♡ 이름으로 검색
- 작성일
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; 라인의 시점에 유수방향자동입력 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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