Jump to content

doctorraz

Пользователи
  • Posts

    4,174
  • Joined

  • Last visited

  • Days Won

    363

doctorraz last won the day on January 26

doctorraz had the most liked content!

3 Followers

About doctorraz

Контакты

  • Сайт
    http://doctorraz.blogspot.com
  • Skype
    doctorraz

Информация

  • Пол
    Мужчина
  • Город
    Волгоград
  • Интересы
    Думаю, как сделать, что бы ничего не делать

Recent Profile Visitors

27,385 profile views

doctorraz's Achievements

  1. Dim strOwnerID As String strOwnerID = returnObj.OwnerID NameVkladkiObiekta = ThisDrawing.ObjectIdToObject(strOwnerID).Layout.Name MsgBox "Объект принадлежит " & NameVkladkiObiekta
  2. а сообщения о том, что файл защищен от записи (при явном открытии его только для чтения) вообще эпик фэйл -------------- нужна возможность загасить все эти сообщения... при пакетной обработке особо доставляет((
  3. если б сделали то об этом уже было известно походу не успели(((
  4. Нанодев пошел по "простому" пути Импортирует все внутреннее, плюс то что заказали Такто автостол заморочился.. импортирует, что заказали плюс то что относится к заказанному, позамороченней конечно, но и результат не для галочки
  5. имха нет, не целое каждое пространство (модель лист) это блок внутри него могут быть вхождения блоков а могут не быть описания блоков вне этих пространств, модель/лист и описание блока на одном уровне должно притащиться, только то что содержится в импортируемом пространстве так то у меня может генплан звездной системы в модели блоками, и что при импорте листа эти все описания мне должны прилететь? я жэж только параметры печати с настроенными листами получить хотел по крайней мере в оригинале мусор в виде описаний блоков без вхождений в импортируемом пространстве не прилетает ---------- бага это добавлено через 1 минуту кстати похоже поэтому (что тащит все из чертежа) нана при "Лист по шаблону" тупит безбожно
  6. Dim Id_tek As LongLong а лучше Variant (32х /64) -------------- что за нана? тут спотыкается? Set app = GetObject(, "nanoCAD.Application") а так тоже Sub my_drawing1() 'Dim Id_tek As Variant 'Dim app As nanoCAD.Application Dim ThisDrawing ' As nanoCAD.Document Set app = GetObject(, "nanoCAD.Application") app.Visible = True Set ThisDrawing = app.ActiveDocument Id_tek = ThisDrawing.ModelSpace.Item(0).ObjectID MsgBox Id_tek End Sub
  7. нанодев должен включать его в комплект поставки, вместе с костылями
  8. выше я тебе писал немного про другое что то подобное должно быть и в твоей IDE поставить бряк в нужной строке и после выполнения этой строки навести на переменную курсор, высветится значение, либо посмотреть в окне Локальные/Видимые но это справедливо для MVS, у тебя возможно называться будет по другому, но принцип тот жэж все программы клоны друг друга (самой первой программы)))
  9. У размеров не изменяется масштаб символов Размеры аннотативные проверьте пожалуйста у кого есть возможность dim anotate not scale.dwg
  10. @yum если в файле такой блок, некоторые команды не работают, ну и вылетает нк... имха бага блокирующая использую нк23 как вьювер, пока мне ни на что больше не годится
  11. Иногда по разным причинам требуется оставить нк запущенным Для того, что бы IDE смогла пересобрать библиотеку, старую нужно переименовать руками (любое имя хоть 000 без расширения) старая библиотека так и останется в памяти загруженного нк Этот жэж фокус работает с запущенными экзешниками, удалить перезаписать нельзя, переименовать можно добавлено через 3 минут @aerohost ну чтобы начинать не с пустого места Зарегистрируйсяв клубе разработчиков, если еще нет и скачай SDK для нк с которым будешь работать Чтоб начать этого достаточно
×
×
  • Create New...