Перейти к содержанию

sandymen

Пользователи
  • Публикаций

    27
  • Зарегистрирован

  • Посещение

Репутация

0 Обычный

Информация о sandymen

  • Звание
    Посетитель

Информация

  • Пол
    Мужчина
  1. Угу, спасибо, посмотрю. Хотя на первый взгляд, ничего из перечисленного в указанном топике не наблюдается. Но перепроверю.
  2. NanoCAD v5.1 free. Собственно сабж. На некоторых машинах, после нескольких десятков секунд, Винда выдает стандартное сообщение. Типа память адрес такой-то не может быть read адрес эдакий. Было подозрение на графический режим. Перебрал (если времени хватало) все три OpenGL и DirectX - не помогло. Куда копать?
  3. Проблему выбора масштаба объектов или масштаба оформления решил с помощью McObjectManager.CurrentStyle.IsMeasurementScalingMode. [CommandMethod("TestScl")] public void TestScl() { McObjectManager.CurrentStyle.IsMeasurementScalingMode = false; double ScaleDwg = McObjectManager.CurrentStyle.Scale; ScaleDwg = .25; McObjectManager.CurrentStyle.Scale = ScaleDwg; }
  4. Уря-я. Работает. Действительно, мне необходимо было изменять масштаб оформления, а рисовать всегда 1:1. Но вопрос остался открытым. Если по умолчанию в наноКАДе будет стоять какой-либо масштаб объектов (с большой "М"), то код не работает.
  5. Что-то не получается с McObjectManager.CurrentStyle.Scale. Кое-как скомпилировал библиотеку классов. При запуске всегда получаю Scale = 1. Даже если вручную ставлю, к примеру, М4:1. namespace ClassLibrary1 { using System; using System.Collections.Generic; using System.Linq; using System.Text; using Teigha.DatabaseServices; using Teigha.Runtime; using Teigha.Geometry; using HostMgd.ApplicationServices; using HostMgd.EditorInput; using Platform = HostMgd; using PlatformDb = Teigha; using Multicad; using Multicad.DatabaseServices; public class Class1 { [CommandMethod("Test")] public void Te
  6. Крыша поехала от обилия информации. MultiCAD + .NET + Delphi + Microsoft Visual Studio. Делфи для .NET это плагин для MVS, и множество иных нюансов. Да и типа не всякий MVS для WinXP годен, опять же serial key найти нужно. Тупое конвертирование mcsAddin.h в mcsAddin.pas не канает, много дополнительных *.h подключено. Блин, на LISP'е не получилось. Delphi & OLE тоже не помогло. В третий раз надо пробовать Автокадовский Лисп адаптировать под Нанокад. Це крик души, не обращать внимание. Короче, вопрос. Сможет ли дельфиец, установивший Visual Studio Test Professional 2010, опираясь на
  7. Никак не могу сообразить как сабж установить программно. Допустим после установки nanoCAD по умолчанию в новом чертеже имеем 1:100. А если надо 2:1 или 1:1 ?
  8. Разобрался в чем дело. То ли по запарке, то ли подсмотрел где, но вставку блока присваивал ncadModel ncadModel:=ncadModel.InsertBlock(p0,BlockPath+'BORDER.dwg',1,1,1,0); Ясно почему повторное обращение к ncadModel.InsertBlock вызывало ошибку. Стал использовать отдельную переменную bl, нормально теперь срабатывает.
  9. Вот еще проблема. Не могу вставить два блока подряд. Один - легко, на вставке второго ошибка. Глюк из той же серии, что и подключение через COM? procedure TForm1.BtnOkClick(Sender: TObject); var ncad, ncadDoc, ncadModel: Variant; p0: variant; BlockPath:string; begin try ncad:= GetActiveOLEObject('nanoCAD.Application'); ncadDoc:= ncad.ActiveDocument; ncadModel:=ncadDoc.ModelSpace; p0 := VarArrayCreate([0,2], varDouble); ncad.Visible:=True; p0:= ncadDoc.Utility.GetPoint(,'Укажите точку вставки: '); //Блок рядом с exe BlockPath:=ExtractFilePath(Application.ExeNa
  10. Не знаю, стоит ли регистрировать задачу в багтрекере Клуба разработчиков... Подшефные пользователи не могут выйти из режима редактирования блока. Все привыкли к Автокаду, и в упор не видят панельку с пятью кнопками выше указанного режима. Да и появляется она как-то незаметно среди других панелей инструментов. А в 2006-м Автокаде просто висит неперемещаемая панель инструментов в верхней части рабочего пространства. Кнопку "Закрыть редактор блоков" не заметить сложно. Регистрируем новую задачу?
  11. Вроде этой версией может пользоваться только участник Клуба разработчиков. Не помню точно соглашение. Т.е. пока на уже имеющиеся бесплатные лицензии я могу писать только с учетом ошибок 5.1?
  12. Запускаю простенькую процедуру, но подключиться к текущей сессии получается только один раз. После чего надо перезапускать nanoCAD, иначе в следующий раз вылетает EOleSysError. Что делаю не так? procedure TForm1.BtnOkClick(Sender: TObject); var ncad, ncadDoc: Variant; p0: variant; begin try ncad:= GetActiveOLEObject('nanoCAD.Application'); ncadDoc:= ncad.ActiveDocument; p0 := VarArrayCreate([0,2], varDouble); ncad.Visible:=True; p0:= ncadDoc.Utility.GetPoint(,'Укажите точку вставки: '); except on EOleException do MessageDlg('Ошибка связи с nanoCAD.',mtWarn
  13. Поиск по форуму показал, что еще летом упомянутых полей вроде как не было. Смотреть здесь. Но вроде с тех пор вышла версия 5.1. Ее и установил (ранние версии не использовал). Во-от... Загрузка Автокадовского файла с полями, показала выделение их цветом. Ввод _fielddisplay подтвердил, данная переменная существует, а значит наноКаду известно, что такое поля. Пересохранение файла, с последующей загрузкой в Автокад, ни коим образом не повредила работоспособности полей. Что еще раз подтверждает, объект наноКадом распознается. Однако, редактирование полей в наноКаде приводит к разбиению на пр
  14. Раз уж дело в версиях, то тема закрыта. Задачу 138 в Клубе разработчиков повторно убить.
×
×
  • Создать...