캐드 분류
블럭만드는 리습인데 수정부탁드립니다.
컨텐츠 정보
- 458 조회
- 1 댓글
- 0 추천
- 0 비추천
-
목록
본문
이 리습도 여기 에서 얻었는데요…
블럭만들어지기는 하는데… 기준점 찍어서 만들수있게 리습 수정 가능할까요??
그럼 잘 부탁드립니다.
(defun c:BB ( / ss p1 p2)
(setvar 'cmdecho 0)
(setq ss (ssget))
(command "_copyclip" ss "" "_zoom" "_o" ss "")
(setq p1 (getvar 'viewctr))
(command "_pasteblock" "0,0″ "_zoom" "_o" (entlast) "")
(setq p2 (getvar 'viewctr))
(command "_move" (entlast) "" "_non" p2 "_non" p1 "erase" ss "" "_zoom" "_p" "_zoom" "_p")
(princ)
)
