[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

_____________________________________________________________________________________________________________

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

[===AAA===]

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

[posetitel]

обработать единичную связку из двух файлов.

[===AAA===]

Вариант переключиться на это время в SDI=0 не подойдёт?

[posetitel]

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

[===AAA===]

с SDI=0 - никаких проблем

[posetitel]

сейчас проверил, SDI=0 стоит по умолчанию, т.е. не помогло

[===AAA===]

Сорри, SDI=1 нужно.

[posetitel]

тоже не помогло, попробовал и с 1

[===AAA===]

Просто открывай новый чертёж. Старый сам закроется.

----- добавлено через 54 сек. -----
Только старый сохраняй предварительно, чтобы Автокад вопросов не задавал.

[posetitel]

отличный совет ))
я целый день разбираюсь, как это реализовать средствами лиспа

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

Я не очень понимаю глубинного смысла этой затеи, но как алгоритм:
- получить и запомнить "где-то снаружи" текущее значение SDI
- Если SDI = 0, то пройтись по всей коллекции документов и позакрывать их
- SDI в 0
- сохранить файл
- в ком.строку послать нечто типа (vl-cmdf "_.close" "open" NewFileName.dwg) или каким-то другим способом попытаться открыть NewFileName.dwg
- восстановить SDI из "где-то снаружи".

[SetQ]

Сообщение от Кулик Алексей aka kpblc Это как?

Добавить реактор, который на команду SPDSNET_EXPORTACAD будет создавать файл flag.txt.

Код:

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

 (SetQ *fn* "C:\\temp\\flag.log")

(DeFun f0 (a b / f)
  (SetQ f (Open *fn* "w"))
  (Write-Line (Car b) f)
  (Close f)
)

(DeFun f1 (a b)
  (vl-file-delete *fn*)
)

(vlr-command-reactor nil '((:vlr-commandWillStart . f0)))
(vlr-command-reactor nil '((:vlr-commandEnded . f1)))
(vlr-command-reactor nil '((:vlr-commandCancelled . f1)))
(vlr-command-reactor nil '((:vlr-commandFailed . f1)))

(Eval (f1 0 0))

И одновременно работает какой-нибудь планировщик, например nnCron с таким заданием:

Код:

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

#( SPDSok
WatchFile: "C:\temp\flag.log"
Action:
SEND-KEYS: "{ENTER}"
FILE-DELETE: "C:\temp\flag.log"
)#

[Сергей812]

Сообщение от SetQ И одновременно работает какой-нибудь планировщик, например nnCron с таким заданием:

имхо, все-таки надо проверять текущее активное модальное окно - а не посылать наугад.

[SetQ]

Или совсем просто - по F5 nnCron "отправляет с клавиватуры" команду и два раза нажимает Ентер:

Код:

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

#( spds
WatchHotKey: "{0x74}"
Action:
SEND-KEYS: "SPDSNET_EXPORTACAD{ENTER}"
PAUSE: 500
SEND-KEYS: "{ENTER}"
)#

Можно в каком-нибуд AutoHotkey то же самое задать.

[MironovMA]

подскажите пожалуйста, а как правильно должен выглядеть лисп, если задача его загрузить три определенные файла *.dvb ?

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

По-моему, что-то типа vla-vbaload

[Red Nova]

Добродо времени суток, други. Ответите блудному автору на вопросик?
Имею список наименований объектов. Там есть как блоки (в основном динамические) так и другие объекты (линии, размеры и т.п.)
Что-то типа вот этого:

Код:

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

'(<Entity name: 142f8fbea20> <Entity name: 142f8fbee70> <Entity name: 142f8fbb960>)

Можно ли удалить из списка все что не есть блок?

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

Можно, а в чем проблема?
(vl-remove-if-not '(lambda(x)(=(cdr(assoc 0 (entget x)))"INSERT")) <Твой список>)

[Sege]

Нужно проверить цвет ячейки таблицы (например что она красная)

(setq obj (vlax-ename->vla-object (car (entsel))))
(setq clr (vla-GetCellContentColor obj 1 1))

получаю значение ячейки 1,1 в виде
#<VLA-OBJECT IAcadAcCmColor 000001da1a25e950>

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

[Red Nova]

Сообщение от Кулик Алексей aka kpblc Можно, а в чем проблема? (vl-remove-if-not '(lambda(x)(=(cdr(assoc 0 (entget x)))"INSERT")) <Твой список>)

Спасибо, маэстро. Проблема во мне