Dicionário DWG

[marangoni]

Você já pensou em guardar informações de variáveis dentro do arquivo dwg, para que quando fosse enviado para um usuário diferente não seja necessário por exemplo, preencher um formulário do arquivo ou até mesmo um calculo efetuado pelo usuário anterior.

ENTRE NO MEU BLOG E VEJA:
http://www.marangonijunior.com/openlisp

*Caso precise eu coloco a lisp para download ou aqui no fórum.

Espero que meu primeiro POST tenha ajudado alguém, sobre meu blog é o seguinte, no momento é para iniciantes, mas como visto no lisp, em breve irei colocar LISP mais AVANÇADAS para que usuário mais experientes possam freqüentar.

[Filipe Francisco]

Antes de mais Bem Vindo ao AUGI

É sempre bom receber gente nova...

Parabéns pelo Blog, de certo que será util para muita gente.


Cumprimentos

[Brogueira-CADptbr]

Filipe,

O Hednei publicou este link a meu pedido pois trocamos mensagens no Skype sobre o assunto e ele teve a simpatia de me informar que já tinha encontrado a solução.

Posteriormente informou-me de que já tinha partilhado a informação no Fórum do AUGI.

Obrigado Hednei e espero poder continuar a contar com as suas contribuições.

[emaildojoaomoreira]

Ai, ai... o que é que se passará, que não acedo ao dicionário?

[Brogueira-CADptbr]

Não acede porque o site está offline. Terá que aguardar ou então usar o cache dum motor de busca como o do google

[marangoni]

Ai, ai... o que é que se passará, que não acedo ao dicionário?

Olá o endereço do site mudou para ilha4.com apenas, me perdoem, mas vou postar aqui mesmo a rotina, analisem e deixem carregado os lisp juntos.

;;;
;;;Dicionário LISP - ilha4.com
;;;Todos direitos reservados ao autor Hednei Carlos Marangoni.
;;;DICA: È necessário que a lisp dic_dwg.lsp esteja carregada.
;;;(load “dic_dwg”)
(getdic)(defun cIC()
(setvar “cmdecho” 0)(if(/= NOME nil)(progn
(getdic)
(alert (strcat “Ola, ” NOME ” seja bem vindo ao Dicionário LISP!”))
))
(if(= NOME nil)(progn
(setq NOME (getstring “\nQual seu nome?: “))
(setq DNOME NOME)
(setq IDADE (getint “\nQuantos anos você tem?: “))
(setq DIDADE (rtos IDADE))
(atrdic)
))(setvar “cmdecho” 1)(princ)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Outro arquivo LISP.

;;; Obtendo dados da planta (dic_dwg.lsp)
;;; Dicionário LISP
;;; Todos direitos reservados ao autor Hednei Carlos Marangoni.(defun GETDIC()
(setq APLICDIC “DADPLAN”)
(if(/=(member(cons 3 APLICDIC)(entget(namedobjdict)))nil)
(setq LISDAD (entget(cdr(nth 1(member (cons 3 APLICDIC)(entget(namedobjdict)))))))
)
(if(= LISDAD nil)
(prompt “Atribuindo dados ao dicionário\n”)
(progn
(setq DNOME (cdr(nth 9 LISDAD))
DIDADE (cdr(nth 10 LISDAD))NOME DNOME
IDADE DIDADE
)
(command “REGEN”)
)
)
);;; Atribui dados da planta ao dicionário extendido do DWG(defun ATRDIC()
(VERV)
(setq LISDAD (list
(cons 0 “XRECORD”)
(cons 100 “AcDbXrecord”)
(cons 1 DNOME)
(cons 1 DIDADE)
)
APLICDIC “DADPLAN”
)(if(=(dictsearch (namedobjdict) APLICDIC) nil)
(dictadd (namedobjdict) APLICDIC (entmakex LISDAD))
(progn
(dictremove (namedobjdict) APLICDIC)
(dictadd (namedobjdict) APLICDIC (entmakex LISDAD))
)
)(setq NOME DNOME
IDADE DIDADE
)
(command “REGEN”)
)(defun VERV()(if(= NOME nil)
(setq DNOME “N/D”))
(if(= IDADE nil)
(setq DIDADE “00″))(princ)
)