여기서 구한 리습인데요
글자 두게(도면번호/도면명)를 지정하여 화일명으로 바꾸려고 하는데
도무지 안되네요… ㅠ..ㅠ
부디 자비의 손길을…..
(defun c:wbl(/ ss ins bn1 bn2 path os cm en1 en2) ; eazy wblock
;->*error* start
(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” os) (setvar “cmdecho” cm) (redraw en 4)
(princ))
;-<*error* end (prompt “n>>wblock 쉽게 만들기..”)
(setq os (getvar “osmode”)
cm (getvar “cmdecho”))
(setvar “cmdecho” 0)
(setq bn1 nil)
(setq bn2 nil)
(setq ss (ssget))
(while (= en1 nil) (setq en1 (car (entsel “n파일이름 텍스트선택:” ))))
(setq bn1 (cdr (assoc 1 (entget en1))))
(redraw en1 3)
(while (= ef nil) (setq ef (car (entsel “n파일이름 텍스트선택:” ))))
(setq bn2 (cdr (assoc 2 (entget en2))))
(redraw en2 3)
(setq ins (getpoint “nBase point Click :”))
(redraw en1 4)
(redraw en2 4)
(setq path (strcat “c:/block/” bn1 ” ” bn2 “.dwg”)) <----요기요 (setvar “osmode” 0) (command “wblock” path “” ins ss “”) (command “insert” path ins 1 1 0) (command “explode” (entlast)) (setvar “osmode” os) (setvar “cmdecho” cm) (princ) );defun