Uso de campos

[Guy F Lapouble]

Estou com uma dúvida.
No quadro de layers existe um espaço chamdo de descrição, gostaria de saber se existe uma maneira de obter esse texto escrito e atribui-lo a um campo( view >> insert field) mas pelo visto as propriedades dos objetos não tem esta variável, queria saber onde estos valores ficam armazenados e se é viável acessar estas descrições.
Cumps,
Guy

[Filipe Francisco]

Estou com uma dúvida.
No quadro de layers existe um espaço chamdo de descrição, gostaria de saber se existe uma maneira de obter esse texto escrito e atribui-lo a um campo( view >> insert field) mas pelo visto as propriedades dos objetos não tem esta variável, queria saber onde estos valores ficam armazenados e se é viável acessar estas descrições.
Cumps,
Guy

Boas,

Pergunta muito interessante, eu há tempos atrás andei tambem a procura dessa situação, mas não encontrei nada, nem com o vba consegui ir buscar essas informações das layers...


Cumprimentos

[Guy F Lapouble]

Fala Filipe, bom dia.
eu acho esse informação de muita importância pois podemos acrescentar muito mais a nossos desenhos,
olha só o que pretendo:
Se tenho um layer com o nome de de um material qualquer de acabamento... o nome dele por exemplo concreto, caso a descrição do layer todos os objetos que estão vinculados a esta propriedade mudem.... mas não saberia faze-lo sem ser um campo, poderia ser por uma lisp, mas acho que dessa maneira seria muito mais dinâmico.
Cumps,
Guy

[Guy F Lapouble]

Fala Filipe, bom dia.
Olha so o que eu recebi num site de autocad, só que esta em espanhol,(http://www.hispacad.com/foro/viewtop...=127503#127503) a resposta é interesante, mas ainda não server ao que eu pretendo. se souber de outra noticia me fale.
Cumps.
Guy

mesmo assim anexo o codigo que NÂO É DE AUTORIA MINHA
*****
;autor: elhombredelsaco
(defun c:descrip (/ capas capa vl-capa pto)
(setq capas (vla-get-Layers
(vla-get-ActiveDocument (vlax-get-acad-object))
)
i 0
)
(setq capa
(vla-get-Layer
(vlax-ename->vla-object
(car
(entsel
"Designe un objeto para obtener la descripción de la capa:"
)
)
)
)
)
(while (not
(= capa (vla-get-name (setq vl-capa (vla-item capas i))))
)
(setq i (1+ i))
)
(setq
pto (getpoint
"Indique punto de inserción del texto con la descripción: "
)
)
(entmake
(list '(0 . "TEXT")
(cons 8 (vla-get-name vl-capa))
(cons 10 pto)
(cons 40 0.2) ; tamaño del texto 0.5
(cons 1
(if (= (vla-get-Description vl-capa) "")
"LA CAPA NO POSEE DESCRIPCIÓN"
(vla-get-Description vl-capa)
)
)
'(50 . 0.0)
;(cons 7 estilo)
)
)
)

[Filipe Francisco]

Obrigado Guy

Neste momento não tenho muito tempo, mas assim que tiver um bocadinho vou testar este cógido, assim é interessante...

Cumprimentos