캐드 분류
라인타입 리습 요청 드려봅니다.
컨텐츠 정보
- 323 조회
- 5 댓글
- 0 추천
- 0 비추천
- 목록
본문
고캐드 고수님들에게 도움을 많이 받는 사람입니다. 감사합니다.
다음과 같은 라인타입변경리습을 쓰고 있습니다.
(defun c:CHY ( / ss ename la lt lt_list lt_item dcl_id loop focus)
(setvar "cmdecho" 0)
(print ">> Linetype Change")
(setq ss T)
(while ss
(princ "nLineType을 변경할 객체 선택..")
(setq ss (ssget))
(if ss
(progn
(setq ename (entsel "n기준 객체 선택: "))
(if ename
(progn
(setq lt (cdr (assoc 6 (entget (car ename)))))
(if (not lt)
(setq la (cdr (assoc 8 (entget (car ename))))
lt (cdr (assoc 6 (tblsearch "layer" la))))
)
)
(setq lt (car (get_layer "LTYPE" "CEN" "S")))
) ; end if – ename
(if lt
(progn
(command "change" ss "" "p" "lt" lt "")
(princ (strcat "n" lt " LineType으로 변경."))
)
)
) ; end progn
) ; end if – ss
) ; end while – ss
(princ)
) ; end c:ltc ()
여기서 변경시에 바꿀 선을 클릭하고 바꿀 기준 선을 선택 않하고 엔터를 치면 현재 로드된 라인타입이 다이어로그박스 뜨게 할수 있을까요?
이 리습처럼 변경 및 진화 시키고 싶은데 어떻게 해야 할까요?
고수님들에 도움 부탁드립니다.
관련자료
댓글 5
/ 1 페이지
.gif)
.gif)
