[Anônimo]

Muito obrigado Luciana e Eduardo pela atenção!
Vocês realmente me ajudaram bastante, inclusive quero mais informações sobre o curso poderiam enviar por email?
Tenho interesse em me aprofundar mais no conhecimento.

*Obs: Obrigado também pela atenção Junior Nogueira! Caso tenha uma opinião diferente de como fazer essa operação compartilha também com a gente 😉

• Esta resposta foi modificada 6 anos, 4 meses atrás por .

[cadklein]

Oi Junior!

Que bom ter sua ajuda aqui!!!

Muito obrigada e muito bem vindo!!!

Abração!

🙂

Luciana Klein

[cadklein]

Oi Hugo,

Pedi ajuda ao Mestre Eduardo Fernal e ele me enviou a resposta via email.

Para não perder tempo o Eduardo fez uma rotina nova, mas seguindo a imagem do quadro de diálogo.
Você pode usar como modelo:

Você terá que trocar os paths F:\Clientes\Luciana\ por paths corretos, nos quais você instalar os arquivos.

Terá também que providenciar os slides.

No tópico “TEXTOS” terá que fazer um ‘escape’, se não houver slides a apresentar…
Ou gerar slides com os nomes, porem todo preto, sem nada.

Faça download do *.zip abaixo com os arquivos DCL e LSP:

C_Efernal_DCL_LSP

Caso tenha problemas com o download, copie e cole os textos abaixo e salve como solicitado:

Salvar como *.dcl:

efernal:dialog{label=”Curso E.Fernal de AutoLISP”;initial_focus=”msg”;
:spacer{height=1;}
:text{label=”Selecione o tópico e depois o item”;key=”msg”;alignment=centered;height=2;}
:row{alignment=centered;fixed_width=true;
:spacer{width=1;}
:column{alignment=top;fixed_width=true;fixed_height=true;
:text{label=”Selecione tópico”;}
:radio_column{alignment=top;fixed_height=true;
:radio_button{label=”Lonaria”;key=”rb1″;}
:radio_button{label=”Climatização”;key=”rb2″;}
:radio_button{label=”Vestiário”;key=”rb3″;}
:radio_button{label=”Refeitório”;key=”rb4″;}
:radio_button{label=”Móveis Gerais”;key=”rb5″;}
:radio_button{label=”Textos”;key=”rb6″;}
:radio_button{label=”Símbolos”;key=”rb7″;}}}
:spacer{width=2;}
:column{alignment=top;fixed_width=true;fixed_height=true;
:text{label=”Selecione o item”;}
:list_box{key=”item”;width=40;height=16;alignment=top;fixed_width=true;fixed_height=true;}}
:spacer{width=1;}
:column{alignment=top;fixed_width=true;fixed_height=true;
:text{label=”Preview”;}
:image_button{key=”img”;width=30;aspect_ratio=1.02;color=0;alignment=top;fixed_width=true;fixed_height=true;}}
:spacer{width=1;}}
:spacer{height=1;}
:row{alignment=centered;fixed_width=true;
:button{label=”Como usar”;key=”help”;width=15;fixed_width=true;}
:button{label=”Cancelar”;key=”cancel”;is_cancel=true;width=15;fixed_width=true;}
:button{label=”Inserir”;key=”accept”;width=15;fixed_width=true;}}}

Salvar como *.lsp:

