Закатывание радиусов

Исходить из того, что центр окружности будет лежать на бисектрисе.

это все хорошо, спасибо за ответы, но все таки хотелось бы узнать как это делается с помощью vba, ведь если акад это делает то и vba должен ?

С чего это Вы взяли? VBA не делает многое из того, что делает ACAD.
На исходный вопрос ответ такой: использовать метод SetBulge

тогда встречный вопрос:
подскажите метод объединеия отрезков в полилинию?

ну что ж спасибо за ответы, постораюсь воплотить их в жизнь

извиняюсь, что сразу не попробавал ваши советы, просто принял их к сведению, сейчас же когда пришло время воплощать их в жизнь, возникли ряд проблем, во первых
нужен оператор разбиения полилинии на примитивы, заказчику нужно что бы объект состоял из отдельных частей отрезков,дуг и т.д.
и второе при использовании метода  setbulge i,rad  происходит изменение участка полилинии, то есть отрезок с  индексом i закругляется, требуется же что бы закругление происходило в вершинах. например, если есть квадрат начерченый полилинией, то закруглятся должны не его стороны и а вершины с заданным радиусом, то есть поставленная задача не решена, хотелось бы услышать еще варианты ее решения!!!
З.Ы. еще раз извиняюсь за эти глупые вопросы, но работа требует их решения, заранее спасибо всем кто откликнется!!!

Это не так. Цитата из Help'a

Результат выполнения нижеследующей программы аналогичен скруглению полилинии с вершинами (0,0,0), (0,10,0), (10,10,0) радиусом 2 ед-цы (во второй вершине) с последующим разбиением на составные примитивы. Если есть желание, то разберетесь.

Sub qq()
Dim plineObj As AcadLWPolyline
Dim points(0 To 7) As Double
points(0) = 0#: points(1) = 0#
points(2) = 0#: points(3) = 8#
points(4) = 2#: points(5) = 10#
points(6) = 10#: points(7) = 10#
Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
plineObj.SetBulge 1, -(Sqr(2) - 1)
plineObj.Explode
Set plineObj = Nothing
End Sub