[veb86]

Здравствуйте!
Я разработал несколько инструментов на SharpDevelop под Bricscad 2014, сейчас условия труда у меня сменились и я сижу за Autocad2020. Подскажите какой VisualStudio надо скачать, и что еще нужно что бы пере компилировать свои наработки. Дайте пожалуйста связку программ.

[Кулик Алексей aka kpblc]

ИМХО 2019 Community Edition вполне должно хватить

[румата]

Бесплатной версии VS2019 полностью хватит для программирования под AutoCAD. А вот для простого перекомпилирования своих наработок под Brics нужно будет полное совпадение объектных моделей ACAD и Bricscad, что маловероятно в принципе. Поэтому, скорее всего, будет нужно переписывать код или его части.

[Boxa]

под автокад на .NET можно и в SharpDevelop писать, VS тут как бы не обязательна, сам сначала SD пользовался, нормально было...

[Сергей812]

Сообщение от Boxa SharpDevelop

к сожалению, в 2016 завершилась разработка продукта.

[veb86]

Сообщение от румата А вот для простого перекомпилирования своих наработок под Brics нужно будет полное совпадение объектных моделей ACAD и Bricscad, что маловероятно в принципе. Поэтому, скорее всего, будет нужно переписывать код или его части.

Не сомневаюсь что так и будет. Думаю разберусь.

Сообщение от Сергей812 к сожалению, в 2016 завершилась разработка продукта.

Вот изза этого и хочу идти в сторону VS, очень расстроен SharpDevelop был легкий и удобный, и меня полностью устраивал.
А вообще меня напугали, сказали что VS2019 весит 40Гб, но для компилирования библиотек для автокада говорят достаточно облегченной версии. Хотел скачать обычную бесплатную версию. Может кто то точно знает как правильно установить VisualStudio без лишнего. И еще вроде бы SDK Autocad2020 нужна, подскажите где ее скачать.

[Boxa]

Сообщение от veb86 И еще вроде бы SDK Autocad2020 нужна, подскажите где ее скачать.

Тут: https://www.autodesk.com/developer-n...cense-download

[Сергей812]

Сообщение от veb86 А вообще меня напугали, сказали что VS2019 весит 40Гб,

может и больше - если все пакеты ставить Но вам то один шарп нужен

Сообщение от veb86 И еще вроде бы SDK Autocad2020 нужна, подскажите где ее скачать.

можно тут

[румата]

Сообщение от veb86 А вообще меня напугали, сказали что VS2019 весит 40Гб...

Это если все поддерживаемые ЯПы и средства разработки устанавливать. А так, если средства разработки для одного только NetFramework там значительно меньше гигабайтов памяти потребуется

Сообщение от veb86 И еще вроде бы SDK Autocad2020 нужна, подскажите где ее скачать.

В принципе можно и без нее обойтись, если автокад установлен на том же PC.

[Boxa]

SDK Autocad2020 по честному и качать то не нужно... Nuget наше все =)

[veb86]

Извините, еще по мучаю общество. Начал устанавливать и офигел от количества компонентов. Есть вопросы, посмотрите достаточно ли того что я выбрал, что бы компилить модули под AutoCAD?

[Кулик Алексей aka kpblc]

Достаточно ИМХО. Остальное по мере надобности докинешь.

[румата]

Сообщение от veb86 ...достаточно ли того что я выбрал, что бы компилить модули под AutoCAD?

По-моему, для разработки под ACAD2020 требуется версия NetFramework не ниже 4.7

[Кулик Алексей aka kpblc]

Сообщение от румата По-моему, для разработки под ACAD2020 требуется версия NetFramework не ниже 4.7

Ну, при подключении соответствующих библиотек студия сама об этом скажет

[veb86]

Нужна помощь, вы меня запутали, нужна мне SDK Autocad2020 или нет? Я не планирую создавать ObkectARX.
Я поставил VS открыл свой проект, нашел в корне автокада нужные мне библиотеки: acdbmgb.dll, acdmgdbrep.dll , acmgd.dll.
Но столкнулся со странным поведением. компилятор ругается на обычные действия, такое чувство я еще что то не подключил.
Вот пример на что ругается:

Код:

[Выделить все]

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.Runtime
Imports System.Threading
Imports Autodesk.AutoCAD.Customization
Imports System.Windows

Public Shared acDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim pPtOpts As PromptPointOptions = New PromptPointOptions("") ''Promptfor the start point

