[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]

(command "_pline" "0,3.0902" "1.3876,5.7295" "-1.3876,5.7295" "_close")
(command "_array" "last" "" "p" "0,0" "5" "360" "_y" "")

[Кот Пушок]

Спасибо!

Надо же, такое пропустил...
Смешно даже.

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

gomer, у тебя код какой-то странный... Часть кода универсальна, часть - только для английской версии.

[gomer]

А, да, ну, не мое, не жало
это такое домашнее задание, пусть сам разбирается

[Кот Пушок]

И еще вопрос.
Создаю новый слой:
(COMMAND "_layer" "_n" "MH-Hidden-Medium" "_c" "55" "MH-Hidden-Medium" "")

или:
(COMMAND "_layer" "_n" "MH-Center" "_c" "115" "MH-Center" "")

В первом случае нужна линия hidden, во втором - center.

Как это записать, чтобы заработало?

В выделенным красным цветом местах пытался писать "_h" "_hidden" "hidden" "_c" "_center" "center" - ничего не получилось.

А таки да - у меня английская версия автокада.

[gomer]

(command "_layer" "_n" "MH-Hidden-Medium" "_c" "55" "MH-Hidden-Medium" "_l" "HIDDEN" "MH-Hidden-Medium" "")

[Кот Пушок]

Сообщение от gomer (command "_layer" "_n" "MH-Hidden-Medium" "_c" "55" "MH-Hidden-Medium" "_l" "HIDDEN" "MH-Hidden-Medium" "")

Спасибо огромное!
Теперь понял, что _с было для определения цвета, а я посчитал, что это для сплошной линии...

Красота!

Теперь буду шагать дальше.

[gomer]

Сообщение от Кот Пушок Красота! Теперь буду шагать дальше.

Шагай, только смотри что тебе акад пишет

[Кот Пушок]

Еще вопрос, будьте добры, пожалуйста.
В списке слоёв имеется слой:

(command "_layer" "_n" "Worklines" "_c" "53" "Worklines" "_l" "continuous" "Worklines" "")

Его нужно запретить для печати.
Как это записать в Лиспе?

[gomer]

Сообщение от Кот Пушок Его нужно запретить для печати. Как это записать в Лиспе?

я же сказал см. командную строку, есть опция Plot (Plot/No Plot), а дальше по аналогии, что сложного?

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

А вот не проще ли создавать / модифицировать слой без командных методов?

[Кот Пушок]

Сообщение от gomer я же сказал см. командную строку, есть опция Plot (Plot/No Plot), а дальше по аналогии, что сложного?

Не сложно, когда знаешь, как записать, чтобы лисп работал.

"без командных методов". Один слой создать можно. Да и несколько не проблема.

Я делаю заготовку шаблона из 50-ти, который будет загружаться при начале работы.

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

А потом к файлу, с таким трудом подготовленному, будет применен _.purge. И все, аллес!

[Кот Пушок]

Сообщение от Кулик Алексей aka kpblc А потом к файлу, с таким трудом подготовленному, будет применен _.purge. И все, аллес!

Спасибо за помощь.

Премного благодарен.

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

Как один из вариантов: http://kpblc.blogspot.com/2009/07/txt.html

[Кот Пушок]

Сообщение от Кулик Алексей aka kpblc Как один из вариантов: http://kpblc.blogspot.com/2009/07/txt.html

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

Сейчас записал так:

(command "_layer" "_n" "Worklines" "_c" "53" "Worklines" "_l" "continuous" "Worklines" "_plot" "no" "Worklines" "")

Заработало.

Уря!

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

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

Сообщение от Кот Пушок как защитить созданный список слоёв от редактирования.

Вариант 1: поместить его напрямую в код.
Вариант 2: поместить настройки в сторонний текстовый файл, располагаемый на сервере, и файл закрыть от редактирования.
Вариант 3: поместить настройки в сторонний dws-файл, располагаемый на сервере, и файл подключать автоматически
Вариант 4: поместить настройки в сторонний dwg-файл, и-далее-все-то-же-самое
Вариант 5: ...

[Кот Пушок]

Сообщение от Кулик Алексей aka kpblc Вариант 5: ...

Да, тут есть над чем работать.

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

Ну, да что-то будет сделанно.
Даже если и применить Purge All , можно потом перезагрузить лисп, и слои вернутся на место.
Так што - буду работать...

[gomer]

Сообщение от Кот Пушок Не сложно, когда знаешь, как записать, чтобы лисп работал.

важно не столько знать как, а понимать что ты хочешь + курить мануалы
Кот Пушок, ну вот ты уже знаешь как создавать слой с опциями, даже несколькими, как их добавлять в конец лисп-выражения, печатаемость слоя - тоже опция, чтоб ее применить, ее также надо добавить как и цвет, тип линии... Просто вызови команду -layer и смотри последовательность ввода, чтоб сделать слой непечатаемым

[Кот Пушок]

Сообщение от gomer Просто вызови команду -layer и смотри последовательность ввода, чтоб сделать слой непечатаемым

Это я делал.
Я знаю, как работать с коммандной строкой.
А вот как записать - не сразу понял.

Писал "_No plot" "N" "plot", еще чего-то, пока не додумался до "_plot" "no"

Не, я ж конешно, понимаю, што гуру любят повыделоваться над новичками, тута ничего не поделаешь.

Но вот почему я такой дурной - если меня что-то спросят, я возьму, да и расскажу.