topic Re: VBA - LIST COMMAND in VBA Forum

VBA - LIST COMMAND

Anonymous — Mon, 07 Jul 2008 14:48:46 GMT

Is there a VBA equivalent to the LIST command in autoCAD?

Liz

Re: VBA - LIST COMMAND

Anonymous — Tue, 08 Jul 2008 10:47:46 GMT

Have you considered using SendCommand ?? You could pass it "List" and the entity handle.

Andrew

Re: VBA - LIST COMMAND

Anonymous — Tue, 08 Jul 2008 20:57:35 GMT

I'm actually trying to do the opposite. I'm creating a program that runs through each object and exports the data to excel. So i'm trying to access the LIST command data in another way.

Re: VBA - LIST COMMAND

dgorsman — Tue, 08 Jul 2008 22:20:31 GMT

Why not access the properties directly, such as obj.Layer, obj.Center, and so on?

Re: VBA - LIST COMMAND

Anonymous — Tue, 08 Jul 2008 22:29:38 GMT

i agree with dgorsman, if know all of the object types you can access their properties. otherwise maybe you could log the command window and then access the logged file to get results from the sendcommand list.

Re: VBA - LIST COMMAND

Anonymous — Tue, 08 Jul 2008 23:00:53 GMT

I am doing that for the AutoCAD objects. But I am also trying to do this with objects created in Bentley AutoPLANT. The call commands are different for those objects and are proving difficult. That method is leading me in a direction I don't like, and LIST still provides all the useful information. there is an issue regarding the handle of the objects when I try using the AutoPLANT references. I would prefer to use a routine similar to LIST.

Another thought: Does anyone know how to see the code behind the list command?

Re: VBA - LIST COMMAND

Anonymous — Wed, 09 Jul 2008 01:08:50 GMT

that would be a useful routine to cycle through an unknown object's properties and methods...you'd think there'd be a way... if all else fails maybe set the logfile on and set the command echo off and run the list command and search backward through the log file for the last issued list command and its all string manipulation from there.. maybe useful too is the lisp (entget(car(entsel))) for dxf codes as gary recently posted

hth

Message was edited by: cadger Message was edited by: cadger

Re: VBA - LIST COMMAND

dgorsman — Wed, 09 Jul 2008 14:47:37 GMT

If there isn't a COM interface available for the AutoPLANT objects (I think there is one for the structural part), you are probably SOL. It uses custom, non-AutoCAD objects with their own set of properties. You might make better progress reading off the project database.

Re: VBA - LIST COMMAND

Anonymous — Wed, 09 Jul 2008 15:06:40 GMT

How can I do that? - sorry still kinda green at this

Re: VBA - LIST COMMAND

dgorsman — Wed, 09 Jul 2008 18:28:46 GMT

Try asking and searching over in the ADO/Connectivity group - this is their bread-and-butter. Pulling stuff from a database is not for the faint of heart, and will require up-front planning before any code is written.

Re: VBA - LIST COMMAND

Anonymous — Wed, 09 Jul 2008 19:28:13 GMT

ok then lets backtrack a sec. How can I send a handle to the list command? I'm thinking if i sort through the objects for each object run the command and send the current handle to it. Then extract the information from the command box as we discussed.

Re: VBA - LIST COMMAND

Anonymous — Wed, 09 Jul 2008 20:26:01 GMT

Hi,In AutoCAD rum VBAIDE. Create an empty project. Go to Extras - Add
references, select the file ps3d_com.arx in the Prg folder. Paste the
following lines and store the macro.Forget using LIST for the AutoPLANT
structural elements - using this COM interface can give you all information
you need.As long as you dont know which AutoPLANT structural entity you are
using it is the best way to make use of Ks_ComProperty.Run the macro using
F5! Make yourself familiar with VBA, it can be used easier than Lisp. And
from this it is only a small step to VB.NET to create professional
applications!DominikSub Example_ReadFrom() Dim Result As Long
Dim Entity As AcadEntity Dim Selection As Ks_ComSelection Dim Prop As
Ks_ComProperty Set Selection = New Ks_ComSelection Set Prop = New
Ks_ComProperty Set Entity = Selection.PickObject(vbCrLf & "Select
object: ", Result) Prop.ReadFrom Entity
ThisDrawing.Utility.Prompt vbCrLf & Prop.Name ThisDrawing.Utility.Prompt
vbCrLf & Prop.InternalName Prop.Note1 = "Note 1" Prop.Note2 =
"Note 2" Prop.WriteTo Entity ThisDrawing.Utility.Prompt vbCrLf
& Prop.Name ThisDrawing.Utility.Prompt vbCrLf & Prop.Note1
ThisDrawing.Utility.Prompt vbCrLf & Prop.Note2 End Sub
schrieb im Newsbeitrag news:5977465@discussion.autodesk.com...
ok then lets backtrack a sec. How can I send a handle to the list command?
I'm thinking if i sort through the objects for each object run the command
and send the current handle to it. Then extract the information from the
command box as we discussed.

Re: VBA - LIST COMMAND

Anonymous — Thu, 10 Jul 2008 06:54:12 GMT

When you are building your command text string to pass to SendCommand, and you get to the part of the command that wants an entity to be selected, do somehting like this:

strCommand = strCommand & "(handent """ & ent.Handle & """)" & vbCr

Regards

Andrew

Re: VBA - LIST COMMAND

Anonymous — Thu, 10 Jul 2008 13:18:26 GMT

Perhaps this example might help point you in the right direction?

Joe ...

wrote in message news:5977465@discussion.autodesk.com...
ok then lets backtrack a sec. How can I send a handle to the list command?
I'm thinking if i sort through the objects for each object run the command
and send the current handle to it. Then extract the information from the
command box as we discussed.

Re: VBA - LIST COMMAND

Anonymous — Thu, 10 Jul 2008 16:25:08 GMT

Ok I think there is enough to work with here. Thanks for all your help guys!

Re: VBA - LIST COMMAND

Anonymous — Wed, 30 Jul 2008 04:13:45 GMT

Hai
Loop through all the entites inthe drawing to get list of objects from drawing