[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

_____________________________________________________________________________________________________________

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

[koMon]

Сообщение от Sege что дальше делать с полученным значением clr для его проверки (цвет равен красным)

(= 1 (vla-get-colorindex clr))

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

Sege, попробуй взять дамп clr.

[Red Nova]

Еще один вопрос. Имею блок (главнй блок) который в свою очередь состоит из блоков (второстипенные блоки).
Имея только Entity name одного из второстепенных блоков, возможно ли получить Entity name главного блока?
Файл примера прикрепляю.

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

Во-первых, ты получаешь указатель на вхождение блока или на его описание? Если на вхождение, то через OwnerId (или 330-ю группу) получить "владельца" можно. Если на описание - то никак: блок может быть вставлен куда угодно. Или вообще не вставлен.

[Red Nova]

Спасибо, получилось. Речь шла о вхождении блока.

[40in]

Есть файл с кучей динамических блоков. В свойствах все блоки имеют одно имя, но по ENTGET получаю разные значения имени блока (assoc 2 ) Вот собственно и вопрос: как добраться до истинного имени блока?

[name02]

Код:

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

 (setq ent (car (entsel "\n Select a Dynamic block :")))
(vla-get-Effectivename (vlax-ename->vla-object ent))

или более универсальный вариант от kpblC https://forums.augi.com/showthread.p...l=1#post610063

Или тут - на VLisp или чистом лиспе https://lee-mac.com/effectivename.html

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

Через ActiveX: vla-get-effectivename

[Сергей812]

Сообщение от 40in Вот собственно и вопрос: как добраться до истинного имени блока?

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

[40in]

Всем спасибо!!! Вы мне очень помогли!

[1958]

Код:

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

  (initget "Нет Замечания Принято Брак Чужое")
 (setq reply (getkword "Проверка: [Нет/Замечания/Принято/Брак/Чужое]: "))
 (setq answ (cond ((= reply "Нет") 0)
                  ((= reply "Замечания") 1)
                  ((= reply "Принято") 2)
                  ((= reply "Брак") 3)
                  ((= reply "Чужое") 4)
                  (t nil)
            )
 )

Дома и на работе установлен AC2024. По вышеприведенному коду отображение диалога на работе и дома отличается. Я так понимаю, что это зависит от какой-то системной переменной. Какой? Или в чем-то другом причина?

[SetQ]

Сообщение от 1958 Я так понимаю, что это зависит от какой-то системной переменной. Какой? Или в чем-то другом причина?

Не похоже на переменную, скорее, какая-то неисправность в автокаде.

[1958]

Сообщение от SetQ скорее, какая-то неисправность в автокаде.

Ерунда эта появилась из-за авто переноса пользовательских настроек при установке AC2024. Я, в основном, работаю в AC2007. Пришлось возвращать настройки по умолчанию, а потом вручную настраивать автокад род себя и всё заработало нормально.

[Сет]

Как организовать выбор объекта по условию? Есть простая функция entsel, но она выбирает любой тип объекта. А мне бы хотелось, чтобы выбирался только объект, удовлетворяющий некоторым условиям. Ну например, это должно быть вхождение блока с именем "абв". То есть если пользователь на запрос программы "Выберите объект" кликает на любой другой объект - ничего не должно происходить. И только если пользователь кликнул на вхождение блока с именем "абв" - продолжилось бы выполнение лисп-программы.

[Сергей812]

цикл по факту выбора правильного объекта - вроде встроенной фильтрации типа выбираемого объекта в лиспе нет, в отличие от того же .Net

[Сет]

Сообщение от Сергей812 цикл по факту выбора правильного объекта - вроде встроенной фильтрации типа выбираемого объекта в лиспе нет, в отличие от того же .Net

В функции ssget фильтрация есть. Получается такой функционал работает только для наборов, а для одиночного объекта нужно что-то изобретать?

[Сергей812]

Сообщение от Сет нужно что-то изобретать?

в лиспе приходится постоянно что-то изобретать, как и в том же VBA - языки остановились в своем развитии *-цать лет назад.. Хотя для сравнения в том же .Net можно задать искомый тип примитива, но проверку на

Сообщение от Сет блока с именем "абв"

надо будет делать отдельно в коде. Т.е. только частично код сокращается по сравнению с лиспом в данном случае.

[megabeton]

Кликнул по объекту entsel'ом, посмотрел что это через entget, если удовлетворило условие, продолжил выполнение кода, если нет, выполнил новый entsel (через while)

----- добавлено через ~1 мин. -----
Встроенной фильтрации в entsel'е нет

[Сет]

Сообщение от megabeton Кликнул по объекту entsel'ом, посмотрел что это через entget, если удовлетворило условие, продолжил выполнение кода, если нет, выполнил новый entsel (через while)

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

[megabeton]

(while
(= "АБВ" (cdr (assoc 2 (entget (setq obj (car (entsel)))))))
(что то делаем с obj)
...
)