Very Basic VBA

[gazzalp]

Yeah, weve found that problem with some more complex vba routines weve made. At the moment im just trying to learn some simple things - text, hatch viewports and dimensions on a certain layer. But i want to actually understand the code, not just have it written for me. Once i get all those objects worked out ill start moving onto more complex routines. thanks for your help

[SEANT]

You're welcome.

[gazzalp]

Argh this is driving me nuts! Ive tried playing arund with that code to insert things like text, hatch, viewports and dimensions so they go on their own layer, but for some reason i can not get it to work. This is the code to add a dimension to a certain spot, but what i want is for autocad to ask where i want the dimension:

 

Sub Example_AddDimAligned()
   ' This example creates an aligned dimension in model space.

   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
   
   ' Define the dimension
   point1(0) = 5#: point1(1) = 5#: point1(2) = 0#
   point2(0) = 10#: point2(1) = 5#: point2(2) = 0#
   location(0) = 5#: location(1) = 7#: location(2) = 0#
   
   ' Create an aligned dimension object in model space
   Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
   ZoomAll
End Sub

 

Now with the line code, the part:

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

 

instead of saying point1 says start point, end point etc. Do i need to change that for the dimension? And then under the Define dimension i need to change that part of the code to ask me where i want it instead of putting it in at those locations, but for some reason the code is not working...

[gazzalp]

EDIT: ive found out how to do that (at least with aligned dimensions so i hope to be able to work out more myself) but one more question, when i add the dimension, it will only put it in model space (which isnt too bad, because 99% of the time thats what i want, but would like the option to be able to do it in either) but it doesnt take into account the dimscale - it seems it always put the dimscale in at one. How do i change the code to fix that? This is the code i have:

 

Sub AddAlignedDimension()
Dim objNewLayer As AcadLayer
Dim varFirstPoint As Variant
Dim varSecondPoint As Variant
Dim varTextLocation As Variant
Dim ObjDimAligned As AcadDimAligned
Set objNewLayer = ThisDrawing.Layers.Add("Dimensions")
objNewLayer.color = acWhite
'define the dimension
varFirstPoint = ThisDrawing.Utility.GetPoint(, "Select first point: ")
varSecondPoint = ThisDrawing.Utility.GetPoint(varFirstPoint, _
                                              "Select second point: ")
varTextLocation = ThisDrawing.Utility.GetPoint(, _
                                     "Pick Dimension Text Location: ")
'Create an Aligned Dimension
Set ObjDimAligned = ThisDrawing.ModelSpace.AddDimAligned(varFirstPoint, _
                                                      varSecondPoint, varTextLocation)

ObjDimAligned.Layer = "Dimensions"
ObjDimAligned.Update
End Sub