[alexdub]

Добрый день! задача следующая: файле (автокад) есть около 5 тыс. точек. у каждой свое значение координаты Z. нужна команда, которая будет при нажатии на точку вставлять рядом текст с этой координатой. сами понимаете, что смотреть координату в свойствах (или через inquiry), а потом печатать текстом слишком уж долго
посоветуйте, пожалуйста, литературу по написанию макросов (в детстве хорошо дружил с информатикой , думаю разберусь) а может у кого-то была похожая задача и подскажете советом, спасибо!

[TararykovDG]

Offtop:
Дима_, вопрос к Вам не по теме топика, а по искусству программирования, поэтому и оффтопом.
Ваш код, пост #13
Строка (cons 10 ((lambda (pt) (list (- (car pt) 200 ) (+ 50 (cadr pt)))) pt))
зачем здесь использовать lambda, а не просто (list (- (car pt) 200 ) (+ 50 (cadr pt))), ведь выше ((lambda (pt) (entmakex ...)) (cdr (assoc 10 (entget ent)))) Вы уже локализовали переменную pt?
Или я чего-то непонимаю? Прошу ответить, этот вопрос не ирония

Во сказанул: вопрос не по теме топика - масло масленное

[Дима_]

Здесь лишнее, заметил когда выложил и испралять не стал - вначале писал чуть по другому - pt использовалось 2 раза только в той строке, а потом "вытащил" в главную - без нареканий со своей стороны можно заменить на "просто" (list (- (car pt) 200 ) (+ 50 (cadr pt))).
p.s. Тебе зачет за внимательность.

[TararykovDG]

Дима_, спасибо

[gomer]

Сообщение от Дима_ НЕ ДОЛЖНО БЫТЬ В ЛИСПЕ ПЕРЕМЕННЫХ

С чего вы взяли? используя лямбду вы создаете "переменную" Это во первых... Во вторых тогда уж так...

Код:

[Выделить все]

(defun c:test ( / ss doc *error*)
  (defun *error* (msg) princ)
  (prompt "\nВыберите точки: ")
  (cond ((setq ss (ssget '((0 . "POINT"))))
    (vla-startundomark (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))))
    (mapcar
      '(lambda (x / z)
         (entmakex
           (list
             (cons 0 "TEXT")
             (cons 10 (list (- (car x) 200 ) (+ 50 (cadr x))))
             (cons 8 "Отклонения")
             (cons 40 300)
             (cons 1 (strcat (if (<= 0 (setq z (fix (last x)))) "+" "")(itoa z)))
           )
         )
      )
      (mapcar '(lambda (x) (cdr (assoc 10 (entget x))))
        (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
      )
    )
    (vla-endundomark doc)
    )
    (T (alert "Необходимо выбрать хотя бы одну точку"))
  )
  (princ)
)

[Дима_]

Сообщение от gomer С чего вы взяли? используя лямбду вы создаете "переменную

В языках подразумевающих постоянное использование переменных (бейсик, паскаль) их тип всегда задается явно, либо определяется через имя - для того, чтоб при их изменении не "плыла память", под них сразу отводится ячейки памяти соответствующего размера (кроме строк чуть по другому - схоже с лиспом, но не совсем) - лисп т.н. функциональный язык - то есть состоящий из функций - которые имеют входные и выходные аргументы - подобно математическим (в отличие от других языков где, как правило, функция еще обращается к десятку-другому переменных). В лиспе переменные (те самые которые задаются через / ) аттавизм наподобие goto в паскале. Используя лямбду я, как раз, никаких переменных не создаю поэтому и рекомендую их использовать (лямбды). Если Вы в своей программе используете setq значит "заведомо" теряете функциональность - Вам нужно постоянно отслеживать что хранится в Ваших переменных и можно, либо, нет вызвать какую либо функцию - это давно уже тупиковый путь и никакая большая программа так не работает - в ООП используются "объекты" с "закрытыми" переменными (даже в ассемблере есть локализация и уже по факту полностью отошли от задания аргументов через "общие" регистры). Лисп (при правильном написании) тем и силен, что любую функцию можно вызвать в любой момент времени (рекурсивно?) - я за все время писания на лиспе НИ РАЗУ не использовал отладчик (на ассемблере (а на нем, в свое время, я тоже не мало поработал) я можно сказать только в нем и писал). Еще раз повторю - не должно в лиспе быть переменных (есть ряд исключений связанных с "несовершенством" автолиспа), оно-же как и массивов (был бы автолисп нормально рекурсивным я б с удовольствием сюда еще и циклы добавил - но т.к. хвотовой рекурсии в автолиспе нет - приходиться пользоваться).

