Тема от Tony (изменено: Роман Соколов, 15 апреля 2011г. 14:57:35)

  • Tony
  • Участник
  • На форуме с 21 февраля 2011г.
  • Сообщений: 63
  • Спасибо: 0

Тема: Штриховка в блоке

Есть динамический блок. В нем асоциативная штриховка привязывается к прямоугольнику.Блок растягивается и штрихвка в нем тоже. Если это делать програмно (VB.net) в автокаде 2010, то всё нормально, А вот с 2011 проблема. Штриховка остается на месте, пока не потянуть за метку. Может всё дело в какой-нибудь системной перменной или "галочке".....

  • Tony
  • Участник
  • На форуме с 21 февраля 2011г.
  • Сообщений: 63
  • Спасибо: 0

Re: Штриховка в блоке

Кто-нибудь в курсе??? Помогите пожалуйста!!!

  • Modis
  • Modis
  • Активный участник
  • Откуда: Липецк
  • На форуме с 17 февраля 2008г.
  • Сообщений: 892
  • Спасибо: 14

Re: Штриховка в блоке

Как скажут тут многие - без кода неясно! :)

  • Tony
  • Участник
  • На форуме с 21 февраля 2011г.
  • Сообщений: 63
  • Спасибо: 0

Re: Штриховка в блоке

<code>
Private Sub ToolStripMenuItem_Click....

Dim AcadApp As AcadApplication = Nothing
Dim Activdoc As AcadDocument = Nothing
Dim varAttributes vardynamicblockproperties As Object
Dim truba As Object

AcadApp = DirectCast(Marshal.GetActiveObject(progIDstr), AcadApplication)
Activdoc = AcadApp.ActiveDocument
truba = Activdoc.ModelSpace.InsertBlock(T2, "Труба", 1, 1, 1, 0)
vardynamicblockproperties = truba.getdynamicblockproperties
vardynamicblockproperties(0).value = CDbl(10) ' растягивает блок
.......



</code>


Блок меняется, а вот штриховка остается на месте, пока прямо в автокаде как-нибудь не изменить блок...Такая проблема в Акаде 2011, в других нет...