캐드 전이층 작업할때 부재를 표현할때 화살표 편하게 만드려고
웹서핑을 쭉하다가 아래의 리습을 찾았는데 화살표 모양을 바꾸고 싶습니다.
제가 리습에 대해 잘 몰라서
사진이 안올라가네요… ㅠ
;// function of drawing arrow
(defun c:arr()
(graphscr)
(setvar “cmdecho” 0)
(setvar “blipmode” 1)
(setq os (getvar “osmode”))
(setq dms (* (getvar “dimscale”) 15))
(setvar “osmode” 512) ;nearest point
(setq p0 (getpoint “Pick Arrow base point : “))
(setq p1 (osnap p0 “mid”))
(setq p2 (osnap p0 “end”))
(setq p3 (osnap p0 “cen”))
(if (= p3 nil)
(progn ;// in case of “line”
(setq a9 (angle p2 p1))
)
(progn ;// in case of “arc”
(setq a0 (angle p3 p2))
(setq a1 (angle p3 p1))
;// 두 벡터의 사잇각이 180도 보다 작게
(if (> (- a0 a1) (dtr 180))
(setq a0 (- a0 (dtr 360)))
)
(if (< (- a0 a1) (dtr -180))
(setq a1 (- a1 (dtr 360)))
)
(if (> a0 a1) ;// determine the dir. of arr.
;// in counterclockwise
(setq a2 (- a0 (dtr 90)))
;// in clockwise
(setq a2 (+ a0 (dtr 90)))
)
(setq a9 a2)
)
)
;// drawing
(setq xx (+ (car p2) (* dms (cos a9))))
(setq yy (+ (cadr p2) (* dms (sin a9))))
(setq p9 (list xx yy))
(command “osmode” 0)
(command “pline” p2 “w” 0 (/ dms 2.627) p9 “w” 0 0 “”)
(setvar “osmode” os)
(Princ)
)
(Princ)
압축파일에 제가 원하는 화살표 모양이랑 리습 올렸습니다. 도와주세요 ㅠㅠ
이렇게 그려지면 되는건가요 ? ㅎㅎ
CATS_DRAR.mp4
화살표 그리기 기능 소개 링크
참고해주세요~
와…. 제가 원하던게 딱 그거에요!! 대박.. 혹시 공유해주실수있으신가요
리습으로도 구할 수 있을까요?