[gomer]

Дима_, вот еще вариант... Сравните размер, функциональность и попробуйте избавиться от переменной doc

Код:

[Выделить все]

(defun c:test ( / ss doc z *error*)
  (defun *error* (msg) princ)
  (prompt "\nВыберите точки: ")
  (cond ((setq ss (ssget '((0 . "POINT"))))
      (vla-startundomark (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))))
      (foreach pt (mapcar '(lambda (x) (cdr (assoc 10 (entget x))))
                  (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
        (entmakex
          (list
            (cons 0 "TEXT")
            (cons 10 (list (- (car pt) 200 ) (+ 50 (cadr pt))))
            (cons 8 "Отклонения")
            (cons 40 300)
            (cons 1 (strcat (if (<= 0 (setq z (fix (last pt)))) "+" "")(itoa z)))
          )
        )
      )
      (vla-endundomark doc)
    )
    (T (alert "Необходимо выбрать хотя бы одну точку"))
  )
  (princ)
)

ps #24 думаю будет быстрее этого кода и вашего

[Дима_]

1. сравнил у меня 18 строк у Вас 23 (да у Вас добавленна "мощная строка" (defun *error* (msg) princ) - то есть если произойдет какая-либо ошибка мы даже не узнаем какая).
2.

Код:

[Выделить все]

((lambda (doc)
(vla-startundomark doc)
...
(vla-endundomark doc))
(vla-get-ActiveDocument (vlax-get-acad-object)))

[Pastor]

Осторожно! Пост №25 -бред. От первого до последнего слова.

[gomer]

Дима, По нажатии эскейп в кс выпадает *Отмена*, чем не индикатор... + у меня еще и алерт чтоб узер не заснул...
По поводу 2. Согласен с вами.. в этом есть даже некая эстетика...
Однако же большое количество лямбд может запутать любого программера, даже автора... так как ломает привычную "узерскую" логику... К тому же при таком подходе в хвосте скапливается большое кол-во "мусора"
зы Pastor, аргументируйте

[Дима_]

Однако же большое количество лямбд может запутать любого программера, даже автора...

Если ты не спользуешь setq то можешь не париться по поводу что у тебя "попадется" внутри определения какакя-либо функция (под-под-под функция) которая "исправит" твою "одноименную" переменную doc и тебе глубоко паралельно в какой последовтельности будут вызываться функции - т.к. они "замкнуты" и никак не зависят от "общих" переменных.
Пастор бред - это то что Вам понять не под силу?

[Кулик Алексей aka kpblc]

Дима_, касательно #25...
Представь себе ситуевину: есть fun1, которая вызывает fun2, передавая ей в качестве параметра указатель на COM-сервер (создается в fun1), указатель на графический примитив, обрабатываемый этим СОМ-сервером, ну и до кучи свойство примитива и значение этого свойства. Все должно работать а) быстро; б) вся занятая память должна быть очищена после выхода из fun1. Одного vlax-release-object недостаточно.
Задача: реализовать без применения локальных или глобальных переменных.
Скажу честно: я на такое не способен

[Дима_]

А в чем сложность? (apply (lambda <fun2>) (lambda (com) (list com (vlax-get-property com) ...) ) (vlax-create ...)) (gc)

[Кулик Алексей aka kpblc]

Дима_, а теперь объясни разницу между переменной и параметром вызова. Особенно когда эта переменная локальная в одной функции и является параметром вызова второй
P.S. Спор, если честно, мне кажется бессмысленным - все равно каждый прав и каждый останется при своем мнении

[gomer]

как быстро будет такое работать?

Код:

[Выделить все]

(mapcar
 '(lambda (x)
   ((lambda (com)
    (some_func com x)
    )
    (vlax-create-object "SomeSlow.Com")
   )
  )
  big_big_list
)

