Measure in VBA

Hi,
I'm trying to use the measure command in a VBA application on entities in a
selection set. I've done with Vlisp but I can't find it in VBA.

Any suggestions?

Regards
Johan

 

The Measure command is still the Measure command. Do you mean you need the
vba counterpart to the (command) function? Its ThisDrawing.SendCommand.

 

In lisp I use the function 'ssname' to get the the entities names in a
collection. Then I use the entities names in the command function. So what
I'm looking for is the vba counterpart to ssname to refer to the specific
entities in the SendCommand function.

I've tried to set the entity name to handle, objectID like this:

entityname = selectionset.item(x).handle/objectID
ThisDrawing.SendCommand "measure" & entityname & ...

Johan

 

.... to refer to the specific

Run this in the debug window while in modelspace... with at least 1 entity .

Thisdrawing.SendCommand "list (handent """ &
thisdrawing.modelspace(0).handle & """) "

James

 

Thanks!
It's working now!
Johan