filter 리습에 관한 질문 입니다….

(defun c:ce()
(prompt”n 기준이 되는 객체를 선택하세요. 빨랑! “);화면에 메세지 표시
(setq pj1 (ssget ‘((-4 . ““)))
pj2 (ssname pj1 0) ;객체들중 0번째의 객체이름을 pj2로 설정함
dfx (entget pj2)
ent (cdr(assoc 0 dfx))
er1 nil

co1 (cdr(assoc 62 dfx))
li1 (cdr(assoc 6 dfx))

)

(if (= ent “TEXT”)
(setq tf 1)
)
(if (= ent “MTEXT”)
(setq tf 1)
)
(if (= ent “LINE”)
(setq tf 0)
)
(if (= ent “ARC”)
(setq tf 0)
)
(if (= ent “CIRCLE”)
(setq tf 0)
)

(if (= tf 1)
(progn
(prompt”n 지우고 싶은 문자들을 선택하세요. 빨랑! “)
(setq er1 (ssget ‘((-4 . ““))))
(command “erase” er1 “”)
);progn
(progn
(prompt”n 지우고 싶은 선들을 선택하세요. 빨랑! “)

(setq er1 (ssget ‘((-4 . ““)))

n1 (sslength er1) ; 선택 객체 갯수
i (1- n1)

)

(repeat n1
(setq
ent2 (ssname er1 i)
dfx2 (entget ent2)
co2 (cdr(assoc 62 dfx2))
li2 (cdr(assoc 6 dfx2))
i (1- i)
)
(if (and (= co1 co2) (= li1 li2))
(command “erase” ent2 “”)
(setq ent2 nil)
);if
);repeat
);progn
);if

(prompt”n 추카추카추카추카추카추카추카추카 “);화면에 메세지 표시
(princ)
)