제가 사용하는 리습인데.
블럭(w5)을 인서트시 삽입점을 선택, 삽입방향을 선택하면
블럭(w5)이 삽입되며 삽입뱡향기준으로 회전(선택방향기준+90도)이 되어야 하는데 어렵네요
부탁 드립니다.
좋은 하루 되십시요
(defun c:W5 (/ P1 EP ANG TBL)
(setq p1 (getpoint “nPick Base Point(삽입점)?: “)) (terpri)
(setq ep (getangle p1 “nPick End Point(삽입방향)?: “)) (terpri)
(setvar “OSMODE” 0)
(setq ang (+ 90 (dtr ep)))
(COMMAND “-INSERT” “W05” P1 “” “” “” “”)
(command “_rotate” “_L” “” P1 ang)
(setvar “OSMODE” 111)
(princ)
) ; defen 닫음