Witam,
czy ktos moze opisac mi , jak zrobic prostą z pozoru rzecz:
tworze SelectionSeta, potem SelectOnScreen, zaznaczam oknem, no i teraz
wybieram: jesli obiekt to polilinia to pobieram z niego jakąć własciwosc
(np. dlugosc) i tak przelatuje po wszystkich poliliniach w SelectionSecie?
Dotyczy ACAD VBA.
Dzieki za pomoc,

--
pozdrawiam
Umiar

Umiar wrote:

Mam nadzieje, ze wszystko jasne - ponizszy kod nie uzywa metody
SelectOnScreen, lecz SelectionSetWindow, ale chyba sobie poradzisz? Odsylam
do helpa zreszta - majac ponizsze, wiesz gdzie szukac.

Dim sset As AcadSelectionSet
Dim p1 As Variant (0 To 2) As Double
Dim p2 As Variant (0 To 2) As Double

mAcad to instancja AutoCADa - ja ten kod wywolywalem z zewnatrz ACada, z
mojego programu w VB

Set sset = mAcad.Documents(mDocName).SelectionSets.Add(nazwa)

p1 = mAcad.Documents(mDocName).Utility.GetPoint(, Podaj pierwszy
narożnik obszaru :)
p2 = mAcad.Documents(mDocName).Utility.GetPoint(p1, Podaj przeciwlegly
narożnik obszaru :)

With sset
.Select acSelectionSetWindow, p1, p2
.Highlight True
.Update
End With


Dim element As AcadEntity

For Each element In sset

tu sprawdzasz, czy wlasciwosc .ObjectName obiektu element jest
taka, jak dla polilini (jedna z mozliwosci, poza tym pewnie mozna rozpoznac
przez jakies ID - ale nigdy nie zglebialem tematu)
jesli jest = nazwie klasy polilini, to cos z tym obiektem (element)
robisz, a jak nie, to

Next

--
Szwagier

Witam, ta rzecz jest prosta nie tylko z pozoru:

1. Tworzysz selection seta w ten sposób, że wybiera on tylko polilinie -
ustawiasz filtr (w helpie VBA do Acada stosowny przykład)
dim oSet as AcadSelectionSet
Set oSet = SelectOnScreen( nie pamiętam składni....:(

2. Iterujesz w pętli : (oSet to nazwa Twojego SelectionSet’a)

For each element In oSet
... tu stosowne operacje dla polilinii
Next element

pozdrawiam


: Witam,
: czy ktos moze opisac mi , jak zrobic prostą z pozoru rzecz:
: tworze SelectionSet’a, potem SelectOnScreen, zaznaczam oknem, no
i teraz
: wybieram: jesli obiekt to polilinia to pobieram z niego jakąć
własciwosc
: (np. dlugosc) i tak przelatuje po wszystkich poliliniach w
SelectionSecie?
: Dotyczy ACAD VBA.
: Dzieki za pomoc,
: --
: pozdrawiam
: Umiar


-----
Wysłano za pośrednictwem WWW.CAD.PL (http://www.cad.pl)

Można od razu zaznaczać tylko polilinie:


Public Sub PLineSSet()
Dim sSetObj As AcadSelectionSet
Dim PLn As AcadLWPolyline
Dim dataCode(0) As Integer
Dim dataValue(0) As Variant

On Error Resume Next
Set sSetObj = ThisDrawing.SelectionSets.Item(pline sset)
sSetObj.Delete
On Error GoTo 0
Set sSetObj = ThisDrawing.SelectionSets.Add(pline sset)

dataCode(0) = 0
dataValue(0) = LWPOLYLINE
sSetObj.SelectOnScreen dataCode, dataValue
For Each PLn In sSetObj
ThisDrawing.Utility.prompt vbCrLf + Length: + CStr(PLn.Length)
Next
End Sub


pozdrawiam
Kuba

Dzieki wszystkim za odpowiedzi, juz wszystko dziala.


--
Pozdrawiam
Umiar