[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

_____________________________________________________________________________________________________________

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

[Ingpro]

Сообщение от name02 Код: [Выделить все] (setq new (subst '(3 . "Копия Основной") (assoc 3 b) b))

Эта строка не создает копию разм. стиля?

Так я могу удалить размеры с указанным стилем:

Код:

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

 (vl-cmdf "_.erase" (setq ss (ssget '((0 . "*DIMENSION") (3 . "name-dim-style")))) "")

Спасибо, name02

[name02]

1 Функция subst возвращает список, в котором элемент (assoc 3 b) заменен на (3 . "Копия Основной").
2 Я бы удалял объекты не командными методами - не люблю засорять командную строку. Все аккуратнее выглядит.

Ты какой справкой по лиспу пользуешься?

[Ingpro]

Сообщение от name02 Ты какой справкой по лиспу пользуешься?

В основном из интернета...

[name02]

Скачай офлайн справку https://dwg.ru/dnl/ri33 - там есть справка по всем лисповским функциям
Добавь эту справку в настройках автокада:


И тут еще поменяй:


И если ты программы пишешь в блокноте, то лучше переходи в VLIDE - там проще отслеживать и находить ошибки в коде

[Ingpro]

Сообщение от name02 Скачай офлайн справку https://dwg.ru/dnl/ri33 - там есть справка по всем лисповским функциям

Спасибо...

[Alxndr1697]

Сообщение от name02 Скачай офлайн справку https://dwg.ru/dnl/ri33 - там есть справка по всем лисповским функциям

Извиняюсь, что не по теме. Справка от 2020 должна установиться и работать на 2021?

[koMon]

оффлайн справка к автокаду 2021
Offline Help Ru
Offline Help En

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

https://dwg.ru/dnl/ri33 - от 2019 по 2025

[koMon]

кроме 21

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

На 2021 почему-то справки не нашлось в момент загрузки ((

[Ingpro]

Сообщение от koMon оффлайн справка к автокаду 2021 Offline Help Ru Offline Help En

А на эти ссылки вот такая реакция?.. Есть ли возможность приложить архив? Или добавить к https://dwg.ru/dnl/ri33 - от 2019 по 2025

[koMon]

там чёт заморочно с квотами
----- добавлено через ~6 мин. -----
Кулик Алексей aka kpblc,
Алексей, может загрузишь в ri33?

[Ingpro]

Сообщение от koMon там чёт заморочно с квотами AC2021 Offline Help

Так получилось, many thanks!

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

Сообщение от koMon там чёт заморочно с квотами AC2021 Offline Help ----- добавлено через ~6 мин. ----- Кулик Алексей aka kpblc, Алексей, может загрузишь в ri33?

Только дома, на работе мобильный инет подобное не проглотит (((
Админ одобрил, ссылки:
_https://dwg.ru/dnl/15794
_https://dwg.ru/dnl/15795

[Alxndr1697]

Благодарю

[Ingpro]

Код:

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

 (command "_-layer" "_n" "IZM" "_c" "1" "IZM" "_s" "IZM" "_P" "_P" "IZM" "_s" "IZM" "")

Так создается слой с цветом 1 (при печати monochrome цвет - черный)
для цвета RAL 3024 (при печати monochrome цвет - красный) эти строки не работают:

Код:

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

 (command "_-layer" "_n" "IZM" "_c" "RAL 3024" "IZM" "_s" "IZM" "_P" "_P" "IZM" "_s" "IZM" "")

(command "_-layer" "_n" "IZM" "_c" "255.45.33" "IZM" "_s" "IZM" "_P" "_P" "IZM" "_s" "IZM" "")

Как можно это исправить?
В ком. строке: Требуется стандартное имя или номер цвета.

[name02]

Для задания цвета в RGB
(command "_-layer" "_n" "IZM" "_c" "_T" "255,45,33" "IZM" "_s" "IZM" "_P" "_P" "IZM" "_s" "IZM" "")

Для задания цвета прямо в RAL
(command "_-layer" "_n" "IZM" "_c" "_COL" "ral classic" "RAL 3024" "IZM" "_s" "IZM" "_P" "_P" "IZM" "_s" "IZM" "")

[Ingpro]

Сообщение от name02 Для задания цвета в RGB (command "_-layer" "_n" "IZM" "_c" "_T" "255,45,33" "IZM" "_s" "IZM" "_P" "_P" "IZM" "_s" "IZM" "") Для задания цвета прямо в RAL (command "_-layer" "_n" "IZM" "_c" "_COL" "ral classic" "RAL 3024" "IZM" "_s" "IZM" "_P" "_P" "IZM" "_s" "IZM" "")

Спасибо большое, обе строки отлично работают!

[Ingpro]

Код:

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

 ;; устанавливает текущим выбранный размерный стиль
(defun c:dm-sel-style (/)
 (vla-put-activedimstyle
  (vla-get-activedocument (vlax-get-acad-object)) 
  (vla-item (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object)))
            (cdr (assoc 3 (entget (car (entsel)))))
  )
 )
(princ)
)

А как установить текущим размерный стиль "_01_100", указанный в коде? please...

[koMon]

вот так, если об этом речь

Код:

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

 
(vla-put-activedimstyle
  (vla-get-activedocument (vlax-get-acad-object))
  (vla-item (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object)))
			"_01_100"
  )
 )