캐드 분류
자동 레이어변경,레이어생성 리습 질문
컨텐츠 정보
- 264 조회
- 1 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요.
객체들을 한번에 선택해서 arch라는 레이어를 (레이어가없다면)생성하고 색상,특성을 한번에 바꿔주는 리습이있는데.
이걸 변형시켜서 새로운걸 만들고싶습니다.
(defun c:ar(/ a1 n )
(prompt "n*** Select object to be Changed Layer***")
(setq a1 (ssget))
(setq n (sslength a1))
(if (tblsearch "layer" "arch")
(command "chprop" "p" "" "la" "arch" "")
(progn
(command "layer" "new" "arch" "color" "8″ "arch" "")
)
)
(command "chprop" "p" "" "layer" "arch" "color" "bylayer" "")
(prin1)
)
이 리습인데
이걸 이렇게 바꾸고싶습니다.
1. 객체를 선택한다.
2. 객체 선택을 마치고 입력을하면
레이어는 201210-OLD ARCH 이런식으로 날짜가 들어가고, 날짜는 작업한 당일 날짜로 설정하고싶습니다.
3. 색상은 빨강색으로
이렇게 수정하고싶은데 색상설정은했는데 오늘날짜가 나오게하는건 어떻게 수정해야 하나요 ?
관련자료
댓글 1
