LPP(레이어이름 일괄 문자추가) 반대 기능 요청 > 기능 제안 및 요청

LPP(레이어이름 일괄 문자추가) 반대 기능 요청

페이지 정보

작성자 나현 댓글 6건 조회 3,905회 작성일 23-08-14 16:00

본문

안녕하세요, 항상 정말 정말 감사히 잘 쓰고 있습니다!!

레이어 정리시 LPP를 사용하여 레이어에 일괄적으로 문자를 붙일 수 있어서 편리한데요!
반대로 "공통된 문자"를 일괄적으로 제거할 수 있는 기능이 추가되면 좋겠다고 생각이 들어 요청드립니다!

예를들어,
공통 삭제 문자에 "A-"를 입력하면,
A-CEN > CEN
A-CON > CON
.
.
.
이런식으로 공통된 접미사or 접두사를 제거해주는 기능이 있다면 무척 좋을 것 같습니다!
검토후 반영이 가능하시다면 힘써주세요!
항상 감사드립니다! (^^)(_ _)

이전글캐드 버전을 한번에 낮춰서 저장하는 명령어 23.08.23
다음글AE 명령어 단위관련 23.08.08

댓글목록

zwcad사용자님의 댓글

zwcad사용자 작성일 23-08-18 13:58

(defun c:rpslay ( / idx lay lst pre sel suf )
(setq pre (pslay:getstring "\n제거할 레이어 접두사 <없으면 엔터>: ")
suf (pslay:getstring "\n제거할 레이어 접미사 <없으면 엔터>: ")
)
(if (and (not (= "" pre suf)) (setq sel (ssget (list (cons 8 (strcat pre "*" suf))))))
(repeat (setq idx (sslength sel))
(or (member (setq lay (cdr (assoc 8 (entget (ssname sel (setq idx (1- idx))))))) lst)
(setq lst (cons (pslay:renamelayer lay (substr lay (1+ (strlen pre)) (- (strlen lay) (strlen pre) (strlen suf)))) lst))
)
)
)
(princ)
)
(defun pslay:renamelayer ( old new / lay )
(cond
( (tblsearch "layer" new)
(prompt (strcat "\n" new " already exists, cannot rename " old "."))
)
( (wcmatch (strcase old t) "0,defpoints,*|*")
(prompt (strcat "\nCannot rename " old "."))
)
( (and (setq lay (tblobjname "layer" old))
(setq lay (entget lay))
(entmod (subst (cons 2 new) (assoc 2 lay) lay))
)
(prompt (strcat "\n [" old "] 레이어가 [" new "]로 변경되었습니다"))
new
)
)
)
(defun pslay:getstring ( msg / rtn )
(while (and (/= "" (setq rtn (getstring t msg))) (wcmatch rtn "*[\\<>/?\":;*|`,=`]*"))
(princ (strcat "\nLayer name cannot contain the characters \\<>/?\":;*|,=`"))
)
rtn
)

XICAD의 LST (모든 켜 목록 작성) 과 함께 사용하면 편리합니다

삭제

(defun c:rpslay ( / idx lay lst pre sel suf )
    (setq pre (pslay:getstring "\n제거할 레이어 접두사 <없으면 엔터>: ")
          suf (pslay:getstring "\n제거할 레이어 접미사 <없으면 엔터>: ")
    )
    (if (and (not (= "" pre suf)) (setq sel (ssget (list (cons 8 (strcat pre "*" suf))))))
        (repeat (setq idx (sslength sel))
            (or (member (setq lay (cdr (assoc 8 (entget (ssname sel (setq idx (1- idx))))))) lst)
                (setq lst (cons (pslay:renamelayer lay (substr lay (1+ (strlen pre)) (- (strlen lay) (strlen pre) (strlen suf)))) lst))
            )
        )
    )
    (princ)
)
(defun pslay:renamelayer ( old new / lay )
    (cond
        (   (tblsearch "layer" new)
            (prompt (strcat "\n" new " already exists, cannot rename " old "."))
        )
        (   (wcmatch (strcase old t) "0,defpoints,*|*")
            (prompt (strcat "\nCannot rename " old "."))
        )
        (   (and (setq lay (tblobjname "layer" old))
                 (setq lay (entget lay))
                 (entmod (subst (cons 2 new) (assoc 2 lay) lay))
            )
            (prompt (strcat "\n [" old "] 레이어가 [" new "]로 변경되었습니다"))
            new
        )
    )
)
(defun pslay:getstring ( msg / rtn )
    (while (and (/= "" (setq rtn (getstring t msg))) (wcmatch rtn "*[\\<>/?\":;*|`,=`]*"))
        (princ (strcat "\nLayer name cannot contain the characters \\<>/?\":;*|,=`"))
    )
    rtn
)

XICAD의 LST (모든 켜 목록 작성) 과 함께 사용하면 편리합니다

이자더님의 댓글

이자더 작성일 23-08-18 15:15

감사합니다.
구문을 쓰는 방식이 저와 거의 유사하세요^^

나현님의 댓글

나현 작성일 23-08-23 15:13

이게 뭔지몰라서 한참 고민하다 onekey 에 붙여서 넣었더니 세상에 새로운 단축키가 구동이 되네요.. 정말 신기하고 감사합니다.

삭제

이자더님의 댓글

이자더 작성일 23-10-23 00:57

v4.65 반영

나현님의 댓글

나현 작성일 23-10-23 14:58

헉 4.65는 언제 나오나요!? 아직 4.64가 가장 최신 버전인게 맞지요?

삭제

이자더님의 댓글

이자더 작성일 23-10-23 15:09

네. 4.65 는 다음 버전입니다.