visualização imediata do Quadro de Diálogo

Dicas sobre ObjectDCL...

Moderador: Moderadores

Responder
Avatar do usuário
ronaldoalmeida
Bronze 2/3
Bronze 2/3
Mensagens: 200
Registrado em: Qui 07 Out 2004 12:00:00 am
Localização: Florianópolis-SC

visualização imediata do Quadro de Diálogo

Mensagem por ronaldoalmeida »

Rotina acionadora genérica para visualizar um Quadro de Diálogo
Esta rotina lisp deve ser usada para verificar a aparência de qualquer quadro de diálogo durante a sua elaboração. Carregue o arquivo QD.LSP e execute o comando QD.
Informe o nome do seu arquivo DCL e do seu quadro de diálogo.
O programa chama o editor do AutoCAD contido no arquivo ACAD.PGP possibilitando o acesso direto ao arquivo DCL que originou o quadro, permitindo uma fácil revisão.


(setq #arq_dcl "" #qd nil #tmp nil)
(defun C:QD(/ arq_dcl dh saida)
;; arquivo DCL esta' disponivel ?
(setq arq_dcl (getstring
(strcat "\nnome do arquivo DCL de quadro de diálogo <" #arq_dcl ">: ")))
(if (/= arq_dcl "") (setq #arq_dcl arq_dcl))
;;carregar o quadro de diálogo na memoria
(if (< (setq dh (load_dialog #arq_dcl)) 0)
(progn
(alert (strcat "incapaz de abrir o arquivo " (strcase #arq_dcl)))
(exit)))
;; nome do quadro de diálogo dentro do arquivo
(if (null #qd) (setq #qd "teste"));; se nao tiver denominar teste
(while (null saida)
(setq #tmp (getstring
(strcat "\nnome do quadro de diálogo <" #qd ">: ")));
(if (/= #tmp "")(setq #qd #tmp))
;; se carregou e houver quadro de diálogo
(if (new_dialog #qd dh )
(progn
(start_dialog)
(unload_dialog dh)))
;;invocar EDIT da referencia ACAD.PGP
(initget 0 "sim nao")
(if (= (getkword "\nVai editar arquivo do quadro de diálogo? <sim>: ")
"nao")
(setq saida 'T); define a condicao de saida
(command "EDIT" #arq_dcl)))
(princ))
Avatar do usuário
lotah
Concreto
Concreto
Mensagens: 49
Registrado em: Sáb 15 Mai 2004 12:00:00 am

Mensagem por lotah »

Não é a mesma coisa que usar o visualizador do Vlisp?

[]`s
Diego, nascido em General Câmara, filho de Francisco, neto de Osvaldo
Avatar do usuário
ronaldoalmeida
Bronze 2/3
Bronze 2/3
Mensagens: 200
Registrado em: Qui 07 Out 2004 12:00:00 am
Localização: Florianópolis-SC

Mensagem por ronaldoalmeida »

lotah
desconheço o visualizador do Vlisp. Como eh que eu acesso ele?
ronaldo
Avatar do usuário
lotah
Concreto
Concreto
Mensagens: 49
Registrado em: Sáb 15 Mai 2004 12:00:00 am

Mensagem por lotah »

Abre o dcl no vlisp...depois vai em
tools -> visualizar diálogo

Acho que é isso
Diego, nascido em General Câmara, filho de Francisco, neto de Osvaldo
Avatar do usuário
ronaldoalmeida
Bronze 2/3
Bronze 2/3
Mensagens: 200
Registrado em: Qui 07 Out 2004 12:00:00 am
Localização: Florianópolis-SC

desculpe a vergonha que passei

Mensagem por ronaldoalmeida »

lotah,
Voce tem razao . Eu estou ultrapassado! Parei de programar em AutoLisp quando começou o Visual Lisp.Atualmente programo em VBA.
Desculpe a vergonha que passei!
ronaldo
Avatar do usuário
lotah
Concreto
Concreto
Mensagens: 49
Registrado em: Sáb 15 Mai 2004 12:00:00 am

Mensagem por lotah »

Que isso...
Vc mandou uma rotina que ajudaria muitas pessoas. Nunca tenha vergonda de ajudar.

ps: papo de cara mais velho...heheheheh

Valeu pela ajuda.
[]'s
Diego, nascido em General Câmara, filho de Francisco, neto de Osvaldo
Avatar do usuário
hugopaulo
Master
Master
Mensagens: 1873
Registrado em: Dom 29 Fev 2004 12:00:00 am

Mensagem por hugopaulo »

A Todos

A Humildade sincera é uma lição eterna de Humanismo...

Parabéns Ronaldo Almeida...Poucos, creio, têm essa coragem q vc demonstrou...

Um Abraço..
hugopaulo
AutoLISP Não É LISP ==> VISUAL LISP não é Linguagem
Responder