|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
Регистрация: 17.10.2008
Саратов
Сообщений: 426
|
Справочник команд AutoCAD 2008 > Системные переменные > Системные переменные U >
USERS1-5 Цитата:
|
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
USERS* - для хранения строковых значений
USERR* - то же, чисел с двойной точностью USERI* - то же, целых чисел. Код (как вариант, на лиспе): Код:
Добавлено: чуток фантазии и можно добавить практически все что угодно )
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
Offtop: Это радует
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 17.10.2008
Саратов
Сообщений: 426
|
Ну Алексей нахимичил.
Расскажи что это: Код:
(vl-catch-all-apply (function (lambda () ... - не очень. Типа обработка ошибки, при выборе. Но функция lambda без аргумента. Что происходит? Код:
Код:
Код:
И что делает отдельностоящий res? Можешь смальца пояснить, плиз. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
Чего-чего?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
Сейчас убегаю. Вернусь - попробую рассказать #26 И дальше....
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 17.10.2008
Саратов
Сообщений: 426
|
У тебя при (spds-node-select-like nil) - выбираются все объекты чертежа.
Добавил строчку: Код:
Долго обрабатывает весь чертеж, около 5-10 секунд. Потому что у нас в моделе всего порядка 12000 примитивов, из них порядка 2000 узловых выносок. У меня просто-то вся модель выбирается долго. Так вот, как бы сразу исключить из набора блоки, и .т.д(см рис.), или прям сразу отфильтровать выноски. Вот тут: Код:
|
|||
|
||||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
Ненадолго (до первого высказывания после меня) подниму тему.
По поводу #26:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
К №33:
1. Да, я как-то упустил фильтрацию по 0 группе. Звиняй. 2. "Прям сразу" отфильтровать выноски не удастся. Как вариант (втупую) - замени строку с назначением selset: Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 17.10.2008
Саратов
Сообщений: 426
|
Теперь все ваще нормуль.
Но вот тут я так и не понял Код:
Но куда формируется набор объектов во время выполнения function? Ведь по ходу перебора объектов из (fun_conv-selset-to-ename selset), obj_lst остается не изменным. И только после окончания function туда заносится ее результат. Ведь перед (function (lambda ()... - должен стоять apply или mapcar!? Получается что и (vl-remove-if-not может стоять Насчет (sssetfirst gripset[pickset]). Первый аргумент не нужен вроде - nill. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
Сейчас acad у меня занят (собака, файл обрабатывает уже больше 20 минут), поэтому пишу "насухую":
что означает (vl-remove-if Бла-бла-бла: из списка obj_lst удалить объекты, если в результате выполнения lamdba вернется t. Ну, например: (vl-remove-if (function (lamdba (x) (member x '(1 2 3)))) '(10 20 30 1 20 30 2 30 3)) Можешь поставить точку остановки на слове member и последовательно проверять значения х. -- sssetfirst: первый набор - выделить ручками. Второй - подсветить пунктиром. Или наоборот, уже не помню.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 17.10.2008
Саратов
Сообщений: 426
|
подвох, lambda=lambda )))
Понятно. Тока жалко не видно пошагового формирования итогового списка, возвращаемого после выполнения (vl-remove-if (function (lamdba (x) (member x '(1 2 3)))) '(10 20 30 1 20 30 2 30 3)). Цитата:
|
|||
|
||||
Регистрация: 17.10.2008
Саратов
Сообщений: 426
|
Цитата:
Единствено, я эту функцию вызываю из vbaшной формы (как бы это противно не звучало), на которой стоят галки для параметров выбора. Помоему удобней чем spqs, для заданных параметров. Там их конечно больше (все), но выбирать долго. зы еще бы суметь определять точки вставки выносок.( |
|||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Копирование данных для спецификаций из выносок СПДС в таблицу из мтекстов | Red Nova | Программирование | 177 | 08.12.2008 11:35 |