아래도면에 많은 텍스트들이 있습니다.
파란색 박스안의 텍스트를 동시에 선택하고 싶습니다.
한칸씩 복사해서 박스밖 텍스트를 지우면서 하나 하나 하고 하니 그 분량이 200개 이상의 박스들이 있네요
실력많은 분의 도움이 절실합니다.
검색중에 아래의 질문사항과 비슷하여 어찌 해보려고 하였지만 실력이 그정도가 않되어 사용할수 가 없네요
lisp파일을 받으면 사용할수는 있으니 도움을 기다리겠습니다.
아래도면의 일부를 첨부합니다. 감사합니다.
7059글과 비슷한 문의입니다.
그글에 답변에
포고고님/ xcsh님 답변에 이와 같이 리습이 달려있는데 응용할 실력이 없네요..ㅜ.ㅜ
(defun c:pss (/ ss s pL sT)
(if (setq ss (ssget ‘((0 . “LWPOLYLINE”))))
(progn
(setq s (ssadd))
(foreach en (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))
(setq pL (mapcar ‘cdr (vl-remove-if-not ‘(lambda (x) (= (car x) 10))(entget en))))
(if (setq sT (ssget “CP” pL ‘((0 . “TEXT”)))) (progn
(foreach e (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex sT)))(setq s (ssadd e s)))
)))(sssetfirst nil s)
)
)(princ)
)