что не так делаю, чего не хватает?

[Кулик Алексей aka kpblc]

А ты что пишешь - команду или лисп-функцию? И где их объявления?

[Boxa]

Это весть код?
А где класс? Где собственно метод команды?
Средь бела поля создавать переменные.... ну как бы компилятор прав.

Как то так это должно выглядеть...

Код:

[Выделить все]

Imports System
Imports App = Autodesk.AutoCAD.ApplicationServices
Imports cad = Autodesk.AutoCAD.ApplicationServices.Application
Imports Db = Autodesk.AutoCAD.DatabaseServices
Imports Ed = Autodesk.AutoCAD.EditorInput
Imports Gem = Autodesk.AutoCAD.Geometry
Imports Rtm = Autodesk.AutoCAD.Runtime

<Assembly: Rtm.CommandClass(GetType(ElectricalSceme.Commands1))>
Namespace ElectricalSceme
    Public Class Commands1
        <Rtm.CommandMethod("Commanda1")>
        Shared Public Sub Comanda()
            Dim doc As App.Document = App.Application.DocumentManager.MdiActiveDocument
            Dim db As Db.Database = doc.Database
            Dim ed As Ed.Editor = doc.Editor
        End Sub
    End Class
End Namespace

[veb86]

Код:

[Выделить все]

 ODA
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry


Public Class Summator
	<CommandMethod("Summator")> _	
	Public Sub sumStart()
		
		'Получаем коллекцию элементов для суммирования
		Dim objectForSum As SelectionSet = GetCollectionObject()
		
		Dim settingAll As New settingXML
		settingAll = allFunc.getSettingAll()
		
		'Получаем масштаб чертежа на основе текста
		Dim mashtab As Double = analizMashtab.analizMashtab(objectForSum,settingAll.arrScale)
		
		Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
		Dim acCurDb As Database = acDoc.Database
		
		'Dim listLine As New List(Of propertyLine)
		'Dim newListLine As New List(Of propertyLine)
		
		
		Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
			
			' Цикл перебор всех элементов из коллекции элементов
			Dim textNumber As String 
			Dim summ As Double = 0
			For Each acSSObj As SelectedObject in objectForSum
				' Проверяет есть ли элементы в коллекции или нет
				textNumber = CType(0, String)
				If Not IsDBNull(acSSObj) Then
					
					Dim dMText As MText = TryCast(acTrans.GetObject(acSSObj.ObjectId, OpenMode.ForWrite), MText)
					
					If (Not dMText Is Nothing) Then
						textNumber = dMText.Text
						textNumber = textNumber.Replace(".", ",")
					End If
					
					Dim dText As DBText = TryCast(acTrans.GetObject(acSSObj.ObjectId, OpenMode.ForWrite), DBText)
						
					If (Not dText Is Nothing) Then
						textNumber = dText.TextString	
						textNumber = textNumber.Replace(".", ",")
					End If
				End If
				summ = summ + CType(textNumber, Double)
			Next 
			Dim acBlkTbl As BlockTable
		      acBlkTbl = TryCast(acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead), BlockTable)
				
		      '' Open the Block table record Model space for write
		      Dim acBlkTblRec As BlockTableRecord
		      acBlkTblRec = TryCast(acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)
		 
		      '' Create a single-line text object
		      Dim acText As DBText = New DBText()
		      acText.SetDatabaseDefaults()
		      
		      Dim pPtOpts As PromptPointOptions = New PromptPointOptions("")
 
			  '' Prompt for the start point
			  pPtOpts.Message = vbLf & "Выберите место для установки суммы: "
		      Dim pPtRes As PromptPointResult
		      pPtRes = acDoc.Editor.GetPoint(pPtOpts)
		      Dim ptStart As Point3d = pPtRes.Value
		      
		      acText.Position = ptStart
		      
		      acText.Height = 2.5 * mashtab
		      acText.TextString = CType(summ,String)
		 
		      acBlkTblRec.AppendEntity(acText)
		      acTrans.AddNewlyCreatedDBObject(acText, True)
		 
		      '' Save the changes and dispose of the transaction
		      acTrans.Commit()
 
			'searchLinePoint = newListLine
		End Using
		
	End Sub	
	
	
	
	Public Shared Function GetCollectionObject() As SelectionSet
		'' Get the current document and database
		
		Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
		Dim acCurDb As Database = acDoc.Database
		Dim acSSPrompt As PromptSelectionResult
		acSSPrompt = acDoc.Editor.GetSelection()
		'' If the prompt status is OK, objects were selected
		If acSSPrompt.Status = PromptStatus.OK Then
			GetCollectionObject = acSSPrompt.Value
		End If
	End Function
	
	
