acrescentar uma cota no desenho e editar seu valor pelo VBA

[marcio.cartacho]

Pessoal,
Bom dia!

como disse no titulo, estou tentando acrescentar uma cota em um desenho e editar seu valor para um outro qualquer. Alguem sabe como fazer? alguem poderia me ajudar?

eu até conssegui acrescentar a dimensao mas preciso editar o valor de algumas, acrescentando textos "<> Ref." por exemplo.

estou usando este processo abaixo:

Public Sub CreateShaft_M82C470665_PT2_Dimensions()
AddDimAligned 0, 0, 0, 3.69, 0, 0, 1.845, -3.6, 0#
AddDimAligned 3.84, 0#, 0#, 3.69, 0, 0, 1.34095238, -1.9, 0#
AddDimAligned 0, 0, 0, 6.1996, 0, 0, 3.0998, -5.3, 0#
AddDimAligned 0#, 0#, 0#, 8.2535, 0#, 0#, 4.12675, -7#, 0#
End Sub

Function AddDimAligned(ByRef FirstPoint_X As Variant, ByRef FirstPoint_Y As Variant, ByRef FirstPoint_Z As Variant, ByRef LastPoint_X As Variant, ByRef LastPoint_Y As Variant, ByRef LastPoint_Z As Variant, ByRef TextPoint_X As Variant, ByRef TextPoint_Y As Variant, ByRef TextPoint_Z As Variant)

Dim dimObj As AcadDimAligned
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
Dim location(0 To 2) As Double

point1(0) = FirstPoint_X : point1(1) = FirstPoint_Y: point1(2) = FirstPoint_Z
point2(0) = LastPoint_X : point2(1) = LastPoint_Y: point2(2) = LastPoint_Z
location(0) = TextPoint_X : location(1) = TextPoint_Y: location(2) = TextPoint_Z

Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)

End Function

[Brogueira-CADptbr]

Marcio,

Posso perguntar qual é a versão que está a usar.

E já agora porque não usar um estilo de cotagem para fazer essa alteração ou a janela de propriedades?

Sabia que pode criar estilos de cotagem com prefixos e sufixos e alterar o valor da cota por outro ou por um texto (por exemplo medida a confirmar em obra) ?

Desculpe eu fazer estas perguntas mas a sua colocação deixou-me com essas dúvidas.

Obrigado e Boa Páscoa.

[marcio.cartacho]

Bom dia!

Atualmente utilizo a versão AutoCAD2006 e AutoCAD2008. Não conheço muito os processos para se cotar um desenho pelo VBA a forma mais prática ou a mais eficaz, este exemplo que passei foi a forma que encontrei de primeiro momento. seria realmente muito bom poder trocar idéias a este assunto. tenho que cotar um desenho de eixo e em algumas cotas preciso ter o valor real da dimensao mais algum comentário que se faça necessário como por exemplo uma cota do nucleo do rotor que cotamos desta forma "23.00 core length".
João Greno Brogueira, agradeço desde ja o atendimento a minha duvida.

Obrigado.

[Rui Pestana]

Olá Márcio,
pode acrescentar a seguinte linha:

dimObj.TextOverride = "<> Ref."

no fim da sua função

[marcio.cartacho]

olá Rui,
Bom Dia!

Obrigado pela ajuda, foi muito util. veja como ficou o código:

Function AddDimAligned(ByRef FirstPoint_X As Variant, ByRef FirstPoint_Y As Variant, ByRef FirstPoint_Z As Variant, _
ByRef LastPoint_X As Variant, ByRef LastPoint_Y As Variant, ByRef LastPoint_Z As Variant, _
ByRef TextPoint_X As Variant, ByRef TextPoint_Y As Variant, ByRef TextPoint_Z As Variant, _
ByRef Comentario As String)
Dim dimObj As AcadDimAligned: Dim point1(0 To 2) As Double: Dim point2(0 To 2) As Double: Dim location(0 To 2) As Double
point1(0) = FirstPoint_X + ucs_X: point1(1) = FirstPoint_Y + ucs_Y: point1(2) = FirstPoint_Z
point2(0) = LastPoint_X + ucs_X: point2(1) = LastPoint_Y + ucs_Y: point2(2) = LastPoint_Z
location(0) = TextPoint_X + ucs_X: location(1) = TextPoint_Y + ucs_Y: location(2) = TextPoint_Z
Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
dimObj.TextOverride = "<>\P" & Comentario
ThisDrawing.SendCommand ("dim" & vbCr & "up" & vbCr & "L" & vbCr & vbCr & "exit" & vbCr)
ThisDrawing.Regen acActiveViewport
ZoomExtents
End Function

[marcio.cartacho]

Rui, preciso de mais uma ajuda. como eu faço para fazer uma cota na vertical ou na horizontal? a function acima usei o metodo adddimaligned mas ela não me atende quando preciso fazer uma cota que os pontos de origem estejam desalinhado.

qual o metodo para eu utilizar?

poderia me ajudar?

desde ja, muito obrigado!

[Filipe Francisco]

Rui, preciso de mais uma ajuda. como eu faço para fazer uma cota na vertical ou na horizontal? a function acima usei o metodo adddimaligned mas ela não me atende quando preciso fazer uma cota que os pontos de origem estejam desalinhado.

qual o metodo para eu utilizar?

poderia me ajudar?

desde ja, muito obrigado!

Para responder a esta pergunta, por favor usar o seguinte Post
Como criar uma cota na horizontal ou na vertical pelo VBA

Obrigado