안녕하세요?
아래 리습에서 w블록으로 객체 및 도면을 내보내면요..
내보낸 도면을 열면 0,0,0 으로 되게 하고 싶어요..
위치가 엄한데 자꾸 가 있어서서요.. 원래 그런건지..아래 내용에서
추가 또는 수정 가능한지요? 가능 하다면 부탁 드려봅니다.^^
그리고 기준점을 꼭 찍어야 하나요?? 이거 하나라도 덜 하고 싶어서요 ㅎㅎ
p.s 그리고 객체를 내보내기 하면 원본객체가 블록으로 잡혔다가 폭파가 되어서
항상 퍼지를 해야하는 번거로움이 있네요..
(defun c:EW(/ 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 str1 “TU-300-01-X”)
(setq path (strcat “D:/DATA/”str1″”bn”.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