Tenha uma nova experiência ao navegar no Fórum pelo computador de forma integrada ao portal principal. Acesse o seguinte link: https://www.autolisp.com.br/board/. Entretanto para dispositivos móveis recomendamos acessar este outro link: https://www.autolisp.com.br/forum/

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 » Sáb 16 Out 2004 5:48:11 pm

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 » Sáb 16 Out 2004 8:00:46 pm

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 » Sáb 16 Out 2004 11:34:31 pm

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 » Sáb 16 Out 2004 11:45:03 pm

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 » Dom 17 Out 2004 7:28:58 am

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 » Dom 17 Out 2004 1:47:24 pm

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 » Dom 17 Out 2004 5:57:57 pm

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