예전 캐드파워에 들어있던 리습입니다.

지금도 작동은 합니다.

도면내용중 내가 필요한 요소를 선택하줄수 일습니다.

사용법은 2가지인데 1번은

가령 col레이어만 선택하고 싶으면

명령어로 sel 하면

 Block/Color/Entity/LAyer/LType/Style  :  엔터

요런식으로 다음명령이 뜹니다. 그럼 1개정도만 대표로 선택을하죠

그런후 all또는 일부선택을 할수 있죠

그후에 copy move등의 명령어를 입력후 선택창이뜨면 "P"

하면 sel로 선택한 요소들이 선택되어 작업속도에 많은 도움이 됩니다.

지금 안되는기능은.. 2번째방법으로

copy 나 move 명령어를 치고서 선택창에 'sel(꼭'이거 입력해야되요)이라 입력하면

sel명령어가 작동을 하고 아까와 같은 방법으로 선택을 할수 있어야 하는데

중간에 Invalid group name.란 에러가 나면서 "P"라고 처야지 선택이 됩니다. 원래는 그냥 선택이 끝나야 되는데요..

												

첨부의 리습 수정좀 부탁드립니다…
출처는 XOUTSIDE.COM에 있는 자료 입니다…
이 자료의 실행은…
(text_align (car (entsel)) “BC”) 형식으로 샐행하는데….
이걸 제가 사용하고자 하는 환경에 맞게 수정하고자 합니다…
해서 첨부 리습과 같이 수정을 했는데…
실행결과

; 오류: 잘못된 인수 유형: consp <도면요소 이름: 7e7a6ee8>

이라고 나오는군요….

(defun c:tJU (/ l1 S1 e n i)
; (setq l1 (getstring “Wn 정열위치 입력”))
(prompt “nBC로 정렬할 문자를 선택하십시오. : “)
(setq e (ssget ‘((-4 . ““)))
n (sslength e)
i 0)
(repeat n
(setq s1 (ssname e i))
(text_align (car S1) “BC”)
(setq i (1+ i))
)
)
여기 까지 제가 추가한 부분입니다….
이 파일에 문제가 있으면 자삭하겠습니다….