무명블럭 실제이름 xi:EffectiveName

함수설명

동적블럭 등 무명블럭의 실제 블럭 이름을 반환함

 

구성

(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)))
)