이것 좀 봐 주세요
얼마전 주왕님이 만든 리습인데 쓰려다 보니 조금 불편해서요..
(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:/block/” 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
wblock만들때 객체선택후 파일이름을 키보드 입력말구 도면에 쓰여진 파일이름(텍스트) 선택하여 바로 wblock을 만들었으면 해서요.. 그리고
혹시 시간되면 wblock 만든 후에 원래 객체는 블럭으로 변하지 않게 하는 것두요 .
이 리습을 쓰고 는 싶은데 아는것이 없어서 수정 도 못하네요…
주왕님..하루님 .. 항상 좋은 가르침 고맙구 건강하세요…