;; Rotina escrita por Eduardo Fernal, https://www.gr-acad.com.br, para Cadklein
;; 26/09/2018
;|
/* abaixo o texto do arquivo dcl utilizado por esta rotina */
efernal:dialog{label=”Curso E.Fernal de AutoLISP”;initial_focus=”msg”;
:spacer{height=1;}
:text{label=”Selecione o tópico e depois o item”;key=”msg”;alignment=centered;height=2;}
:row{alignment=centered;fixed_width=true;
:spacer{width=1;}
:column{alignment=top;fixed_width=true;fixed_height=true;
:text{label=”Selecione tópico”;}
:radio_column{alignment=top;fixed_height=true;
:radio_button{label=”Lonaria”;key=”rb1″;}
:radio_button{label=”Climatização”;key=”rb2″;}
:radio_button{label=”Vestiário”;key=”rb3″;}
:radio_button{label=”Refeitório”;key=”rb4″;}
:radio_button{label=”Móveis Gerais”;key=”rb5″;}
:radio_button{label=”Textos”;key=”rb6″;}
:radio_button{label=”Símbolos”;key=”rb7″;}}}
:spacer{width=2;}
:column{alignment=top;fixed_width=true;fixed_height=true;
:text{label=”Selecione o item”;}
:list_box{key=”item”;width=40;height=16;alignment=top;fixed_width=true;fixed_height=true;}}
:spacer{width=1;}
:column{alignment=top;fixed_width=true;fixed_height=true;
:text{label=”Preview”;}
:image_button{key=”img”;width=30;aspect_ratio=1.02;color=0;alignment=top;fixed_width=true;fixed_height=true;}}
:spacer{width=1;}}
:spacer{height=1;}
:row{alignment=centered;fixed_width=true;
:button{label=”Como usar”;key=”help”;width=15;fixed_width=true;}
:button{label=”Cancelar”;key=”cancel”;is_cancel=true;width=15;fixed_width=true;}
:button{label=”Inserir”;key=”accept”;width=15;fixed_width=true;}}}
|;
(DEFUN c:efernal (/ dcl_id dx dy erro f_imagem f_rbs hlp item lista0 lista1 lista2
lista3 lista4 lista5 lista6 lista7 reason topico)
(SETVAR “CMDECHO” 0)
(SETQ dcl_id (LOAD_DIALOG “F:\\Clientes\\Luciana\\C_Efernal.dcl”))
(IF (> dcl_id 0)
(IF (NEW_DIALOG “efernal” dcl_id)
(PROGN (SETQ erro “Atenção:\n\nVocê não selecionou um item na lista…”
hlp “Como usar:\n\nPrograme como usar seu help neste evento…”
lista1 ‘(“Lona 1” “Lona 2” “Lona 3” “Lona 4” “Lona 5”)
lista2 ‘(“Ar condicianado 1” “Ar condicianado 2” “Ar condicianado 3”
“Ar condicianado 4” “Ar condicianado 5”
“Ar condicianado 6”)
lista3 ‘(“Vestiário 1” “Vestiário 2” “Vestiário 3” “Vestiário 4”
“Vestiário 5”)
lista4 ‘(“Ref. 1” “Ref. 2” “Ref. 3” “Ref. 4” “Ref. 5”)
lista5 ‘(“Móvel 1” “Móvel 2” “Móvel 3” “Móvel 4” “Móvel 5”)
lista6 ‘(“Aprenda a programar em AutoLISP”
“com o Curso E.Fernal de AutoLISP”
“À venda no site da Luciana ou”
“no do autor, que é”
“https://www.gr-acad.com.br”
“Faça uma visita e conheça”
“alguns aplicativos úteis para”
“a sua disciplina.”
“Ou contrate alguma rotina personalizada,”
“pelo email efernal@gmail.com ou ainda”
“através da Luciana…”
)
lista7 ‘(“Símbolo 01” “Símbolo 02” “Símbolo 03” “Símbolo 04”
“Símbolo 05” “Símbolo 06” “Símbolo 07” “Símbolo 08”
“Símbolo 09” “Símbolo 10”)
dx (DIMX_TILE “img”)
dy (DIMY_TILE “img”)
)
(DEFUN f_rbs (k)
(COND ((= k “rb1”)
(SETQ lista0 lista1
topico “LONARIA”
)
)
((= k “rb2”)
(SETQ lista0 lista2
topico “CLIMATIZAÇÃO”
)
)
((= k “rb3”)
(SETQ lista0 lista3
topico “VESTIÁRIO”
)
)
((= k “rb4”)
(SETQ lista0 lista4
topico “REFEITÓRIO”
)
)
((= k “rb5”)
(SETQ lista0 lista5
topico “MÓVEIS”
)
)
((= k “rb6”)
(SETQ lista0 lista6
topico “TEXTOS”
)
)
((= k “rb7”)
(SETQ lista0 lista7
topico “SÍMBOLOS”
)
)
)
(START_LIST “item” 3)
(MAPCAR ‘ADD_LIST lista0)
(END_LIST)
(START_IMAGE “img”)
(FILL_IMAGE 0 0 dx dy 0)
(END_IMAGE)
(SET_TILE “msg” “Selecione um item na lista, por favor…”)
)
(DEFUN f_imagem (/ slide)
(IF (SETQ slide
(FINDFILE
(STRCAT “F:\\Clientes\\Luciana\\Sld\\” item “.sld”)))
(PROGN
(START_IMAGE “img”) (FILL_IMAGE 0 0 dx dy 0)
(SLIDE_IMAGE 0 0 dx dy slide) (END_IMAGE)
)
(ALERT
(STRCAT “Atenção:\n\nF:\\Clientes\\Luciana\\Sld\\”
item
“.sld\n” “não foi encontrado…”))
)
)
(FOREACH x ‘(“rb1” “rb2” “rb3” “rb4” “rb5” “rb6” “rb7”)
(ACTION_TILE x “(F_Rbs $key)”))
(ACTION_TILE “item” “(SETQ item (NTH (ATOI $value) lista0))(f_imagem)”)
(ACTION_TILE “help” “(ALERT hlp)”)
(ACTION_TILE “cancel” “(DONE_DIALOG 0)”)
(ACTION_TILE “accept” “(IF item (DONE_DIALOG 1)(ALERT erro))”)
(SETQ reason (START_DIALOG))
(UNLOAD_DIALOG dcl_id)
(COND ((= reason 0) (PRINC “\n-> Cancelado…”))
((= reason 1)
(ALERT
(STRCAT “Executar o desejado aqui, com ” topico ” e ” item)))
)
)
)
(ALERT “Atenção:\n\nNão foi possível carregar o arquivo dcl.”)
)
(PRINC)
)

