블럭 변경하여 저장하는 리습 수정좀 도와주세요 ㅠ.ㅠ
컨텐츠 정보
- 400 조회
- 4 댓글
- 0 추천
- 0 비추천
- 목록
본문
(defun C:jang (/ p p1 l n e pt1 dia E1 dia1)
(setq p (ssget))
(COMMAND "OSNA" "NONE")
(if p (progn ; If any objects selected
(setq l 0 n (sslength p))
(while (< l n) ; For each selected object…
(if (= "INSERT" ; Look for TEXT entity type (group 0)
(cdr (assoc 0 (setq e (entget (SETQ E1 (ssname p l)))))))
(progn
(setq pt1 (cdr (assoc 10 e)))
(setq dia (cdr (assoc 2 e)))
(setq dia1 (substr dia 1 2))
(if (or (= dia "M24″) (= dia1 "24″)) (progn
(command "insert" "zz24″ pt1 1 1 0)
(COMMAND "ERASE" E1 "")))
(if (or (= dia "M22″) (= dia1 "22″)) (progn
(command "insert" "zz22″ pt1 1 1 0)
(COMMAND "ERASE" E1 "")))
(if (or (= dia "M20″) (= dia1 "20″)) (progn
(command "insert" "zz20″ pt1 1 1 0)
(COMMAND "ERASE" E1 "")))
(if (or (= dia "M16″) (= dia1 "16″))(progn
(command "insert" "zz16″ pt1 1 1 0)
(COMMAND "ERASE" E1 "")))
(if (or (= dia "M12″) (= dia1 "12″)) (progn
(command "insert" "zz12″ pt1 1 1 0)
(COMMAND "ERASE" E1 "")))
(setq l (+ l 1))
)
(progn
(setq l (+ l 1)))
)
)
)
)
(setq pt1 (getpoint "객체선택 윈도우 첫번째점 클릭…n"))
(setq pt2 (getcorner pt1 "객체선택 윈도우 두번째점 클릭…n"))
(setq filename (entsel "n 파일명 문자를 선택.. (단일행 문자)..n"))
(WHILE (= filename NIL) ;선택이 nil이라면 루프를 돌려주고
(setq filename (entsel "n 파일명 문자를 선택.. (단일행 문자)..n"))
)
(setq fn (car filename))
(setq fntxt (cdr (assoc 1 (entget fn))))
(setq dwgname (strcat "" fntxt ))
(command "zoom" "w" pt1 pt2) ; 새도면 정의 = 엔터
(command "wblock" dwgname "" pt1 "cross" pt1 pt2 "" "undo" "")
(princ dwgname)
(princ)
) ;defun end
)
위에는 블럭을 변경하는 리습이고 밑에는 단품저장하는 리습을 고캐드에서 누가 올려주신거를 연결한
리습인데요;; 원본은 그냥 그대로 나뚜고 별도로 저장되는 파일에 블럭을 변경하고 싶습니다.
순서상으로 보면 원본의 블럭을 수정 후 단품저장되는 형식이잔아요? 원본은 그냥 나뚜고 저장되는 파일
의 블럭이 수정되게 수정하고 싶습니다.
어떤식으로 수정하면 될까요?