VBA как использовать новый обьект после Offset

sergtranes · 07.07.2014, 14:00

Подскажите как воспользоваться новым обектом после Offset
конструкция:

Код:
[Выделить все]
Public Sub OffLine()
Dim fLine, tLine1, tLine2 As AcadLine
Dim off1, off2 As Variant
Dim sPO(0 To 2) As Double
Dim ePO(0 To 2) As Double

sPO(0) = 0
sPO(1) = 0
ePO(0) = 1350
ePO(1) = 470
Set fLine = ThisDrawing.ModelSpace.AddLine(sPO, ePO)
off1 = fLine.Offset(50)
Set tLine1 = off1(0)
MsgBox tLine1.StartPoint(0)

End Sub
работала около1 часа и перестала!

как правильно получить обьект новой линиии?
спасибо

Кулик Алексей aka kpblc · 07.07.2014, 14:05

Что значит "перестала"? Объект не создается? Объект не "оффсетится"? На каком месте "спотык"?

07.07.2014, 14:00		#1
VBA как использовать новый обьект после Offset sergtranes проектирование "чистых комнат" Хайфа Регистрация: 07.02.2011 Сообщений: 51 Подскажите как воспользоваться новым обектом после Offset конструкция: Код: [Выделить все] Public Sub OffLine() Dim fLine, tLine1, tLine2 As AcadLine Dim off1, off2 As Variant Dim sPO(0 To 2) As Double Dim ePO(0 To 2) As Double sPO(0) = 0 sPO(1) = 0 ePO(0) = 1350 ePO(1) = 470 Set fLine = ThisDrawing.ModelSpace.AddLine(sPO, ePO) off1 = fLine.Offset(50) Set tLine1 = off1(0) MsgBox tLine1.StartPoint(0) End Sub работала около1 часа и перестала! как правильно получить обьект новой линиии? спасибо
Просмотров: 2133

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Разработка ПОС, искусство проектирования	Tyhig	Технология и организация строительства	117	25.11.2021 17:38
Point Name, 3D offset и др. в Autodesk Land Desktop 2007	Re-Maker	Вертикальные решения на базе AutoCAD	2	12.08.2014 10:19
После переноса чертежа в новый 3D документ при вращении и зуме чертеж неисправен	micromodeler	AutoCAD	2	28.09.2012 17:21
Как лучше всего использовать старый рабочий проект капремонта и стоит ли делать новый?	crono	Архитектура	9	11.03.2012 14:21
Select после Offset	Positron	AutoCAD	6	28.02.2010 14:19