wblock을 쉽게 해주는 리습을 받았는데요
그냥 내보내면 ucs가 그냥 아무데나 있어서요.
원점을 잡아서 내보낼려고 합니다.
아래 하단에 WBL 리습 사용전에.
UCS 이동하는 명령부터하고
내보내려하는데 안되네요.
(COMMAND “UCS” “O”)—이 명령어 중간에도 넣어보고
첨에도 넣어봤는데……포인트 입력대기하고 그냥 끝나버리네요.
어떻게 해야지 처음에 UCS를 옮기고 WBL 명령을 실행할수 있을까요?
;====================================
; 자 료 명 : 블럭만들기 (블럭으로 뭉처줌)
; 실 행 명 : WBL
;====================================
(defun c:WBL(/ ss ins bn path os cm) ; eazy wblock
;->*error* start
(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” os) (setvar “cmdecho” cm)
(princ))
;-<*error* end
(prompt “n>>wblock 쉽게 만들기..”)
(setq os (getvar “osmode”)
cm (getvar “cmdecho”))
(setvar “cmdecho” 0)
(setq ss (ssget))
(setq ins (getpoint “nBase point Click :”))
(setq bn (getstring “nBlock Name:”))
(setq path (strcat “c:/” bn “.dwg”))
(setvar “osmode” 0)
(command “wblock” path “” ins ss “”)
(command “insert” path ins 1 1 0)
(setvar “osmode” os)
(setvar “cmdecho” cm)
(princ)
);defun