리습 수정 문의드립니다.
컨텐츠 정보
- 49 조회
- 4 댓글
- 0 추천
- 0 비추천
- 목록
본문
WBLOCK를 사용해 도면 분리를 진행하는 리습입니다.
여러 도면이 있는 파일과 같은 폴더로 저장이 가능하게 변경이 가능할까요?
현재는 C드라이브에 BLOCK를 만들어야 사용이 가능합니다.
|;
(defun c:WW (/ ss ins bn path os cm e)
;->*error* start
(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” os) (setvar “cmdecho” cm)
(princ))
;->wblock 쉽게 만들기..”)
(setq os (getvar “osmode”)
cm (getvar “cmdecho”))
(setvar “cmdecho” 0)
(while ; 반복시작
(setq ss (ssget))
(setvar “osmode” 32)
(setq ins (getpoint “nBase point Click :”))
(setq en (car (entsel “n파일이름 텍스트선택:”)))
(setq bn (cdr (assoc 1 (entget en))))
(prompt “n 선택하신 파일 이름은입니다.”)
(setq path (strcat “c:/block/” bn “.dwg”)) ; c:/block/폴더 작성 필요
(setvar “osmode” 0)
(setq op (list 0 0 0))
(command “move” ss “” ins op )
(command “wblock” path “” op ss “”)
;(command “insert” path ins 1 1 0) ; 원본 삭제하지 않을 때 활성
(prompt “n>계속 반복합니다…종료 하시려면 ESC를 누르세요~!”)
);while 반복 끝
(setvar “osmode” os)
(setvar “cmdecho” cm)
(princ)
);defun