리습을 수정해서 사용하려고 하는데 도무지 찾아봐도 모르겠더라고요 ㅜㅜ
고수님 부탁 드려요 ㅜㅜ
리습 내용은 아래와 같습니다.
(defun c:bv (/ ds s1 ss pt1 pt2 ag dt pt3 pt4 ag1 ag2 ag3)
(setvar “cmdecho” 0)
(setvar “osmode” 37)
(setq ds (getvar “dimscale”))
;;모든 도면에 동일한 간격을 원하시면 윗줄대신 아랫줄처럼
;; (setq ds 10) 이렇게 하시고 10을 원하는 만큼 입력합니다.
(setq ss (ssget))
(setq pt1 (getpoint “n>> First Point : “))
(setq pt2 (getpoint pt1 “n>> Second Point : “))
(setq ag1 (cdr (assoc 10 (entget (ssname ss 0)))))
(setq ag2 (cdr (assoc 11 (entget (ssname ss 0)))))
(setq ag (angle ag1 ag2))
(if (= nil pt2)(setq pt2 pt1))
(setq ag3 (angle pt1 pt2))
(setq dt (distance pt1 pt2))
(IF (/= 0 dt) (setq pt3 (polar pt1 ag3 (* 6 ds)))
(setq pt3 (polar pt1 ag (* 1.5 ds))))
(IF (= 0 dt) (setq pt4 (polar pt1 (+ ag (dtr 180)) (* 1.5 ds)))
(setq pt4 (polar pt1 (+ ag3 (dtr 180)) (* 1.5 ds))))
;;모든 도면에 동일한 간격을 원하시면 윗줄의 1.5 값에 1을 입력합니다.
(setvar “osmode” 0)
(command “break” ss pt4 pt3)
(setvar “osmode” 37)
);end defun
(defun dtr (a) (* pi (/ a 180.0)))
(defun rtd (a) (* 180.0 (/ a pi)))
** 두개의 교차된 선에서 선을 선택하고 교차점을 선택하면 선택한 선이 일정한 간격으로 대칭되게 끊어지는 리습인데요.
무엇 때문인지 원하는 간격으로 끊어지지 않아요 ㅜㅜ
아참 osmode 37 때문인지 스냅이 풀려 버리더라고요 스냅이 안풀리게 하는 방법 있나요?
리습완전 초보라 무슨 말인지도 모르겠고요 해석이나 도움 부탁 드려요 ㅜㅜ