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/

Massprop Ajuda

Dúvidas sobre VB para AutoCAD...

Moderador: Moderadores

Responder
Avatar do usuário
andersonred1
Novato
Novato
Mensagens: 1
Registrado em: Qui 22 Fev 2007 11:00:00 pm

Massprop Ajuda

Mensagem por andersonred1 » Ter 18 Dez 2007 2:55:03 pm

Ola pessoal ..

Tenho uma grande duvida, como dazer um massprop via vba selecionando mais de um item.
Por exemplo trabalho com chapa dobrada e tenho dois perfis tipo "U" com uma distancia variavel entre eles.
Emfim como selecionar os dois perfis e pedir o massprop.


[lsp]
Dim objEnt As AcadRegion
Dim strMassProperties As String
Dim varProperty As Variant

Set objEnt ="'aqui que esta o complicado"

With objEnt

strMassProperties = strMassProperties & vbCr & vbCr & "Centro de Gravidade: "
For Each varProperty In .Centroid
strMassProperties = strMassProperties & vbCr & " " & varProperty
Next

strMassProperties = strMassProperties & vbCr & vbCr & "Momento de Inércia: "
For Each varProperty In .MomentOfInertia
strMassProperties = strMassProperties & vbCr & " " & varProperty
Next

End With

objEnt.Highlight True
objEnt.Update
MsgBox strMassProperties, , "Propriedades"
objEnt.Highlight False
objEnt.Update


[/quote][/lsp]

segue ai um exemplo de codigo.

Valeu ..[/

Avatar do usuário
mateushpe
Concreto
Concreto
Mensagens: 73
Registrado em: Ter 15 Ago 2006 12:00:00 am

Mensagem por mateushpe » Ter 18 Dez 2007 4:14:15 pm

o teu problema é com a programação ou com a combinação dos perfis?

Responder