topic Re: Re: in VBA Forum

Text Window Access thru VBA

Anonymous — Thu, 31 Jan 2002 14:32:45 GMT

I would like to know if there is a way to access either the command line or the text window through Visual Basic other than the SendCommand method. I would like to post a comment to the command line area and not to a popup dialog box as MsgBox does.

Re: Text Window Access thru VBA

Anonymous — Thu, 31 Jan 2002 14:38:03 GMT

ThisDrawing.Utility.Prompt "My Message to display goes here"

Will display the message at the command prompt but not pause for user input. You also need CMDECHO to be ON.

Re:

Anonymous — Thu, 31 Jan 2002 14:51:34 GMT

Thanks!! It really works!!!

Re:

Anonymous — Thu, 31 Jan 2002 15:12:27 GMT

If you want to make it look like the Command: prompt is clear, use ThisDrawing.Utility.Prompt "my message" & vbCrLf & "Command:" HTH, Ed

Re:

Anonymous — Fri, 01 Feb 2002 07:12:34 GMT

Thank you. That will come in very handy!

Re: Re:

brian_adams — Thu, 16 May 2019 11:40:08 GMT

Is there way to capture text from Autocad text window or command line?

Re: Re:

norman.yuan — Thu, 16 May 2019 14:12:58 GMT

No, not with AutoCAD VBA/COM APIs, AFAIK.

Re: Re:

brian_adams — Thu, 16 May 2019 16:35:36 GMT

But i found it

https://www.dmcinfo.com/latest-thinking/blog/id/247/read-command-line-parameters-from-vba

It ain't works ...can't link "Kernel32"

Re: Re:

Ed__Jobe — Thu, 16 May 2019 16:40:42 GMT

Even if you could, those api's don't apply to AutoCAD's command line.

Re: Re:

brian_adams — Fri, 17 May 2019 09:54:39 GMT

Could it be sollution???

https://forums.autodesk.com/t5/visual-basic-customization/capturing-command-line-output-from-vba/m-p/2717783/highlight/false#M94518

I missed some thing it capture emptyness

Re: Re:

Ed__Jobe — Fri, 17 May 2019 14:07:36 GMT

No, that just writes the output of a command to the system variable USERS1.

Re: Re:

brian_adams — Fri, 17 May 2019 14:21:14 GMT

There is some macros that can capture a lot of things. they works

https://stackoverflow.com/questions/2784367/capture-output-value-from-a-shell-command-in-vba

but any example of text window in AutoCAD

Re: Re:

Ed__Jobe — Fri, 17 May 2019 14:24:22 GMT

As @norman.yuan already mentioned, not for AutoCAD VBA.

You never stated what you're trying to do. Why do you need to capture the command window text? Perhaps there is an alternative?

Re: Re:

brian_adams — Fri, 17 May 2019 14:45:56 GMT

oh this is dream

I want to make material report for AECobject in Autocad Architecture

The only method to calculate fine is command "Materiallist"

I've made is macro that

1. makes property set deffinition for (AECwall)

2.creates property"material"

3. serching for AECwall in current drawing

4. select it and run materiallist command for every AECwall
5. MiSSED PART(capture value from command line and filtering it) but filtering not a problam
6. wright it to property

I made chek wrighting ID of every AECwall to property"material" it works

so there is another way only I see now

Manually copy history of autocad window text and copy it to excel file

then run another script to capture date and apply it to AECwall

that how it looks now

Sub materiallist()

Dim SchedApp As New AecScheduleApplication
Dim cProps As AecScheduleProperties
Dim PropSetDefs As AecSchedulePropertySetDefs
Dim propsetdef As AecSchedulePropertySetDef
Dim propertyDefs As AecSchedulePropertyDefs
Dim propertydef As AecSchedulePropertyDef
Dim propertyset As AecSchedulePropertySet
Dim propertysets As AecSchedulePropertySets
Dim obj As AcadObject
Dim msg As String
Dim PrSetDefName As String
Dim propertydefname As String

PrSetDefName = "Wall_Materiallist"
propertydefname = "Materiall"
'_______________________________create property set________________________________
On Error Resume Next
' Access the set of property definitions.
Set propsetdef = PropSetDefs(PrSetDefName)
' If set of property definitions isn't created then create it.
If propsetdef Is Nothing Then
PropSetDefs.Add (PrSetDefName)
Set PropSetDefs = SchedApp.PropertySetDefs(ThisDrawing.Database)
Set propsetdef = PropSetDefs(PrSetDefName)
End If

' Now add a property definition to the new set of definitions.
Set propertyDefs = propsetdef.propertyDefs
On Error Resume Next
Set propertydef = propertyDefs(propertydefname)
' If set of property definitions name isn't created then create it.
If propertydef Is Nothing Then
propertyDefs.Add (propertydefname)
Set propertydef = propertyDefs(propertydefname)
End If

' Access the definition just created, and set some properties.
Set propertydef = propertyDefs(propertydefname)
propertydef.Description = "materiall from materiallst."
propertydef.Format = "Standard"
propertydef.Type = aecSchedulePropertyTypeText

'_________________________________counting materiallist______________________________________

Dim ent As AcadEntity
Dim geo As AecGeo
Dim wall As AecWall
Dim findObj As AcadObject
Dim point(0 To 2) As Double
Dim sset As AcadSelectionSet

For Each ent In ThisDrawing.ModelSpace
If TypeOf ent Is AecWall Then
Set wall = ent
Set sset = ThisDrawing.SelectionSets.Add("SS10")
ObjectID = wall.ObjectID
Set findObj = ThisDrawing.ObjectIdToObject(ObjectID)
point(0) = wall.Location(0): point(1) = wall.Location(1): point(2) = wall.Location(2)

sset.SelectAtPoint point
If sset.Count > 0 Then
ThisDrawing.Utility.Prompt "ID " & ObjectID
ThisDrawing.SendCommand "Select p " & vbCrLf
ThisDrawing.SendCommand "Materiallist" & vbCr & vbCr

ThisDrawing.Utility.Prompt "ID " & ObjectID

'________________apply property to walls _____________________
Set propertysets = SchedApp.propertysets(wall)
' Add a new property set. Notice that the Add method requires
' a property set definition argument, not a property set.
propertysets.Add propsetdef
'___________________________adding value to property set and_____________________

Dim retval As String
retval = CStr(ObjectID)
Set propertysets = SchedApp.propertysets(wall)
On Error Resume Next
Set propertyset = propertysets.Item("Wall_Materiallist")
If Not propSet Is Nothing Then
Set cProps = propertyset.Properties
cProps.Item("Materiall").Value = retval
ThisDrawing.SelectionSets("SS10").Delete
End If
End If
Else
Set ent = Nothing

End If
Next

End Sub

Re: Re:

brian_adams — Mon, 20 May 2019 07:30:53 GMT

it seems imposible is posible in a very simple way

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-no-function-definition/m-p/8799235#M385349