End Class

Ну вот пример сумматор обычный. В нем те же ошибки
Ругается еще на <CommandMethod("Summator")> _
Сейчас может по другому объявляют команды.
Писал сам, в основном копипастил с autocad-кого хелпа. Верой и правдой код работал лет 5

[Boxa]

AcCoreMgd.dll ?
и пространство имен : Autodesk.AutoCAD.Runtime не подключено, там атрибут CommandMethod определен.

[veb86]

Сообщение от Boxa AcCoreMgd.dll ?

Добавил стало лучше Но ошибок все равно куча, странных.

[Сергей812]

Сообщение от veb86 acdbmgb.dll, acdmgdbrep.dll , acmgd.dll.

флаг копирования локально сброшен для данных библиотек в свойствах ссылок?

[veb86]

РАБОТАЕТ!!! Код скомпилировал, все заработало. Огромное всем спасибо. Ну по крайней мере сумматор заработал, а значит библиотека запустилась.
Еще глупый вопрос. А как Вы занимаетесь отладкой кода? В zcad-е когда компилируешь его из Лазаруса, запускается отладчик и при ошибке он показывает строчку. Как это же самое провернуть с Автокадом и VS?
Помогло добавление accoremgd.dll

[Boxa]

В настройках отладки, укажи запуск внешней программы - acad.exe

[Кулик Алексей aka kpblc]

ИМХО это не решает проблему, когда в код надо вносить изменения "на лету" Приходится останавливать ACAD, вносить изменения, и снова запускать

[румата]

Сообщение от Кулик Алексей aka kpblc ИМХО это не решает проблему, когда в код надо вносить изменения "на лету" Приходится останавливать ACAD, вносить изменения, и снова запускать

Ну это же не встроенный лисп дебаг. За все в этой жизни нужно платить.

[Boxa]

Кулик Алексей aka kpblc, это было в 2017 студии, в 2019 можно и на лету править (до определенного предела конечно и только при остановке на BP)

[Кулик Алексей aka kpblc]

Boxa, там, по-моему, что-то в настройках студии надо менять. А потом для релиза обратно ставить? Или нет?

[Boxa]

Кулик Алексей aka kpblc, ничего не меняю, само работает.

[Кулик Алексей aka kpblc]

Offtop:

Сообщение от Boxa Кулик Алексей aka kpblc, ничего не меняю, само работает.

Странно. У меня как раз релиз, выпущенный под VS2019 без изменения (что-то там насчет отладки кода было, кажется. Вот блин, забыл!) рушил ACAD2018 и 2019. Надо будет вспомнить настройку, вернуть ее обратно и посмотреть, чего получается. Если код можно хоть чуть-чуть править - уже хорошо

[Boxa]

Маленький видео пример

[румата]

Править ничего нельзя во время отладки. Кое-то можно только если приостановить отладку без закрытия программы, а затем продолжить дебажить с учетом изменений. Но компилируемые классы и объекты так менять все равно не получится.

[Кулик Алексей aka kpblc]

Что значит "компилируемые классы и объекты" и чем они отличаются от "некомпилируемых" или "не скомпилированных"? Мне это реально интересно, я без капли наезда.
Я искренне полагал, что все приложение собирается в единый модуль (ну или не единый, не столь суть важно) и объекты в нем уже "скомпилированы". Offtop: Понятно, что менять структуру класса, вводить новые структуры, классы и перечисления никто не даст.

[румата]

Сообщение от Кулик Алексей aka kpblc Что значит "компилируемые классы и объекты" и чем они отличаются от "некомпилируемых" или "не скомпилированных"?

Да, не хорошо выразился.

Сообщение от Кулик Алексей aka kpblc Понятно, что менять структуру класса, вводить новые структуры, классы и перечисления никто не даст.

Именно это имелось в виду.

[Сергей812]

Ну развитость среды разработки + огромное количество готового кода в самом .Net фреймворке "из коробки" компенсируют эти недостатки, имхо)

[Alex_ml]

Пользуюсь последней версией VS Code, мне хватает