;; fim deste arquivo

 

Gif animado da rotina:

EFernal-GIF (download do gif acima)

[]s

Luciana Klein/Eduardo Fernal

[cadklein]

Oi Davi!

Muito obrigada por compartilhar sua playlist!

E é claro! Fique a vontade para usar nosso fórum para tirar dúvidas do curso!

Seja muito bem vindo!!!

Abração!

🙂

[Anônimo]

hugoik, Tudo bem?
Isso me parece bem simples, poderia anexar os códigos .dcl ?

[Anônimo]

Ailson Cavalcante, Tudo bem ?
Mesmo com LISP essa não é uma tarefa tão simples de se resolver,
da maneira que você está querendo fazer
>>1 Um ponto fixo;
2- Comprimentos fixos;
3- Outro ponto variando de posição.<<
Você amarra as opções de manipulação do seu AutoCAD.
O que eu sugiro para você é, um programa que te solicite o comprimento total da Polilinha e quado esse valor for excedido ela te emita um alerta, e não desenhe mais.
Se resolver isso resolver seu problema, da um toc aqui que farei para você.

[cadklein]

Olá Davi!

Sua solicitação foi atendida.
Criei o novo fórum para AECOsim, aproveitei para criar também os fóruns para MicroStation e BricsCAD:

Bentley AECOsim

Bentley MicroStation

Bricsys BricsCAD

Muito obrigada!

Atenciosamente,

Luciana Klein

[Anônimo]

Boa noite luciana,
Segue um link para visualizar o meu problema.
Neste desenho, se observa a seguinte situação:
1 Um ponto fixo;
2- Comprimentos fixos;
3- Outro ponto variando de posição.

Acredito que se pudermos fixar o comprimento total que é 7,00 metros, fixarmos um ponto e variar o outro, poderíamos manipular a geometria desta polyline entre os pontos extremos sem se preocupar em alterar seu comprimento total.
Link: Estudo de Mangote

Obrigado.

[Anônimo]

Boa tarde Luciana,
Segue exemplo de aplicação.
Imaginando travar o comprimento determinado de uma polyline, fixando um ponto e variando o outro, acredito que poderíamos manipular a sua geometria mais facilmente.E se o ângulo do ponto móvel fosse variando também?

Link: Estudo de Mangote

Obrigado.

[Anônimo]

Olá a todos!! o/

Comecei a fazer meu primeiro algoritmo mas não consegui finalizar pois fiquei com uma dúvida, vocês podem me ajudar?

Fiz uma DCL com uma sessão de “rádio button” (selecionando os setores) e uma “lista” (selecionando os produtos).
Gostaria de ao escolher o produto dessa lista e clickar em ok, inserisse o respectivo bloco selecionado.
Como posso prosseguir?

Abaixo o lisp e o print do DCL.

