함수설명
동적블럭 등 무명블럭의 실제 블럭 이름을 반환함
구성
(xi:EffectiveName ent)
ent : Entity
반환 : 블럭의 실제 이름, 문자열
예제1)
(if
(and
(setq sel (entsel "\n 블럭 지정: "))
(setq ent (car sel))
(setq enx (entget ent))
(= (cdr (assoc 0 enx)) "INSERT")
)
(prompt (xi:EffectiveName ent))
)
예제2)
(if (setq sel (xi:entsel "\n 블럭 지정: " "INSERT" nil))
(prompt (xi:EffectiveName (car sel)))
)
'Lisp & Tips > Lisp 제작용 XiCAD 함수' 카테고리의 다른 글
| 객체 복사 xi:Copy (0) | 2023.03.01 |
|---|---|
| 숫자에 콤마 넣기 xi:Comma (0) | 2023.03.01 |
| 세 점의 회전 방향 xi:Clockwise-p (0) | 2023.02.26 |
| 객체 테두리 좌표 xi:Boundingbox (0) | 2023.02.26 |
| 숫자 앞에 0 갯수 일치 xi:AutoFixNum (0) | 2023.02.26 |