캐드 분류
화살표 리습 순서 변경 부탁드립니다ㅠㅠ
컨텐츠 정보
- 849 조회
- 0 추천
- 0 비추천
- 목록
본문
수고하십니다…
인터넷에서 찾은 화살표 그려주는 리습인데요…
이게 처음 선택한 부분에 화살표가 나오게 되어있더라구요…
이걸 변경해서 화살표가 마지막에 찍은 방향으로 화살표가 나오도록 할 수 있을까요?
염치불구하고 부탁드려 봅니다…
(defun c:q(/ ot os sc ltsc pt1 pt2 pt3 sc3 ag)
(prompt "…솔리드지시선 그리기")(terpri)
(setq ot (getvar "orthomode") os (getvar "osmode")
ltsc (getvar "ltscale"))
(setvar "osmode" 512) (setvar "orthomode" 1)
(prompt "nScale factor<") (prin1 ltsc) (prompt ">:")
(setq sc (getint))
(if (= sc nil) (setq sc ltsc))
(setq sc3 (* sc 3))
(setq pt1 (getpoint "nEnter first point->"))
(setvar "osmode" 0)
(setq pt2 (getpoint pt1 "Enter second point->"))
(setq ag (angle pt1 pt2))
(setq pt3 (polar pt2 ag sc3))
(command "pline" pt1 "w" "0″ sc pt3 "w" "0″ "0″ pt2 pause)
(setvar "orthomode" ot) (setvar "osmode" os)
(prin1)
)
관련자료
댓글 0
/ 1 페이지
등록된 댓글이 없습니다.
