[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

_____________________________________________________________________________________________________________

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

[gomer]

Сообщение от Кулик Алексей aka kpblc А если примерно так

Для преобразования целого в строку существует функция itoa

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

Ага, целого. А запрашивается real, хранится real. В любом случае, в качестве иллюстрации будет достаточно, я думаю.

[T.Bagdat]

gomer, код из MPL я привёл лишь в качестве примера, а мне требуется именно вещественное число.

Кулик Алексей aka kpblc, очень изящное решение. Удалось сэкономить на одной переменной. Большое спасибо.

[gomer]

Сообщение от T.Bagdat очень изящное решение.

корявое это решение... хотя бы так

Код:

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

 (or (numberp dl)
    (setq dl 100.0)
)

(setq dl (cond ((getreal
                  (strcat "\nУкажите вещественное число "
                          "<"
                          (rtos dl 2 (getvar 'luprec))
                          "> : "
                  )
                )
               )
               (dl)
         )
)

[mkung]

Добрый день.
Можно ли из Автокада работать с объектной моделью другого запущенного приложения?
Например, получить ссылку на файл из системы документооборота?
Если да - то как "залезть" в чужую модель?
Заранее благодарен.

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

Сообщение от mkung Можно ли из Автокада работать с объектной моделью другого запущенного приложения?

Можно. При соблюдении хотя бы одного из условий: у другого приложения реализована СОМ-модель либо есть файлы библиотек (tlb), к которым можно "подконнектиться".

----- добавлено через 35 сек. -----

Сообщение от mkung как "залезть" в чужую модель?

Поищи примеры работы с файлами Excel - в качестве примера покатит, думаю.

[mkung]

Сообщение от Кулик Алексей aka kpblc Можно. При соблюдении хотя бы одного из условий: у другого приложения реализована СОМ-модель

Можно ли Лиспом еще как-то посмотреть свойства и методы если:
(vlax-dump-object (vlax-get-or-create-object "LotsiaPDM.Application"))
; Объект не поддерживает интерфейс ITypeInfo

----- добавлено через ~4 ч. -----
Программист ЛОЦИИ написал на С# как добраться до нужного пути к файлу:

1 Создание экземпляра Лоции GlobalVar.LPDM = new LotsiaPDM.Application(); 2 Создание сервисного объекта GlobalVAR.Service = GlobalVAR.LPDM.CreateObjectService(); 3. Инициализация действия в Лоции (выполнение метода) DPDMOperation selectOper = GlobalVar.LPDM.GetOperation(70000235); 4. Выполнение действия (выполнение метода) selectOper.Execute() 5. Получения переменной из действия decimal idDocSignLarge = selectOper.GetVarValue("SignLargeDoc"); decimal idDocSignSmall = selectOper.GetVarValue("SignSmallDoc"); decimal idDocSignVect = selectOper.GetVarValue("SignVectDoc"); 6. Получение документа (картинки) по его id DPDMDocumentVersion docVer = GlobalVAR.Service.GetDocumentVersion(idDocSignVect); 7. Открытие документа в лоции string pathFile = GlobalVAR.LPDM.OpenDocumentVersion(docVer.ID, true); в результате в переменной pathFile будет полный путь до файла 8. Закрыть документ Лоции, обязательно. GlobalVAR.LPDM.CloseDocumentVersion(docVer.ID);

Может ли кто-то помочь перевести это в ЛИСП. Что-то у самого не получается...

[posetitel]

извините за глупый вопрос, но сам не разобрался:
как сделать, чтобы при вызове команды, присваивался определенный параметр автоматически?
например, я набираю "-слой", и мне предлагается несколько вариантов параметров, а мне необходимо, чтобы сразу выбирался параметр "С" (создать), т.е. по команде "-слой" сразу же создавался новый слой, а я вводил только его имя.
(пробовал код Крыса: (command "_.-layer" "_n" "Layer2" ""), но он у меня почему-то не работает )

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

mkung, боюсь, что никак. Если не удается создать объект (или получить на него указатель), то дальше можно особо не рыпаться.

----- добавлено через 20 сек. -----
posetitel, Download -> "В.Свет Язык макрокоманд".

[Дима_]

можно - в поиск по словам autolisp excel (просто это самый частый подобный вопрос).
ops. - это я кажется с десяток другой сообщений пропустил
з.ы. нет всего пять

[mkung]

Сообщение от Кулик Алексей aka kpblc mkung, боюсь, что никак. Если не удается создать объект (или получить на него указатель), то дальше можно особо не рыпаться.

Да указатель то на объект LotsiaPDM.Application я получаю.
А вот дальше с методами - что-то все nil возвращается...

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

Тогда попробуй использовать vla-invoke-method, vlax-invoke, vlax-put-property, vlax-get-property. Названия методов и свойств, а также количество и возможные значения параметров надо будет брать из руководства по программированию для Лоции.

[Vladimir_Sergeevich]

mkung, можно, если эта сисема имеет com-модель. Подробнее у Полещука "10.4 Пример работы с внешним приложением". Ну и в довесок, на форуме были примеры экспорта/импорта из экселя

[ShaggyDoc]

Сообщение от Vladimir_Sergeevich mkung, можно, если эта сисема имеет com-модель.

Не просто COM-модель, а должен быть Automation Object, а не COM object. Иначе из "скриптовых" языков, таких как Lisp, доступа не будет.

[mkung]

Сообщение от ShaggyDoc Не просто COM-модель, а должен быть Automation Object, а не COM object. Иначе из "скриптовых" языков, таких как Lisp, доступа не будет.

Как это проверить?

[T.Bagdat]

Сообщение от gomer хотя бы так Код: [Выделить все] (or (numberp dl) (setq dl 100.0) ) (setq dl (cond ((getreal (strcat "\nУкажите вещественное число " "<" (rtos dl 2 (getvar 'luprec)) "> : " ) ) ) (dl) ) )

Сначала у меня это не заработало. Потом на пару недель замотался. А сейчас вернулся к этому, и заменив

Код:

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

(or (numberp dl)
    (setq dl 100.0)
)

на

Код:

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

(if (null dl)
    (setq dl 100.0)
)

получил вполне годный алгоритм.

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

[gomer]

Сообщение от T.Bagdat Сначала у меня это не заработало. Потом на пару недель замотался. А сейчас вернулся к этому, и заменив Код: [Выделить все] (or (numberp dl) (setq dl 100.0) ) на Код: [Выделить все] (if (null dl) (setq dl 100.0) ) получил вполне годный алгоритм.

что значит не заработало? второй вариант имеет уязвимость, так как (null dl)==> nil не означает (numberp dl) ==> T. кроме этого момента эти варианты эквивалентны

[trushev]

Согласно описанию функция работает с символами LISP.
У меня список с вложенными списками.
На простом примере получаю ожидаемый результат:

Код:

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

           ;        0           1           2                 3            4
(setq sp (list '(1 2 3 4 5) '(6 7 8 9) '("a" "b" "c" "d") '(3 2 5) '("a" "d" 7.2 3.7))
       s (subst (list "f" "s") (list "a" "b" "c" "d") sp)
)

выполняет замену 2-го элемента на новый.
Но на более сложном списке с 22 подсписками с суммарной длиной порядка 6000 символов замены на новый элемент не происходит.
Не могу поймать свою ошибку. Или у функции есть ограничения?

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

Ты в качестве "старого" значения попробуй подставлять не вбитое вручную, а полученное через nth или assoc значение. Ну и проверь на повторы - тоже бывают забавные случаи.

[trushev]

Сообщение от Кулик Алексей aka kpblc бывают забавные случаи.

Заработало! Не выполнялось обновление "нового". Списки "новый" и "старый" были идентичны.