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/

Apagar alguns dados

Dúvidas sobre VB para AutoCAD...

Moderador: Moderadores

Responder
Avatar do usuário
dansgo
Madeira
Madeira
Mensagens: 16
Registrado em: Seg 12 Jan 2004 11:00:00 pm

Apagar alguns dados

Mensagem por dansgo » Dom 30 Dez 2007 5:46:51 pm

Olá a todos.

Tenho 9 cotas na vertical.
5 delas, o qual possuem valor 0, precisam ser apagadas.
Só as que estão com o valor zero que devem ser apagadas.
Fiz assim:

(setq pegacotas (ssget "_w" '(-733.7324 216.8652) '(-711.7406 91.0698)))

selecionei tudo que tem nessa área (os nove textos)

(setq i 0)
(setq list-letras-enc '())
(setq quant-list-letras-enc (sslength pegacotas))
(repeat quant-list-letras-enc
(setq ext2 (ssname pegacotas i))
(setq ext2a (entget ext2))
(setq ext2-1 (cdr (assoc 1 ext2a)))
(if (= ext2-1 "0")
(progn
(setq valor-subst (subst (cons 1 "")(assoc 1 ext2a) ext2a))
(entmod ext2a)
)
(setq i (+ i 1))
)
)

Alterei os valores preenchidos com zero para vazio, mas eles continuam lá.
Como faço para apagar esses dados iguais a zero?
O que estou fazendo de errado?

Obrigado.

Avatar do usuário
FELIXJM
Bronze 3/3
Bronze 3/3
Mensagens: 327
Registrado em: Ter 05 Abr 2005 12:00:00 am

Mensagem por FELIXJM » Qua 02 Jan 2008 12:03:24 am

[lsp]

(setq pegacotas (ssget "_w" '(-733.7324 216.8652) '(-711.7406 91.0698)))
(setq i 0)
(setq list-letras-enc '())
(setq quant-list-letras-enc (sslength pegacotas))
(repeat quant-list-letras-enc
(setq ext2 (ssname pegacotas i))
(setq ext2a (entget ext2))
(setq ext2-1 (cdr (assoc 1 ext2a)))
(if (= ext2-1 "0")
(progn
(setq valor-subst (subst (cons 1 "")(assoc 1 ext2a) ext2a))
(entmod valor-subst) ;<<<<<<<<<<<<<<<<<<<<<<< O ERRO ESTAVA AQUI.
)
(setq i (+ i 1))
)
)
[/lsp]

OK.
Felix Melo - Niteroi - RJ

Avatar do usuário
dansgo
Madeira
Madeira
Mensagens: 16
Registrado em: Seg 12 Jan 2004 11:00:00 pm

Mensagem por dansgo » Qua 02 Jan 2008 6:54:37 am

Muito obrigado.

Responder