| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
10.10.2008, 14:45 | #1 | |
Передача примитивов в функции
Регистрация: 09.10.2008
Сообщений: 10
|
||
Просмотров: 2486
|
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,855
|
Покажи, как ты получаешь AcLine.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 09.10.2008
Сообщений: 10
|
Ну у меня есть чертеж с линиями типа AcDbLine, я их извлекаю из чертежа, загоняю в объект типа AcadLine и пытаюсь этот объет передать в функцию, но компилятор ругается.
Пишу код Dim line_list As Collection For Each obj in ThisDrawing.ModelSpace If (obj.ObjectName = "AcDbLine") Then line_list.Add obj End If Next Теперь у меня в line_list все объекты типа AcDbLine И теперь я пытаюсь передать эти объекты в функцию: Dim AcLine As AcadLine For Each line in line_list Set AcLine = line <- Здесь все нормально angle = getAngle(AcLine) <- Ошибка здесь! Next Не могу понять почему ошибка выскакивает, ведь присвоение ссылки проходит нормально и объект типа AcDbLine фактически становиться объектом с типом AcadLine. Т.о. не могу передать линию в другую функцию. Чо за фак? |
|||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Предложение: Готовые функции | Apelsinov | Библиотека функций | 170 | 27.06.2010 23:51 |
Как создать массив для группы примитивов в Bricscad? | Tonic | Программирование | 8 | 19.12.2007 09:22 |
Как связать две функции | Holon | Программирование | 11 | 30.07.2007 13:32 |
Выбор примитивов в функции (command) | mmax | Программирование | 12 | 19.05.2006 20:02 |
Странности функции rtos | FWA | Программирование | 2 | 16.02.2005 11:37 |