[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

_____________________________________________________________________________________________________________

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

[RNB]

Сообщение от gomer это ж надо было столько нагородить...

Поясни, пожалуйста, принцип "игры" с "cmdecho" и "x"

[gomer]

Сообщение от RNB Поясни, пожалуйста, принцип "игры" с "cmdecho" и "x"

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

[RNB]

Сообщение от gomer все просто: запомнили, выключили, включили

"(lambda (x))" сохраняет в "x" значения всех переменных? Или всё-таки еще нужна строчка

Код:

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

 (setq x (getvar 'cmdecho))

или я что-то не догоняю в принципе работы функций?

[gomer]

Сообщение от RNB Или всё-таки еще нужна строчка

нет не нужна, x уже равен (getvar 'cmdecho) на входе в лямбду

[trushev]

Что обозначает 91 группа примитива "LWPOLYLINE"?

[Alexll]

Здравствуйте уважаемые. Осваиваю autolisp.
Есть задача, периодически менять текст в документе.
Выделяю текст, нахожу имя примитива и сохраняю его в файл. Потом считываю строку из файла и пытаюсь изменить текст, но ничего не выходит. Как я понял проблема в типе переменной.
До сохранения в файл переменная была типа ENAME. После чтения STR.
Подскажите можно ли преобразовать тип переменной, что бы можно было модифицировать текст?
Если нет, то как еще можно решить данную задачу?

[gomer]

Сообщение от Alexll ничего не выходит

сохраняй в файл метку примитива, по ней сможешь восстановить свой текст
(cdr (assoc 5 (entget textent)))
(handent strhandle)

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

trushev, dxf reference утверждает, что это идентификатор вершины. Правда, почему у LWPOLYLINE он всегда равен 0 (проверял в ACAD2014) - пока непонятно.

[Сергей812]

Сообщение от trushev Что обозначает 91 группа примитива "LWPOLYLINE"?

http://forum.dwg.ru/showthread.php?t=53504

[RNB]

Я правильно понимаю, команда, созданная в лисп, не запустится из другого лиспа?

[gomer]

Сообщение от RNB Я правильно понимаю, команда, созданная в лисп, не запустится из другого лиспа?

не правильно, из одного лиспа можно запускать команды из другого лиспа, предварительно загрузив оба лиспа

[RNB]

Сообщение от gomer не правильно, из одного лиспа можно запускать команды из другого лиспа, предварительно загрузив оба лиспа

Автокад выдал мне "неизвестная команда"...

----- добавлено через ~4 мин. -----
А если в коде взять название команды в скобки () - (ххх) Команда LISP недоступна

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

RNB, прочитай публикацию "Как использовать лисп, опубликованный на форуме" - там все написано.

[RNB]

Сообщение от Кулик Алексей aka kpblc прочитай публикацию "Как использовать лисп, опубликованный на форуме" - там все написано.

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

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

(defun <ИмяФункции> (Параметры) <...>) : вызывается как (<ИмяФунции> Параметры)
(defun c:<ИмяКоманды>() <...>) : вызывается как (c:<ИмяКоманды>)

[RNB]

Сообщение от Кулик Алексей aka kpblc вызывается как (c:<ИмяКоманды>)

Вот! Спасибо!
Я пытался вызвать как (command "<Имя команды>")

[Alexll]

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

Код:

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

 (setq qq (ssget "_I"))
(setq qq1 (ssget))

Если два раза использовать ssget без "_I", то все нормально. А вот если с "_I" то lisp не предоставляет возможности для выбора примитивов для второго ssget. Думаю что нужна какая то пауза или еще что то.
Если кто знает как это победить, помогите пожалуйста.

[Vladimir_Sergeevich]

Alexll, три раза прочитал - ничего не понял...
(ssget "_I") - соберет то что было выделено до начала выполнения кода.
Если надо собрать примитивы по слою как у выделенного объекта, то что то типа такого:

Код:

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

 (setq ent (car (entsel))) ;;только тут запрашивается образец в ходе выполнения команды
(sssetfirst nil (ssget "_C" (getpoint "\nСекущий прямоугольник") (getpoint "\nвторая точка") (list (assoc 8 (entget ent))))) ;;тут можно играться опциями и фильтрами

И вообще есть готовый selsim с богатым функционалом.

[Alexll]

Недавно начал осваивать LISP поэтому тут даже вопрос не в наличии готовых программ, а в обучении. А заодно и что то полезное для себя сделать.
(ssget "_I") действительно собирает то что было выделено. Но после этого не поступает второго запроса на выбор (вторая строка).
LISP как будто объединяет эти два запроса. Если перед выполнение программы ничего не выделено, то он запрашивает выделение. Если если было что то выделено, то второго запроса на выделение не следует. Но при том оба набора qq и qq1 существуют, но они одинаковые.

А вот допустим если написать код
setq qq (ssget))
setq qq1 (ssget))
то после первого запроса на выделение, происходит второй. И я получаю два разных набора.

[Vladimir_Sergeevich]

(ssget) без опций при активном выборе срабатывает как (ssget "_I") и сбрасывает выбор (судя по экспериментам). В итоге у тебя получается два одинаковых набора.
попробуй между строками прописать (sssetfirst nil nil)