안녕하십니까. 고캐드에서 항상 도움 잘 받고 있습니다 감사합니다.
본론은 고캐드에서 wblcok 리습을 받았는데 작동이 되질 않습니다.
지스타캐드를 쓰고 있고
; 오류: 인수 유형 오류: stringp (<도면요소 이름: 1c79c930> (53791.4 46133.3 0))
이라고 뜨면서 실행이 안됩니다. 도움 부탁드립니다.
(defun C:wb ( / os filename dwgname pt1 pt2 dxf name1 name2 fn fntxt ktt tchk )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Made By Kim-Jun-Ho ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq os (getvar “osmode”))
(setvar “osmode” 0)
(setq pt1 (getpoint “객체선택 윈도우 첫번째점 클릭…n”))
(setq pt2 (getcorner pt1 “객체선택 윈도우 두번째점 클릭…n”))
(setvar “osmode” os)
(setq filename (entsel “n 파일명 문자를 선택.. (단일행 문자)..n”))
(WHILE (= filename NIL) ;선택이 nil이라면 루프를 돌려주고
(setq filename (entsel “n 파일명 문자를 선택.. (단일행 문자)..n”))
)
(setq dxf (entget (car filename))) ;선택된 객체 종류 확인
(setq name1 (assoc 0 dxf))
(setq name2 (cdr name1))
(IF (OR ( = NAME2 “TEXT”) ( = NAME2 “MTEXT”) )
(progn
(IF ( = NAME2 “TEXT”)
(PROGN ;;;TEXT 인 경우
(setq fn (car filename))
(setq fntxt (cdr (assoc 1 (entget fn))))
(setq dwgname (strcat “D:\WBLOCK\” fntxt ))
);; PROGN END TEXT 인 경우
(progn ;; MTEXT 인 경우
(setq fn (car filename))
(setq fntxt (cdr (assoc 1 (entget fn))))
(setq ktt 1)
(while ( < ktt (strlen fntxt) )
(setq tchk (substr fntxt ktt 1) )
(setq ktt ( + ktt 1 ) )
(if ( = tchk “;” )
(progn
(setq fntxt ( substr fntxt ktt ( – (strlen fntxt) ktt ) ) )
(setq name2 1)
);progn end
) ;if end
);while end
(setq dwgname (strcat “d:\WBLOCK\” fntxt ))
);progn end ;; MTEXT 인 경우
) ;if end
);progn end
(progn
(alert name2)
(exit)
);progn end
);IF END
(ALERT DWGNAME)
(setq dwgname (strcat “D:\WBLOCK\” filename ));;;;;;;;;;;;;; 저장하는 부분 – dwg로
(if (findfile (strcat dwgname “.dwg” ) )
(alert (strcat (strcat “파일명 중복 – ” filename ) “.dxf”) )
(progn
(command “zoom” “w” pt1 pt2)
(command “wblock” dwgname “” pt1 “cross” pt1 pt2 “” “undo” “”) ; ;;;;;;;;;;;;;;;;;;;;dwg로 저장
;(command “-wblock” (strcat dwgname “.dxf”) “” “” “0,0” “w” pt1 pt2 “” “undo” “” );;;;dxf로 저장하고 싶으면 윗줄 코드를 이걸로 대체
);progn end
);if end
);defun end