Проблема при копировании обозначения шероховатости

Автор Тема: Проблема при копировании обозначения шероховатости  (Прочитано 1620 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн xzenterАвтор темы

  • ADN OPEN
  • Сообщений: 29
  • Карма: 1
    • xzenter.com
  • Skype: xzenter
Добрый день, коллеги!

Столкнулся с проблемой при копировании обозначения шероховатости (Не ГОСТ), см. картинку.  Если в полях требований имеется символ, то при копировании он превращается в нечто иное. Существует ли способ обойти эту проблему?

Код, который использую для копирования обозначения шероховатости:

Код - vb.net [Выбрать]
  1. Dim oDrawDoc As DrawingDocument
  2. oDrawDoc = ThisApplication.ActiveDocument
  3.  
  4. Dim oActiveSheet As Sheet
  5. oActiveSheet = oDrawDoc.ActiveSheet
  6.  
  7. Dim oSymbol As SurfaceTextureSymbol
  8. oSymbol=oActiveSheet.SurfaceTextureSymbols.Item(1)
  9.  
  10. Dim oTG As TransientGeometry
  11. oTG = ThisApplication.TransientGeometry
  12.  
  13. Dim oLeaderPoints As ObjectCollection
  14. oLeaderPoints = ThisApplication.TransientObjects.CreateObjectCollection
  15.  
  16. oLeaderPoints.Add(oTG.CreatePoint2d(0, 0))
  17.  
  18. oActiveSheet.SurfaceTextureSymbols.AddByDefinition(oLeaderPoints, oSymbol.Definition)

« Последнее редактирование: 10-02-2020, 22:49:12 от xzenter »

Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 751
  • Карма: 195
  • Skype: mikazakov@mail.ru
Да это какие то форменные глюки.
Напишу им в техподдержку, может когда нить поправят.

Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 751
  • Карма: 195
  • Skype: mikazakov@mail.ru
xzenter,
Ну вообщем ответили, с Автодеска, что это глюк и когда-нибудь они его поправят.

Оффлайн xzenterАвтор темы

  • ADN OPEN
  • Сообщений: 29
  • Карма: 1
    • xzenter.com
  • Skype: xzenter
mikazakov, большое спасибо за поддержку! Остается только ждать и надеяться)