Buscar informações de atributos

[ed_cristian.dwg]

Boa Tarde pessoal!!!

Estou com uma dúvida que tira meu sonho... segue uma linha de código..

-Primeiro eu peço para a rotina, verificar se há no arquivo um bloco chamado "tab-roletes"
-se ele existir eu gostaria de ler o valor dos atributos deles.... ai esta o problema

(if (/= (SSGET "x" (list(cons 2 "TAB-ROLETES"))) nil)
(progn
(setq tabRol (ssGEt "x" (list (cons 2 "TAB-ROLETES"))))



não conciguo achar a variaverl seguinte "ent_CG" pq?

esta dando um erro que não sei resolver

o erro é assim "error: bad argument type: lentityp"

;Rolete de Carga
(setq ent_CG (entnext tabRol))
(setq CG (cdr (assoc 1 (entget ent_CG))))
;Rolete de impacto
(setq ent_IMP (entnext ent_CG))
(setq IMP (cdr (assoc 1 (entget ent_IMP))))
;Rolete Auto Alinhante de Carga
(setq ent_AAC (entnext ent_IMP))
(setq AAC (cdr (assoc 1 (entget ent_AAC))))
;Rolete de transição
(setq ent_TR (entnext ent_AAC))
(setq TR (cdr (assoc 1 (entget ent_TR))))
;Rolete de retorno
(setq ent_RET (entnext ent_TR))
(setq RET (cdr (assoc 1 (entget ent_RET))))
;Rolete Auto Alinhante de retorno
(setq ent_AAR (entnext ent_RET))
(setq AAR (cdr (assoc 1 (entget ent_AAR))))
);progn
);if



alguem por favor sabe oq fazer???


Obrigado Pessoal

[ed_cristian.dwg]

Pessoal,

Para auxiliar no entendimento de minha dúvida, estou mandando o bloco o qual quero fazer as alterações nos atributos.

Lembrando que não desejo tem que selecionar o bloco, e sim tendo verificado a existencia do bloco, desejo que a alteção seja automática..

Até mais .

Obs. Autocad 2008