Fórum - Autolisp

Carlinhos segue um exemplo para ver se ajuda na sua ideia. (defun c:APARAR () (setq sel (ssget));selecionar a indicação de corte a poliline branca (setq obj1 (ssname sel 0)) (setq pt (getpoint "\nIndique a direção para Aparar: "));direção de corte (setq layer (cdr(assoc 8 (entget(car(entsel "\nSelec...

Marcelo. valeu depois do seu comentario as coisas ficarão claras, funcionou assim: troqui o (if (=(get_tile "BT1") numberp) (setq BT1 (get_tile "BT1")) (setq BT1(atof(get_tile "BT1")))) por (setq BT1 (get_tile "BT1")) e depois coloquei assim (start_dialog) (done_dialog) (if (= BT1 numberp) (setq BT1...

Alexandre

Eu procuro sempre usar "_line" ou "_pline" porque com o "_" antes do nome as rotinas vão funcionar em uma versão traduzida do Autocad. fica a dica

at+

pessoal se alguém puder ajudar quando eu dou um click no "ok" da caixa de dialogo sem mudar os valores pré-definidos fica tudo certo mas se eu digito eles não funciona, descobri que os valores definidos estão vindo como números reais e quando eu entro com as informações não sei o porque eles vem com...

pessoal se alguém puder ajudar quando eu dou um click no "ok" da caixa de dialogo sem mudar os valores definidos fica tudo certo mas se eu digito eles não funciona, descobri que os valores definidos estão vindo como números reais e quando eu entro com as informações não sei o porque eles vem como "s...

Pessoal criei um exemplo mas não consigo entender como funciona as caixas de DCL ai vai sapata : dialog { label="SAPATA - Rogério Mota dos Santos"; :boxed_row { label = "Base: "; :edit_box { key = "BT1"; label="X :"; value=100; edit_width=5;} :edit_box { key = "BT2"; label="Y :"; value=150; edit_wid...

Marcelo

Valeu era isso mesmo, só precisei de rodar que deu para entender.

obrigado t+

Marcelo.
Não entendi bem como funciona, mas o que eu quero era guardar um valor que eu calculo dentro de um programa "um texto" e depois descarrega-lo com o CTRL-V onde eu quizer. Vou estudar o que você me mandou.

Obrigado.

Gostaria de saber como capturar um valor com o CTRL+C dentro de uma Lisp, para depois descarregalo onde quiser com o CTRL+V

obrigado.

luislhss Aqui tem um exemplo de array usando repeat dentro de outro repeat e só estudalo que você consegue fazer o que esta querendo. (defun c:arry () (setq origem '(0 0);ponto inicial disth 15;distancia horizontal distv 15;distancia vertical cor 1);contador para cor (command "color" 1);começar da c...