зы от внешней переменной мне так и не удалось избавиться...

[Дима_]

разница в том, что если принципально не подходить к аргументам как к переменным (проще говоря не использовать присваивания), то проблемы с порядком вызова процедур становяться глубоко паралельны - программа не использует ничего кроме входных параметров - а "общается" с другими ТОЛЬКО через выход - не нужно отслеживать "что сейчас в этой переменной", "инициализировал ли я ее и пр" - видим функцию (не важно кем написанную) видим ее входные параметры, а дальше что в ней творится - нам глубоко паралельно - если она протестированна со всеми вариантами входных параметров (имеется в виду диапазон) - то она 100% всегда будет работать - кто-бы и как ее не вызвал. А вот если она в пятой подпрограмме какой-либо "флажок" опрашивает (либо, не дай бог, устанавливает) - искать это можно крайне долго.
п.с. Пусть кто как хочет, так и пишет - полностью согласен.

то Gomer такое будет работать долго в отличие от

Код:

[Выделить все]

((lambda (com)
 (mapcar '(lambda (x)
          (some_func com x))
  big_big_list))
(vlax-create-object "SomeSlow.Com"))

п.п.с по хорошему big_big_list надо тоже в аргумент записать
п.п.п.с твой намек верный - в более "серьезных" версиях лиспа предыдущий бы код работал, но вынеси mapcar в отдельную функцию - закончился бы ошибкой т.к. com там определяется только внутри лямбды и что-бы его увидела другая функция - нужно его явно передать (я поначалу на этом не мало копий наломал - пока не понял что четкое разграничение пространства видимости - это "великое благо" и писать так гораздо удобней и лаконичней (мне по крайней мере)).

[Елпанов Евгений]

Очень странный спор у вас возник...
С одной стороны, без setq, получается код свободный от переменной, хотя с другой стороны, переменная создается внутри безымянной функции и удаляется после завершения.

По сути, создание и загрузка дополнительной функции, может занять больше времени, с другой, можно для таких целей сделать постоянную функцию, которая будет выполнять код только при ненулевом аргументе.

Для оценки двух подходов, стоит выбрать точку зрения и вектор, который считать верным...
- выбирайте:
1. простой и лаконичный код
2. простая и удобная поддержка кода с возможностью его многократно использовать и занести в библиотеку
3. быстрый код
4. крутой код - сложный в понимании основной массой программистов

Мое мнение:
1. лучший код в этой теме - первый работающий код, именно он позволил решить задачу просящему помощи и это не зависит от качества, скорости или других свойств программы!
2. Для форума, я обычно использую вариант, в котором меньше всего букв и это не зависит от setq или других функций и подходов.
3. Если уж блистать сутью лиспа, то стоит использовать mapcar и рекурсии, а так же бить код на подпрограммы.

Ps. ну вот, теперь огребу ото всех разом...
pps. я бы написал все совсем по другому...

[gomer]

А что тут думать, логика простая: для всех точек, выбранных юзером, рисуем тексты, содержащие координаты точек соответственно...
Все остальное исправление граблей, на которые будет натыкаться юзер, а не программер...

[Victor]

Offtop: Спрашивают программистов сколько кода надо написать чтобы программа вывела на экран сообщение "Hellow World!"
Программист Майкрософт написал 5 страниц кода.
Студент программист написал 10 строчек.
Хакер написал 1 слово.

[bem_ua]

