[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

_____________________________________________________________________________________________________________

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

[Red Nova]

VVA,
Про (Масштаб_блока_XxМасштаб_блока_Y) понял. А про ключ поиска не понял. Что это такое?

В итоге получается список из 1-х элементов res (ключей)

Каким образом res стал ключем?
Из хелпа

(member <выражение> <список>) Эта функция просматривает <список> - встречается ли <выражение> и возвращает часть <списка>, начинающуюся с первого найденного <выражения>. Если в <списке> нет <выражения>, MEMBER возвращает nil. Например: (member 'c '(a b c d e)) возвращает (C D E) (member 'q '(a b c d e)) возвращает nil

Тут нет упоминания ключей. Если верить хелпу, то (mapcar 'car res) это <список>.
Не могу понять каким образом res получает связь с размерами колонн.

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

Примерно так получилось (см.комментарии)

Код:

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

(foreach item (_dwgru-conv-pickset-to-list selset)
          ; Для каждого элемента набора
  (if ;; Проверяем
      (member
        ;; Входит ли {1}
        (setq size (strcat (rtos (cdr (assoc 41 (entget item))) 2 4)
                           "x"
                           (rtos (cdr (assoc 42 (entget item))) 2 4)
                           ) ;_ end of strcat
              ) ;_ end of setq
        ;; {1} Назначили переменной size значение "ШиринаВысота"
        (mapcar 'car res)
        ;; В список первых элементов res
        ) ;_ end of member
    ;; Если входит, то
    (setq res ;; Присвоить res результат
              (subst ;; Замены
                     (cons ;; На новый элемент, равный точечной паре из
                           size  ;; {1}
                           (1+ (cdr (assoc size res))) ;; И увеличенного на 1 имеющегося счетчика
                           ) ;_ end of cons
                     (assoc size res)  ;; А это старый элемент списка, его-то и меняем
                     res ;; А это сам res, над которым издеваемся
                     ) ;_ end of subst
          ) ;_ end of setq
    ;; Если не входит, то
    (setq res ;; Присвоить res результат
           (cons ;; Соединения
             (cons size 1) ;; Точечной пары "ШиринаВысота" и 1 (ведь 1 элемент с такой шириной-высотой уже найден)
             res ;; С имеющимся res
             ) ;_ end of cons
          ) ;_ end of setq
    ) ;_ end of if
  ) ;_ end of foreach

[Red Nova]

Кулик Алексей aka kpblc,
Все равно вопрос с #354 остается мною непонятым

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

res - не ключ. Это результирующий список.
Иллюстрации для member:

Код:

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

_$ (member 1 (list 10 2 3 "qwer" 1 "asd" "qwer"))
(1 "asd" "qwer")
_$ (member 12 (mapcar 'car '((1 . 2) (12 . 6) (654 . 32) (12 . 1))))
(12 654 12)

Пройди по коду в пошаговом режиме совместно с отслеживанием значений переменных - многое будет понятно.

[Red Nova]

Твой код с #357 я полностью понимаю. Как работают mapcar и member мне ясно. Непонятно как переменная res принимает на сея значение выражения

Код:

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

(setq size (strcat (rtos (cdr (assoc 41 (entget item))) 2 4)
                           "x"
                           (rtos (cdr (assoc 42 (entget item))) 2 4)
                           ) ;_ end of strcat
              )

Я бы предположил, что на месте Res должна быть size, ведь именно ей присвоено нужное выражение.

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

Стоп. Попробую словами, без кодов. Правда, подробно, боюсь, не получится.
"Зайдем" в цикл.
item - элемент набора. Из этого элемента забираем коэффициент масштабирования по осям х и у (соответственно группы 41 и 42) и из них формируем текстовую строку "<Ширина>х<Высота>". Чтобы не вычислять ее еще несколько раз, засовываем в переменную size (в #355 помечено как {1} - это база, с нее начинаются все пляски). Ну а дальше я в 355 вроде расписал.

[Red Nova]

То что ты написал я как раз знаю. Я именно это и говорю. Ты записал "<Ширина>х<Высота>" в переменную size. Но далее, в mapcar, ты используешь не size а res А переменной res мы ведь пока ничего не обозначили.

Код:

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

(member
        ;; Входит ли {1}
        (setq size (strcat (rtos (cdr (assoc 41 (entget item))) 2 4)
                           "x"
                           (rtos (cdr (assoc 42 (entget item))) 2 4)
                           ) ;_ end of strcat
              ) ;_ end of setq
        ;; {1} Назначили переменной size значение "ШиринаВысота"
        (mapcar 'car res)
        ;; В список первых элементов res
        ) ;_ end of member

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

(mapcar 'car nil) вернет nil, соответственно (member <Чего-то-там> nil) вернет тоже nil. И будет выполняться строка

Код:

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

(setq res ;; Присвоить res результат
           (cons ;; Соединения
             (cons size 1) ;; Точечной пары "ШиринаВысота" и 1 (ведь 1 элемент с такой шириной-высотой уже найден)
             res ;; С имеющимся res
             ) ;_ end of cons
          ) ;_ end of setq

Если сразу после этого посмотреть res, то оно будет равно

Код:

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

(("<Ширина>х<Высота>" . 1))

[andery]

Сообщение от VVA У меня есть предложение ко всем, но в основном модераторам такого плана: Разделить уроки на "академисеские часы" или даже на мастер-классы, а не валить все в одну кучу. Этот топик (удалив все лишнее) можно например назвать "Урок 1. Создание и модификация примитивов с помощью команд Автокада" Задание Алексея вынести в "Урок 2. Модификация и создание примитивов с помощью enget, entmake и т.д." ну и т.д. Потом урок 3 и т.д.

Полностью поддерживаю.
Обращение к ГУРу:
я понимаю что для Вас это все понятно и возможно уже неинтересно, но мне (нам) начинающим сложно шагать такими шагами.
Чуть помедленнее. Расписать ВСЕ возможности функций, их вариации....
Но эт так, может я торможу....
ИМХО считать кол-во заданых колон немного рановато....
А то выполняем сложные задачи, а не знали что монжна одним setq присваивать несколько значений, или пользовать if (progn), ну и всякое такое....

Вопрос такой чуть не по теме:
хочу создать свой стиль текста с помощью команды _-style
(command "_-style" "gost200" "ISOCPEUR" 200 "1" "0" "_n" "_n")
Вопрос: как сделать курсив?
Неужели углом наклона?
Я хочу оригинальный курсив данного шрифта.
Спаибо.

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

Кхе, одним setq можно не только несколько значений присваивать. В результате выполнения кода

Код:

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

(setq aa 1 ab 2 ac (* (1+ aa) a2))

будет сделано следующее: переменная aa получит значение 1; ab - 2; ac - 4 и возвращено вычисленное значение ac (4). То есть теоретически будет правомерна конструкция

Код:

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

(setq ad (1+ (setq aa 1 ab 2 ac (* (1+ aa) a2))))

В результате которой переменная ad получит значение 5

[andery]

Повторю вопрос, может кто знает....
хочу создать свой стиль текста с помощью команды _-style
(command "_-style" "gost200" "ISOCPEUR" 200 "1" "0" "_n" "_n")
Вопрос: как сделать курсив?
Неужели углом наклона?
Я хочу оригинальный курсив данного шрифта.
Заранее благодарен.

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

http://dwg.ru/f/showpost.php?p=132694&postcount=25 не катит?

[andery]

Сообщение от Кулик Алексей aka kpblc http://dwg.ru/f/showpost.php?p=132694&postcount=25 не катит?

Для меня это темный лес......
Я хочу просто курсив.... "своими руками" так сказать

[andery]

Создание стиля текста и активизация стиля (command "_.style" "имя стиля" "шрифт" "высота" "коэф. ширины" "угол" "Backwards? <N>" "Upside-down? <N>" "Vertical? <N>") Если кроме имени стиля нет параметров, он становится текущим стилем текста.

Вот хочу вместо угла - задать курсив.
Не получится с помощью данной команды?

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

Под словом "угол" подразумевается угол наклона букв.

[andery]

Сообщение от Кулик Алексей aka kpblc Под словом "угол" подразумевается угол наклона букв.

Спасибо, это я понимаю.
Хочу задать опцию "начертание" с командной строки.

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

При использовании shx-шрифтов, по-моему, такого нет. ttf-шрифтами просто не пользуюсь - весу и головняка много, а толку - "маловато будет" (с)

[andery]

shx-шрифтов

они не поддерживают украинский язык
Стоит ли искать ответ на заданный вопрос или пока забыть об этом?

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

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

[Alaspher]

Сообщение от andery они не поддерживают украинский язык Стоит ли искать ответ на заданный вопрос или пока забыть об этом?

Надо точно знать название файла курсивного шрифта, например:

Код:

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

(command "_.-style" "gost200" "isocpeui.ttf" 200 "1" "0" "_n" "_n")