[arrow]화살표리습

[힘차니]

올려주신 A1 리습을 약간 수정했습니다..
---------
죄송 리습을 다시 수정했어요 ^^
오스넵부분이 빠져서 ^^ 죄송해요 ^^;;
화살표 각도부위는 아렛부분6번째줄에서 설정하시면 됩니다


(defun c:A1 (/ sc scx adk SP ANGP ARRANG LENG EP)
(SETVAR "BLIPMODE" 0)
(Setq osm (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)

(setq sc (getvar "LTSCALE"))
(Setq ang_ 45);;각도
(if (= ad nil)
(setq ad 3)
)
(setq adk (getreal (strcat "\nArrow Length<" (rtos ad 2) ">: ")))
(if (numberp adk)
(setq ad adk)
)
(setq SP
(getpoint "\nPick Start Point: ")
)
(setq ANGP
(getpoint SP "\nPick Second Point: ")
)
(setq ARRANG (angle SP ANGP))
(setq LENG (* ad (getvar "LTSCALE")))
(if (= ad 2)
(setq scx sc)
(setq scx (* sc 1.5))
)
(Setq p1 (polar sp (- arrang (dtr ang_)) leng))
(setq p2 (polar p1 (+ arrang (- (dtr 90) (dtr ang_))) ad))
(setq p3 (polar sp arrang (/ ad (sin (dtr ang_)))))
(setq p5 (polar sp (+ arrang (dtr ang_)) leng))
(setq p4 (polar p5 (- arrang (- (dtr 90) (dtr ang_))) ad))
(setvar "cmdecho" 0)
(COMMAND "COLOR" "BYLAYER")
(command "donut" "0.0" scx "")
(command "pline"
sp
p1
p2
p3
p4
p5
sp
ANGP
)
(setvar "cmdecho" 1)
(setvar "OSMODE" osm)
(princ)
)
(defun dtr (a)
(* a (/ pi 180))
)
(defun rtd (a)
(* a (/ 180.0 pi))
)

[nogaDA]

헉...고맙습니다...확인해보니 화살표가 복선이 아니고 단선으로 돼더라구요~..^^필요없는건 아니구요..이 지시선도 사용합니다...워낙 여러가지 짬뽕으로 사용하다보니....혹시 이거 화살표가 복선으로 만들수는 없을까요?

[힘차니]

죄송 ^^;; 제가 질문을 잘못이해 했네요 ^^ 복선이라 함은 정확히 무엇을 말씀하시는지 설명점 부탁 ^^;;

[nogaDA]

헉...복선이라 함은 제가 올린글(315번글.. 바로윗글임다)에 이미지 보시면 잘 나와 있습니다. 화살표가 힘차니님께서 수정해주신 것처럼 하나의 선으로 되지않고, 두개의 선으로 되는겁니다...

[힘차니]

윗쪽 아랫쪽 따로따로 말씀하시는건지? --->> 이렇게

[nogaDA]

음...말보다는 그림으로. 그림 다시 올렸습니다...보세요~