함수설명
entsel 과 결과가 동일하나 객체의 종류를 미리 지정할 수 있음.
정의된 객체의 종류가 아닌 것을 선택했을 경우, "재지정"의 메세지가 나오면서 명령이 순환됨
객체의 종류 문자열은 와일드카드가 허용되며, 두가지 이상의 객체도 입력 가능
예) "DIMESION,*TEXT"
구성
(xi:entsel string enttype nil)
stiring : 명령 구문, 문자열
enttype : 선택할 객체 종류, 문자열
nil : xicad 내부에서 사용하는 변수, 입력하지 않음
반환 : (ename point)
예제)
(if (setq sel (xi:entsel "\n>> 객체 선택: " "*TEXT" nil))
(progn
(setq ent (car sel))
(setq enx (entget ent))
(setq str (cdr (assoc 1 enx)))
(prompt (strcat "문자내용: " str))
)
)
'Lisp & Tips > Lisp 제작용 XiCAD 함수' 카테고리의 다른 글
객체 삭제하기 xi:Erase (0) | 2023.03.05 |
---|---|
동일 선상의 점 판단 xi:Colinear-p (0) | 2023.03.01 |
문자입력 대화상자2 xi:EditBox2 (0) | 2023.03.01 |
문자입력 대화상자 1 xi:EditBox1 (0) | 2023.03.01 |
객체 복사 xi:Copy (0) | 2023.03.01 |