Ребята, вы извините меня, я тут новичек и меня тоже интересует возможность использования скрипта, который бы выполнял за меня определенную работу - готов оплатить вебмани за такой скриптик. Тот скрипт, что Выложил Дима - супер, только одно но - он выставляет округленное значение в меньшую сторону - для меня достаточно критично, хотя бы округлял по математике и еще чтоб было больше возможностей настройки. И еще одно надо чтоб на место существующей точки ставил еще одну точку - это мне надо для того, чтоб наглядно было видно место, отклонение. Ситуация заключается в том, что при съемке тахеометром фасада здания я получаю точки - но вижу эти точки нормально только в режиме сверху, если же я переключаю режим камеры - спереди - я вижу свой фасад как положено, потом я поворачиваю таким образом, чтоб в режиме сверху я его видел как в режиме спереди - грубо говоря в 2д его кладу, но при всех этих режимах я вижу не точки, а их боковое сечение, т.е. если назначит формат отображения точки перекрестье в кружке - я буду на него смотреть сбоку - т.е. буду видеть просто линию для того, чтоб нормально отображить точку - мне надо в на существующую точку с боковым сечение поставить еще одну точку, но уже при камере сверху - и тогда она будет отображаться нормально (пример смотрите на приложенных фотках). Желательно получить скрипт такого типа, чтоб сам ставил точку на место точки, и выносил значения - чтоб можно было редактировать в скрипте место куда он будет выносить это значение и естественно шрифт, так же желательно иметь настройки сколько знаков после запятой показывать и естественно, как существующий скрипт - надо чтоб если значение по Z у меня меньше нуля - то естественно, чтоб отображалось значение с минусом, а если больше - с плюсом.

(Описание приложения - фотка 1 - это то как я вижу точки смотря на них сверху до изменения их формата отображения; фотка-2 - это после того, как я поменял формат отображения точек на тот, какой мне нужен; фотка 3 - это конечный вид после того, как ставлю на каждую точку новую точку, чтоб я ее нормально мог видеть и ставлю рядом с ней ее значение по Z)

[Дима_]

Вобщем,прочитав 4 раза "запрос" я выяснил следующие:
1. нужно чтоб округлялось согласно правилам математики;
2. чтоб прорисовывалась дополнительная точка в "округленном" месте и она была видна в двух проекциях (с переди и с верху)
3. Была возможность регулировки шрифта.

Код:

[Выделить все]

(vl-load-com)
(defun c:set-test-param ()
  (setq list-test-parametr
        (mapcar '(lambda (mes value)
                   ((lambda (x) (if x x value)) (getreal (strcat "\n" mes " <"  (rtos value) "> "))))
                '("Введите высоту шрифта" "Отступ метки по X" "Отступ метки по Y")
                (if list-test-parametr list-test-parametr '(2.5 2 0.5))))
  (princ))
(defun c:test()
  ((lambda (ss)
     (if ss (progn
             (vla-startundomark (vlax-get-property (vlax-get-acad-object) 'ActiveDocument))
             (mapcar '(lambda (ent)
                        ((lambda (pt)
                           (mapcar '(lambda (vector lay)
                                      (entmakex (list
                                                 (cons 0 "text")
                                                 (cons 10 ((lambda (pt) (trans (list (- (car pt) (if list-test-parametr (cadr list-test-parametr) 2))
                                                                                     (+ (cadr pt) (if list-test-parametr (caddr list-test-parametr) 0.5))
                                                                                     (last pt)) 0 vector)) pt))
                                                 (cons 8 lay)
                                                 (cons 40 (if list-test-parametr (car list-test-parametr) 2.5))
                                                 (cons 1 ((lambda (z) (strcat (if (> z -1) "+" "")(itoa z) )) (last pt)))
                                                 (cons 210 vector)))
                                      (entmakex (list (cons 0 "point")
                                                      (cons 10 pt)
                                                      (cons 8 "Исправленные")
                                                      (cons 210 vector))))
                                   '((0 0 1) (0 -1 0))
                                   '("Отклонения" "Отклонения (фронтальные)")))
                         ((lambda (r-pt)
                            (reverse (cons ((lambda (x) ((lambda (c) (if (>= (- x c) 0.5) (1+ c) c)) (fix x))) (car r-pt))
                                           (cdr r-pt))))
                          (reverse (cdr (assoc 10 (entget ent)))))))
                     (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
             (vla-endundomark (vlax-get-property (vlax-get-acad-object) 'ActiveDocument)))))
   (ssget (list (cons 0 "point"))))
  (princ))

шрифт и прочие параметры - set-test-param, округленные по Z точки создаются на слое "Исправленные".

p.s. это пример который показывает недостаток автолиспа - отсутствие т.н. "замыканий" - (то что я имел в виду в #25 под "рядом исключений") - поэтому "приходится" использовать setq - но обращаю внимание это глобальная переменная (без нее настройки не сохранить) локальных по прежнему нет (и надеюсь не будет).