아래 해당리습이 있습니다….
블럭을 만들면 다 C:에 만들어지도록 되어 있는데요….
동일한 화일명이 있으면 안되어서요.
화일명이 겹칠경우 리습상에서 강제로 덮어 쓸수있는 방법이 있나요?
WBLOCK 명령으로 일부러 겹치게 해보았는데
창이 하나 뜨면서 겹처서 쓸려냐고 물어봅니다….
;====================================
; 자 료 명 : 블럭만들기 (블럭으로 뭉처줌)
; 실 행 명 : 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 “ucs” “o” ins “”)
(command “wblock” path “” ins ss “”)
(command “insert” path ins 1 1 0)
(command “ucs” “w”)
(setvar “osmode” os)
(setvar “cmdecho” cm)
(princ)
);defun