How to access object properties in VBA?

[Anonymous]

I made a slice in a point cloud and now I want to change its position with VBA-code. It's position is in the properties. How can I retrieve and modify the desired properties in VBA?

Thank you in advance,

A newbie Autocad VBA programmer

[Ed__Jobe]

How did you create the slice? Is it a standard Section object?

[Anonymous]

Hi @Ed__Jobe 

I used the command 'sectionplane' on a rcp-pointcloud. Here I have selected the type: 'slice'. This is shown in the image below.

I also marked 'Section Offset' in properties. This is the value that I want to be able to modify via VBA.

Section of a pointcloud

[Ed__Jobe]

That creates a vba Section object. You can edit the Section.SectionPlaneOffset property. Once you have the user select the section, set a variable of Section type and then access it's properties.

[Anonymous]

hi @Ed__Jobe 

Thank you for your answer.

How would I encode that?

Kind regards

[Ed__Jobe · Accepted solution]

Here you go.

Sub SectionTest()
    Dim sec As AcadSection
    Dim oEnt As AcadEntity
    Dim pp As Variant
    
GetEnt:
    ThisDrawing.Utility.getEntity oEnt, pp, "Select an Section object: "
    
    If TypeOf oEnt Is AcadSection Then
        Set sec = oEnt
        sec.SectionPlaneOffset = 120
    Else
        ThisDrawing.Utility.Prompt "You didn not select a Section object. Try again. "
        GoTo GetEnt
    End If
    
End Sub

[Anonymous]

It's working perfectly. Thank you very much @Ed__Jobe !