[Сергей Дубина]

Можно ли используя исключительно коммандную строку создать динамический блок с параметрами видимости, отражения, атрибутами и прочими наворотами.
Если можно дайте конкретный пример.

[Сергей Дубина]

Сообщение от wetr Тогда зачем 1 динамический создавать программно? Много времени?

В том то всё и дело что немного. Раньше я работал в 2005 каде сейчас в 2009. Динблоки удобнее вот я и решил на них перейти. Раньше у меня была куча файлов (блоков) для каждой марки изделия.
Да и програмным на 100% метод не назовёшь. Все размеры в таблице. Програмно из размеров формируются только строки для коммандной строки через объектную модель.

Сообщение от Сергей Дубина Динблоки удобнее вот я и решил на них перейти. Раньше у меня была куча файлов (блоков) для каждой марки изделия.

А сколько получилось дин.блоков из той кучи обычных?

Сообщение от Сергей Дубина Да и програмным на 100% метод не назовёшь. Все размеры в таблице. Програмно из размеров формируются только строки для коммандной строки через объектную модель.

Может я чего не так понял, но мне почему-то кажется, что речь идет о вставке дин.блоков в файл с характеристиками, заполняемыми в процесс вставки.
Если не прав, поправьте.

[Сергей Дубина]

Сообщение от AlphaGeo А сколько получилось дин.блоков из той кучи обычных? Может я чего не так понял, но мне почему-то кажется, что речь идет о вставке дин.блоков в файл с характеристиками, заполняемыми в процесс вставки. Если не прав, поправьте.

Речь идет о создании определения дин. блока (с параметром видимости для однотипных изелий).
По поводу второй части вопроса - по моему нельзя настроить параметры при вставке блока через коммандную строку.
Если кто подскажет как настраивать параметры при вставке - буду рад.

Сообщение от Сергей Дубина Речь идет о создании определения дин. блока (с параметром видимости для однотипных изелий).

Что-то тут я не пойму... Блоки используются для того, чтобы заменять собой такие вот однотипные повторяющиеся элементы чертежей. Для чего же Вам нужно каждый раз создавать новый блок? Или библиотека простых блоков с AutoCAD 2005 настолько велика, что переделать ее представляется возможным только с помощью программирования?

Сообщение от Сергей Дубина По поводу второй части вопроса - по моему нельзя настроить параметры при вставке блока через командную строку. Если кто подскажет как настраивать параметры при вставке - буду рад.

Вот тут я сам не уверен. Я говорил о свойствах блоков. Думаю, через LISP до них легко можно добраться и отредактировать сразу после вставки блока (конкретного вхождения блока).

[Сергей Дубина]

Сообщение от AlphaGeo Что-то тут я не пойму... Блоки используются для того, чтобы заменять собой такие вот однотипные повторяющиеся элементы чертежей. Для чего же Вам нужно каждый раз создавать новый блок? Или библиотека простых блоков с AutoCAD 2005 настолько велика, что переделать ее представляется возможным только с помощью программирования? Доведу ранее приведённый пример до конца (про 130 "статических" блоков). Эти блоки - изображения тройников по ГОСТ 5525-88 с невидимыми атрибутами обозначения, наименования и массы для спецификаций. Для того чтобы перевести всё это добро вручную в один динблок надо создать параметр видимости с перечнем из 130 пунктов и по одному открывать "файлы с тройниками" копировать и вставлять для каждого состояния видимости. Это просто тошнилово. Кроме тройников много всякого добра. Вот тут я сам не уверен. Я говорил о свойствах блоков. Думаю, через LISP до них легко можно добраться и отредактировать сразу после вставки блока (конкретного вхождения блока).

Хорошо бы примерчик какой?

Сообщение от Сергей Дубина Хорошо бы примерчик какой?

Начало изучение LISP'a в моих планах только со следующей недели
Так что от меня примерчики - через некоторое время.

Добавлено:
Offtop: Сергей Дубина, тэги поправь в своем крайнем сообщении, а то я сначала нифига не понял, когда ж я это писал про 130 блоков да еще и по какому-то ГОСТу.

[Makswell]

Если блок только что вставили, то естественно (entlast) его и вернёт

Далее можно получить список vla-указателей на динамические свойства блока.

Код:

[Выделить все]

(vlax-safearray->list
  (vlax-variant-value
    (vla-GetDynamicBlockProperties (vlax-ename->vla-object (entlast)))
  )
)

Ну и делать с ними всё, что захочешь.

[Krieger]

Сообщение от Сергей Дубина Хорошо бы примерчик какой?

Изменение свойств динамических блоков:
http://www.caduser.ru/forum/index.ph...D=44&TID=36703

[Сергей Дубина]

Спасибо.
А на VBA посоветуете?

[AlexV]

К примеру, в файле чертежа имеем описание динамического блока "Block1" с параметром видимости "Видимость" и состояниями этого параметра "Видимость1" и "Видимость2", а также линейный параметр "Длина". Следующий код, повешенный на CommandButton1, вставляет блок и присваивает соответствующие значения дин. параметрам, беря их из TextBox1 и ComboBox1 (эти элементы, естественно, надо разместить на форме).

Код:

[Выделить все]

Private Sub CommandButton1_Click()
On Error GoTo err_ch
Dim insertedBlock As AcadBlockReference, AttrDin, InsertPnt, obj
InsertPnt = ThisDrawing.Utility.GetPoint(, vbCrLf & "Точка вставки....")
Set insertedBlock = ThisDrawing.ModelSpace.InsertBlock(InsertPnt, "Block1", 1#, 1#, 1#, 0#)
AttrDin = insertedBlock.GetDynamicBlockProperties
 For Each obj In AttrDin
   If obj.PropertyName = "Длина" Then
     obj.Value = Val(TextBox1.Value)
   End If
   If obj.PropertyName = "Видимость" Then
     Select Case ComboBox1.Value
      Case "Вариант 1"
       obj.Value = "Видимость1"
      Case "Вариант 2"
       obj.Value = "Видимость2"
   End If
 Next
Exit Sub
err_ch:
Err.Clear
End Sub

Само собой, надо еще дописать проверок разных (на наличие в файле описания блока, на соответствие значений ComboBox1 и TextBox1 вариантам в динамических параметрах и т.д.), форму - если модальная - перед InsertPnt = ThisDrawing.Utility.GetPoint... скрывать, после вставки блока - возварщать. Вообще, имея базу данных на изделия и коллекцию блоков (динамических и прочих), можно с помощью VBA неплохих результатов добиться (от вставки в чертеж до автоматического оформления спецификаций).

[Сергей Дубина]

Спасибо.