지정된 거리값으로 BREAK 해주는 LISP 인데 어느순간 교차 점 기준 양쪽으로 BREAK 가 되어야 하는데
한쪽 만됩니다.ㅠㅠ 이리 굴려보고 저리굴려봐도 답이 없어 이렇게 글을올립니다.
고수님들 한수 부탁드립니다.
즐거운 불금 되세요!
;—————————————————
; 지정된 값만큼 Y축으로 BREAK
;—————————————————
(defun C:VV (/ PNT VLX VLY SPY SPNT BP1 BP2)
(setvar “OSMODE” 15359)
(setq PNT (getpoint “nSELECT INTERSECTION “))
(setq VLX (car PNT))
(setq VLY (cadr PNT))
(setq SPY (+ VLY 5))
(setq SPNT (list VLX SPY))
(setq BP1 (list VLX (+ VLY 75)))
(setq BP2 (list VLX (- VLY 75)))
(setvar “CMDECHO” 0)
(setvar “OSMODE” 15359)
(command “BREAK” SPNT “F” BP1 BP2)
(setvar “CMDECHO” 1)
(princ)
)
;—————————————————
; 지정된 값만큼 X축으로 BREAK
;—————————————————
(defun C:HH (/ PNT VLX VLY SPY SPNT BP1 BP2)
(setvar “OSMODE” 15359)
(setq PNT (getpoint “nSELECT INTERSECTION “))
(setq VLX (car PNT))
(setq VLY (cadr PNT))
(setq SPX (+ VLX 5))
(setq SPNT (list SPX VLY))
(setq BP1 (list (+ VLX 75) VLY))
(setq BP2 (list (- VLX 75) VLY))
(setvar “CMDECHO” 0)
(setvar “OSMODE” 15359)
(command “BREAK” SPNT “F” BP1 BP2)
(setvar “CMDECHO” 1)
(princ)
)