>(defun get_inst_dat ( )
(setq tl_dat '( ))
(setq itm 0 cnt (sslength tl_set))
(while (< itm cnt)
(setq e_na (ssname tl_set itm))
(setq e_list (entget e_na))
(setq e_ty (cdr (assoc 0 e_list)))
(if (= e_ty "TEXT")
(progn
(setq e_en (cdr (assoc -1 e_list)))
(setq hgt (cdr (assoc 40 e_list)))
(setq e_txt (cdr (assoc 1 e_list)))
(setq mc_ipt (cdr (assoc 11 e_list)))
(setq e_lst (list e_ty hgt e_txt mc_ipt e_en))
(setq tl_dat (append tl_dat (list e_lst)))
)
)
(setq itm (1+ itm))
)
)
>
>Q) 실행하고 나면 아래와 같은 에러가 나는데요.
> 뭐가 문제인지 아시는 분 좀 알려 주세요.
>_20$ (get_inst_dat)
; error: bad argument type: lselsetp nil
위 코드에서 tl_set 변수에 값이 할당되지 않았습니다.
- naver > 마스터 님의 답변임
첫댓글 감사합니다~