• Артём
  • Восстановленный участник
  • На форуме с 30 августа 2006г.
  • Сообщений: 47
  • Спасибо: 0

Тема: Замена (перезагрузка) существующего типа линии

Как программно перезагрузить тип линии?
обычная команда типа
ThisDrawing.Linetypes.Load STYLE_LINE, PathLT
при совпадении имен выдаст ошибку, мне же нужно заменить структуру линии

  • Артём
  • Восстановленный участник
  • На форуме с 30 августа 2006г.
  • Сообщений: 47
  • Спасибо: 0

Re: Замена (перезагрузка) существующего типа линии

конечно можно испльзовать командную строку типа
ThisDrawing.SendCommand "_-linetype _l STYLE_LINE" & vbCr
но тогда пользователю придется подтверждать перезагрузку линии и указывать файл загрузки линий
а если их 25 или 125 ??? проще загружать их тогда через диспечер типов линий самому пользователю...

  • На форуме с 7 ноября 2005г.
  • Сообщений: 505
  • Спасибо: 0

Re: Замена (перезагрузка) существующего типа линии

Артем пишет:

но тогда пользователю придется подтверждать перезагрузку линии и указывать файл загрузки линий

А зачем подтверждать пользователю?
Подтверждение и имя файла линий тоже можно впихнуть в этот же sendcommand.
Этот макрос у меня для кнопки: ^C^C_-linetype;l;nameoftype;nameoffile.lin;y;^C
Его легко можно переделать для sendcommand.
По первому вопросу не смогу подсказать, т.к. пока не приходилось знаниматься.

  • Артём
  • Восстановленный участник
  • На форуме с 30 августа 2006г.
  • Сообщений: 47
  • Спасибо: 0

Re: Замена (перезагрузка) существующего типа линии

Спасибо конечно
На кнопке действительно работает но вот програмно всеравно просит указать файл...
ThisDrawing.SendCommand "_-linetype" & vbCr & "_l" & vbCr & "nameoftype" & vbCr & "nameoffile" & vbCr & "_y " & vbCr
и путь к файлу в AutoCAD указан

  • На форуме с 7 ноября 2005г.
  • Сообщений: 505
  • Спасибо: 0

Re: Замена (перезагрузка) существующего типа линии

> Артем
Блин.. Действительно с кнопки окно не появляется, а при вводе в комстроке диалог выходит. Хотя команда и запускается в бездиалоговом режиме, вроде..
Ну тогда, чтоб наверняка, надо сделать вот так:

ThisDrawing.SetVariable "filedia", 0
ThisDrawing.SendCommand "_-linetype" & vbCr & "_l" & vbCr & "nameoftype" & vbCr & "nameoftype.lin" & vbCr & "_y " & vbCr
ThisDrawing.SetVariable "filedia", 1

  • Артём
  • Восстановленный участник
  • На форуме с 30 августа 2006г.
  • Сообщений: 47
  • Спасибо: 0

Re: Замена (перезагрузка) существующего типа линии

Да так действительно заработало, спасибо!