• Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Как выбрать полилинию по весу, ширине (Weght,Width) и другим параметрам?

> Student
Можно послать Лисп выражение через Sendcommand
но тогда получится выбрать только все полилинии
а усли интерактивно выбирать на экране то это
приводит к нестабильной работе этого метода
Типа

          With ThisDrawing
               While .SelectionSets.Count > 0
                    .SelectionSets.item(0).Delete
               Wend
               ' lisp expression to select all polylines with this lineweight/color entire drawing
               .SendCommand "(SSGET " & Chr(34) & "_X" & Chr(34) & " (list (cons 0 "*POLYLINE")(cons 62 256)(cons 370 50.0)))" & vbCr
          Set ss = .ActiveSelectionSet
     End With
     MsgBox "Selected: " & ss.Count & " objects"

Так что выбирай сам
С другой стороны чем плох цикл, в VBA под Автокад
его используют сплошь и рядом
~'J'~

  • Student
  • Восстановленный участник
  • На форуме с 26 февраля 2008г.
  • Сообщений: 3
  • Спасибо: 0

Re: Как выбрать полилинию по весу, ширине (Weght,Width) и другим параметрам?

Спасибо за помощь, буду использовать цикл. Просто сказывается старая школа, когда еще боролись за сокращение числа операций )).