;::comando GERAL
(defun c:geral ()
(setq geral_id (load_dialog “c:/lisptao/lisp/caixa1.dcl”))
(if (not (new_dialog “caixa_02” geral_id)) (exit))

(set_tile “caixa_02_texto1” “TITULO”)

;radio box
(if radio_option
(set_tile “caixa_02_radcol” radio_option)
(set_tile “caixa_02_radcol” “caixa_02_rd01”)
)
(action_tile “caixa_02_radcol” “(geral_radio_01)”)

;icon_image
(setq x (dimx_tile “geral_01_imag”)
y (dimy_tile “geral_01_imag”)
)
(start_image “caixa_02_imag”)
(fill_image 0 0 x y -2)
(slide_image 0 0 x y “c:/lisptao/slides/T10x15.sld”)
(end_image)

;finalização
(setq caixa_dialog (start_dialog))
(unload_dialog geral_id)
(if (= caixa_dialog 2) (c:pl1))
(print)
)

;subfunção radio box geral_radio_01
(defun geral_radio_01 ()
(setq radio_option $value)
(cond
((= radio_option “caixa_02_rd01”) (setq lbox_list (list “Lateral Fixa Branca” “Lateral Fixa Transparente” “Lateral Fixa com AC” “Lateral Fixa com Porta” “Lateral Fixa com Janela” “Lateral Móvel Branca” “Lateral Móvel Transparente” “Lateral Sem Lona”)))
((= radio_option “caixa_02_rd02”) (setq lbox_list (list “Ar Condionado 20TR” “Ar Condionado 25TR” “Duto de Ar Comum” “Duto de Ar Espcial MPU” “Painel 04 Disjuntores” “Painel 02 Disjuntores” “Cabo de Alimentação” “Cortina de Ar” “Cooler KT18AS com Coifa” “Cooler KT18DS sem Coifa” “Cooler KT60YA” “Exaustor” “Abraçadeira Plástica Grande” “Cinta” “Funil” “Gás R22” )))
((= radio_option “caixa_02_rd03”) (setq lbox_list (list “Armário” “Box Chuveiro” “Box Vaso” “Box Mictório” “Pia”)))
((= radio_option “caixa_02_rd04”) (setq lbox_list (list “Mesa Buffet” “Mesa 4pax” “Mesa 8pax” “Lixeira”)))
((= radio_option “caixa_02_rd05”) (setq lbox_list (list “Cadeira Comum” “Mesa 4pax 1,00m” “Mesa 6pax 1,20m” “Mesa 8pax 1,50m” “Mesa 10pax 1,80m” “Mesa 12pax 1,80m” “Mesa 14pax 2,20m”)))
((= radio_option “caixa_02_rd06”) (setq lbox_list (list “Texto Tenda” “Texto Rodapé Tenda” “Texto Piso” “Texto Palco” “Texto Capacidade Total” “Legenda Lonas” “Legenda Climatização” “Observação”)))
((= radio_option “caixa_02_rd07”) (setq lbox_list (list “Acesso” “Nível Planta baixa” “Nível Corte” “Seta Circulação”)))
)
(start_list “caixa_02_lbox”)
(mapcar ‘add_list lbox_list)
(end_list)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

EDITADO POR LUCIANA KLEIN PARA ADICIONAR A IMAGEM:

[cadklein]

Boa tarde Ailson,

Bom, fixar o comprimento de um objeto line ou segmento de pline é possível com parametrização.
No seu caso seriam vários segmentos e tipos de segmentos de uma pline, não sei se com parametrização seria possível, visto que a soma de todos deveria ser um valor determinado previamente.

Qual o objetivo/necessidade de ter essa “rotina”?

[]s

Luciana Klein

[cadklein]

Boa tarde,

Qual modelo do plotter?
Drivers atualizados?

[]s

Luciana Klein

[Anônimo]

So mais um pormenor, a solucao que utilizo e a impressao para PDF e posterior plotagem sem qualquer problema.
(desculpem os acentos mas o meu teclado e ingles)
🙂

[cadklein]

Me envie email ok?
luciana@cadklein.com

Eu coloco o que baixei numa pasta do google drive pra vc fazer download, vc só vai precisar do seu serial e key (é mostrado qdo vc vai fazer download).

Até mais

🙂

[Anônimo]

Oi,

Infelizmente o problema persiste, quando mando executar aparece a seguinte mensagem:
“O download do produto consiste em vários arquivos.
Ao menos um dos arquivos está ausente ou seu download não foi efetuado ainda”

[Autor]

Posts