Спасибо много сообщений на каждое отвечать не к чему.
Алексей Терно да нужны красные кружки при чем они масштабируются при зумировании (это наверное допиливать надо). Задача в пометке точек полилинии и не только, просто зачастую приходится обводить по полилинии, а точек с малым радиусом не видно.
Александр Ривилис Ваш пример обязательно попробую, по результатам напишу.
DrawJig (на всякий случай), а что это такое и как использовать?
Почему то ни чего не происходит, весь код мне не нужен, круг точно получает данные - я их потом считывал, но вот на чертеже ни чего не появляется, есть один нюанс что в примере происходило конвертирование координат, но там весь пример на это был заточен.
Dim activeDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim selPline = New PromptEntityOptions(vbLf & "Выберите полилинию")
selPline.SetRejectMessage(vbLf & "Должна быть полилиния")
selPline.AddAllowedClass(GetType(Polyline), True)
Dim res = ed.GetEntity(selPline)
If res.Status <> PromptStatus.OK Then Return
Dim PID As ObjectId = res.ObjectId
Dim cPline As Polyline
Application.DocumentManager.MdiActiveDocument.LockDocument()
Using tr As Transaction = Application.DocumentManager.MdiActiveDocument.Database.TransactionManager.StartTransaction()
cPline = tr.GetObject(PID, OpenMode.ForWrite, False, True)
tr.Commit()
End Using
Dim sp As New Point3d(cPLine.StartPoint(0), cPLine.StartPoint(1), 0)
Dim ep As New Point3d(cPLine.EndPoint(0), cPLine.EndPoint(1), 0)
Dim tCircle As New Circle
tCircle.Center = sp
tCircle.Radius = 2.5
Dim coll As New IntegerCollection
Autodesk.AutoCAD.GraphicsInterface.TransientManager.CurrentTransientManager.AddTransient(tCircle, Autodesk.AutoCAD.GraphicsInterface.TransientDrawingMode.DirectShortTerm, 128, coll)
' тут я прерываю и смотрю получилось ли, точнее прочто не выполняю остаток кода
Autodesk.AutoCAD.GraphicsInterface.TransientManager.CurrentTransientManager.EraseTransient(tCircle, coll)
tCircle.Dispose()
