Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Select All on drawing

1,279 views
Skip to first unread message

Bill Kimsey

unread,
May 20, 1998, 3:00:00 AM5/20/98
to

I'm having a little problem. I need to select all objects on a drawing.
Can anyone help?

John Elliott

unread,
May 20, 1998, 3:00:00 AM5/20/98
to

(ssget "x")

John Breznikar

unread,
May 20, 1998, 3:00:00 AM5/20/98
to drjohn...@upstate.net

Hi John:
I think Bill want to do it in VBA not LISP.

My impression of select All only select what ever on the layer that thawn and
on (show on screen).

I affraid that to do an equivalent of (ssget "x") in VB(A) we have to loop
through every object in the AcadDocument.

....
Dim ent As object
Dim sset as AcadSelectionset
Dim ssTemp() As Object
Dim i As Integer
....
i = 0
set sset = aDoc.selectionset.add("ss")
For Each ent in aDoc
if meetcond(ent) then
Redim Preserve ssTemp(i)
ssTemp(i) = ent
i = i + 1
end if
next
sset.Add ssTemp

These codes just pop out of my mine, not yet test. The meetcond should be a
function return a true if ent is not layer, style...(table definition object).

I like to see your input

Kenneth Tam

Frank Hessler

unread,
May 21, 1998, 3:00:00 AM5/21/98
to

Bill,

I'm just getting into this VBA stuff after _years_ of LISP, so for what it's
worth...

According to Acad VBA Help, Appendix A: AutoLISP and Automation Comparison:

ssget =
AutoCAD.Application.ActiveDocument.SelectionSets.SelectionSet.SelectOnScreen
method should get you ther.

Hope it works...let me know.

Frank

Bill Kimsey wrote in message <356324...@rci-metiair.com>...

Ben Hampson

unread,
Jun 12, 1998, 3:00:00 AM6/12/98
to

Hi Bill,
I think this works.

Set ssetObj = ThisDrawing.SelectionSets.Add("ss1")
ssetObj.Select acSelectionSetAll

0 new messages