|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
пробуй так
Код:
__________________
Мастерская СПДС |
||||
|
||||
Инженер Регистрация: 02.10.2008
С-Пб
Сообщений: 3,686
|
Цитата:
Цитата:
Да из автокада - не проблема, в принципе, и без excel обойтись. Тут просто задумка была - коллегам помочь одной утилиткой, ввиду того, что далеко не только лишь все имеют vba enabler, как и желание узнать, что это такое. А эксель - у всех есть, и vba в офисе встроенный.. На самом деле, можно кончено обойтись и без фильтра, перебором листов и таблиц, просто через эксель это прилично дольше получается.
__________________
...Не пытайся гнуть ты ложку, Не вяжи её узлом. Ложка - ложка понарошку, А по правде, - это лом! |
|||
|
||||
AlexV ты все же попробуй этот код
__________________
Мастерская СПДС |
||||
|
||||
Инженер Регистрация: 02.10.2008
С-Пб
Сообщений: 3,686
|
Да не, не прокатит, - как ни получай returnObj, в любом случае returnObj.OwnerID в объектной модели автокад 64b будет иметь тип LongLong, и при попытке его съесть / положить в привычный тип Long Excel 32b давится..
Цитата:
В принципе, почти все это я "на коленке" уже сделал на Autocad vba, хотелось просто перенести на excel. ..а "другими языками" не владею, увы.. ----- добавлено через ~9 мин. ----- Цитата:
А, дело, пожалуй, не в SelectOnScreen.. С Select тоже получилось.. То ли дело в типе переменной returnObj из кода в #21 (я ее пытался то как AcadTable, то как AcadEntity, то как AcadObject, а у doctorraz тип не задается.. Хотя как variant я вроде тож пытался.. Или, может, то что я этот returnObj параметром в другую функцию передавал, а тут все внутри "главной" процедуры..
__________________
...Не пытайся гнуть ты ложку, Не вяжи её узлом. Ложка - ложка понарошку, А по правде, - это лом! Последний раз редактировалось AlexV, 09.01.2018 в 17:28. |
|||
|
||||
дело в селектионсет автокад
под твою задачу самое то.. одним селектом со всего документа собираешь все нужные таблицы, можно еще задать кучу фильтров и условий для селекта, потом спокойно в цикле тянешь из них данные.. аналогично таблицы спдс, только по ссылке передаешь их в мссом и тоже шерстишь средствами спдс.. ну и общий цикл по всем документам... только не забывай, что селсет принадлежит документу.. дл каждого свой... ----- добавлено через ~2 мин. ----- думае все дело в способе ее получения, на 64х разницы нет на 32х есть.... не знаю почему
__________________
Мастерская СПДС |
||||
|
||||
Инженер Регистрация: 02.10.2008
С-Пб
Сообщений: 3,686
|
Цитата:
Код:
__________________
...Не пытайся гнуть ты ложку, Не вяжи её узлом. Ложка - ложка понарошку, А по правде, - это лом! |
|||
|
||||
что это?
----- добавлено через ~4 мин. ----- Код:
в нанокад этот код не работает, в автокад на ура
__________________
Мастерская СПДС |
||||
|
||||
Инженер Регистрация: 02.10.2008
С-Пб
Сообщений: 3,686
|
Ну, не знаю, справка вроде говорит, что не стринг..
Цитата:
Это секретная функция , которая возвращает Select с фильтром.. Private Function SelectTable(y) As AcadSelectionSet *** objSelSet.Select acSelectionSetAll, , , groupCode, dataCode Set SelectTable = objSelSet End Function
__________________
...Не пытайся гнуть ты ложку, Не вяжи её узлом. Ложка - ложка понарошку, А по правде, - это лом! |
|||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Autodesk Navisworks Manage 2017 - как узнать объём объекта? | jzgte-2 | Прочее ПО от Autodesk | 0 | 09.10.2017 23:32 |
Можно ли выбрать объект модели из листа не активируя видовой экран? | mkung | Программирование | 24 | 25.06.2014 09:31 |
Ошибка при экспортировании листа в пространство модели в ASD 2011 | moongerm | Вертикальные решения на базе AutoCAD | 3 | 11.03.2011 12:07 |
Каким образом можно выкупить стройматериалы с объекта долгостроя | Stitch | Разное | 12 | 15.04.2010 09:36 |
Как можно открыть чертеж через LISP на котором стоит пароль? | ivspec | LISP | 7 | 10.02.2006 17:36 |