[Red Nova]

Со школы не ладится у меня с программированием. Все предметы щелкал, а на экзамене по информатике (Visual foxpro) программку типа суммирования столбцов списал у соседа (это уже в университете).
Не смотря на эте намерен научится писать программы для Автокада на лиспе, скачал книгу Хювенена, несколько примеров создания программ, но после получасового “смотрения” таких книг мое мышление явно притормаживает.
Решил пойти другим путем.
Нашел самый короткий лисп из моей коллекции, и прошу программистов с этого форума пошагово объяснить какой символ что означает. Надеюсь на вашу помощь.

Код:

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

(defun c:make-blocks-explodeable (/ adoc)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (and (equal (vla-get-isxref blk_def) :vlax-false)
             (equal (vla-get-islayout blk_def) :vlax-false)
             ) ;_ end of and
      (vl-catch-all-apply '(lambda () (vla-put-explodable blk_def :vlax-true)))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

_____________________________________________________________________________________________________________

Прошло много лет и топик теперь представляет из себя площадку для обучения азов программирования для многих начинающих.
Так что начинающие лиспогрызы приветствуются .

[MrBrown]

gomer, в ответе твоём уловил намёк. Пошёл штудировать "Полещука".
Спасибо.
_______________
Намека не понял:
У Полещука на стр. 116, где "Функция Entget": "10" - координаты начальной точки, "11" - координаты конечной точки.
Для проверки нарисовал полилинию с несколькими вершинами. Ком.строка выдала все вершины под кодом "10". Что ж, беру за основу практику.

[Do$]

Зачем там лямбда в запросе?
Отрезок - это LINE. У него под кодом 10 _ начальная точка в мировой СК, под кодом 11 - конечная точка в мировой СК.
У Вас LWPOLYLINE - это простая "плоская" полилиния. У нее под кодами 10 координаты всех вершин, их может быть очень много, поэтому неразумно им давать коды 10, 11, 12... Причем координаты ДВУХМЕРНЫЕ в системе координат ОБЪЕКТА.
Штудировать в этом плане лучше DXF Reference.

[MrBrown]

Do$, ну, если честно, я выдрал эту строчку с лямбдой из какого-то макроса на форуме и, начитавшись "Маркса", решил с ней разобраться. И, как видно, влип. Спасибо за ссылку. И, да, сам же нарисовал полилинию, а хочу коды отрезка. Невнимательность, однако.
_________________
С отрезком все получилось - и "10", и "11".

А такой вопрос: есть ли способ производить загрузку макроса побыстрее? Или каждый раз, изменив его, надо идти по пути "Сервис-приложения-загрузить...".

[Do$]

Если Вы программируете во встроенном редакторе VLIDE, то там по сочетаниям клавиш или кнопками можно выполнить быстро загрузку.
http://autolisp.ru/2009/09/10/vlide-misc-01/
http://autolisp.ru/2009/09/12/vlide-misc-02/

[skkkk]

Сообщение от MrBrown А такой вопрос: есть ли способ производить загрузку макроса побыстрее? Или каждый раз, изменив его, надо идти по пути "Сервис-приложения-загрузить...

А если в блокноте, то сохраненный файл lsp можно мышкой перетащить в окно Автокада, либо вывести на панель новую кнопку и на нее повесить макрос

Код:

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

^C^C(load "test.lsp");test

Каждый раз при нажатии на кнопку лисп будет подгружаться.
Кстати, это только у меня VLIDE не понимает кириллицу?

[Alan]

Сообщение от skkkk Каждый раз при нажатии на кнопку лисп будет подгружаться.

Ну почему не в редакторе VLIDE нажимать кнопку????

Кстати, это только у меня VLIDE не понимает кириллицу?

Пишите сразу в редакторе.
P.S. Ну писали же в этой теме... о редакторе VLIDE.
Запускайте оттуда же!
Отладка там же пошагово через точки останова и т.д. и т.п.
Зачем усложнять себе жизнь?

[skkkk]

Ну не легла у меня душа к VLIDE. Возможно от невежества... Я настроил Notepad++ и уже привык.
Добавил автозавершение и подсветку, в том числе vla-функций... Сворачивание блоков текста также очень удобно, множественная замена текста. Подсветка всех повторений выделенной части текста, например, переменной. Автоматическое создание резервных копий. Всем этим активно пользуюсь, но никого не агитирую, только мое скромное мнение. Хотя, признаюсь, иногда руки тянутся, влекомые авторитетом уважаемых программистов, разобраться с VLIDE, но пока так и не дошли
Но знаю точно, не один я такой, и это несколько успокаивает. Тем более, что я всего лишь любитель.
А писать сразу во VLIDE как, если я часто беру коды с форума и допиливаю под себя?

[Do$]

Кириллицу понимает. Есть проблема с копипастом (та же, что и с командной строкой), решается сменой текущего языка на русский перед копированием-вставкой.

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

Все она понимает. Просто при копировании "откуда-то" в этом "откуда-то" должна быть включена русская раскладка...

[skkkk]

Сообщение от Do$ решается сменой текущего языка на русский перед копированием-вставкой

Сообщение от Кулик Алексей aka kpblc Все она понимает. Просто при копировании "откуда-то" в этом "откуда-то" должна быть включена русская раскладка...

Действительно. Или еще можно сохранить файл, а затем открыть его во VLIDE (меню Файл->Открыть файл...). Тогда с кириллицей все в порядке. И как оказалось, в 2011-м Акаде во VLIDE уже есть подсветка vla-функций. Похоже, может оказаться удобным писать код в Notepad++, а отладку производить в редакторе VLIDE. Попробуем...

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

Сообщение от skkkk во VLIDE уже есть подсветка vla-функций

Она и в 2004 была... Достаточно было выполнить (vl-load-com)

[Do$]

Даже больше: есть подсветка функций, написанных на ObjectARX/NET и подгруженных в AutoCAD.

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

Естественно! А если tbl импортнешь корректно, так еще и левые методы и свойства станут подсвечиваться

[Do$]

Мммм... Это, например, методы работы с excel-word?

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

И это тоже. Основная проблема - определить, какую tlb надо импортировать, и ее путь. Но в принципе это решается, насколько я помню.
ИМХО - это аналог раннего связывания со всеми его плюсами и минусами. Лично я предпочитаю работать с поздним связыванием, поскольку позднее немного универсальнее, но при этом и затратнее (по времени, по скорости...).

[dirge]

Здравствуйте, подскажите пожалуйста у функции ssget можно как-то запротектить выбор объектов которые уже в наборе в другом наборе? Суть такая я в цикле перебираю координаты и в набор попадают объекты, можно как-то сделать чтобы одинаковые объекты потом не копировались в новый набор.
Сам код:

Код:

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

   (setq i 0)
  (while (< i (length positions))
    (setq objects
	   (vl-remove-if
	     'listp
	     (mapcar 'cadr (ssnamex (ssget "_CP" (nth i positions))))
	   )
    )
    (setq pos (cons objects pos))
    (setq i (1+ i))
  )

[Do$]

Функции SSMEMB - проверка наличия примитива в наборе и SSDEL - удаление примитива из набора.

[chicot]

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

Код:

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

  (setq UMR_bJIOKA (cdr(assoc 2 (entget (car (entsel))))))

. На выходе все в ажуре (т.е. в случае с примером из прилагаемого файла, получаем "flower"). Теперь видоизменим блок с помощью динамической операции "отразить" (flip).Опять запускаем запрос на имя

Код:

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

 (setq UMR_bJIOKA (cdr(assoc 2 (entget (car (entsel))))))

... и получаем удар в пах , а именно "*U6" !!! Причем характкрно, что если открыть свойства этого блока в КАДе, то там английским по белому в поле "имя" значится как раз "flower", а никакое не "*U6".
На даный момент выяснил, что *U это признак временного блока. Но , увы, сие никак не сдвинуло ситуацию с мертвой точки. Просьба ко всем завсегдатаям "списочного" пантеона объяснить простолюдину где грабли, на которые я наступаю. Файл с примером экспериментального блока прилагаю:
http://files.mail.ru/AB7D56C47B8941609F904FBF2205B25C

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

Сам же находил тему: http://forum.dwg.ru/showthread.php?t=85454
Там есть соответствующие коды

[chicot]

Да, огромное спасибо! Уже разобрался. Приношу свои искренние "Я больше не буду" Но справедливости ради, попробуйте забить в поиск "Создание набора из динамических блоков" (а меня именно ssget с фильтром по имени интерисовал), ну или просто "Динамические блоки". Это беда всех форумов - поиск не инструмет, а большая рулетка. Да да да - нужно уметь формулировать запрос! Но скажите, Бога ради, что еще нужно было ввести в поле поиска, что бы попасть на http://forum.dwg.ru/showthread.php?t=85454 ? Я там побывал только после того как меня Земляк носом ткнул во время общения в Скайпе.