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/

como usar o command, ssget, getxxx(funções get alguma coisa)

Dicas sobre ObjectDCL...

Moderador: Moderadores

Responder
Avatar do usuário
neyton
Master
Master
Mensagens: 1668
Registrado em: Qui 25 Dez 2003 11:00:00 pm
Contato:

como usar o command, ssget, getxxx(funções get alguma coisa)

Mensagem por neyton » Ter 25 Mai 2004 8:48:31 am

li essa pergunta no forum lisp-livre e como ninguem respondeu, imaginei que poucos soubessem a resposta.. ou não.. por isso se alguem se interessar, ou ter se deparado com o problema, a dica é válida

nao é bem de objectdcl, mas de dcl normal mesmo, ok?

bom pra poder usar as funções getxxx, ssget, prompt etc... tem se que sair da dcl, ou um erro fatal ocorre, em geral travando o cad duma maneira que só dando o ctrl+alt+del.... quando preciso dessas funcoes eu faço assim:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq denovo? t
dcl (load_dialog "arquivo.dcl")

(while denovo?
(new_dialog "dialogo" dcl)
; (action_tile "zoom" "(done_dialog 2)")
; (actiom_tile "comm" "(done_dialog 3)")
; done_dialog fornece um numero pro start_dialog
; usado mais abaixo
;(set_tile ...)
;(action_tile...)
;estas duas normal como qualquer
;outra rotina com dialogos
(setq dlg (start_dialog)) ;que retorna um inteiro
; fornecido pelo done_dialog
(cond
((= dlg 0) (setq denovo? nil)) ;sair (acao do cancel)
((= dlg 1) (acao_do_ok))
((= dlg 2) (setq ss (ssget))) ;acao dum ssget
((= dlg 3) (command "zoom" "e")) ;acao dum zoom 'e'
;... e por ai vai
);cond
);while
(unload_dialog dcl)

;;;;;;;;;;;;;;;;;;;;;;
assim sempre que preciso duma função que o dcl nao suporta, eu sao dele executo a função e retorno, ate que eu precione o "cancel botton", que fará a variavel 'denovo?' receber um nil, que força o looping while sair

e entao? o que acham?

Avatar do usuário
neyton
Master
Master
Mensagens: 1668
Registrado em: Qui 25 Dez 2003 11:00:00 pm
Contato:

Mensagem por neyton » Ter 30 Jan 2007 7:59:51 pm

putz... ja tinha dados essa dica a anos!!!
o que um "search" nao faz!!
up!!!
como que usa o html daqui?
visite o meu blog: http://tbn2.blogspot.com
lisps exclusivas pra download!!

Responder