[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

_____________________________________________________________________________________________________________

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

[superkot007]

- DC - не практикуется у нас (удобно, но для многих проблемно, я же не только себе хочу...)
- Просто "_.insert" - нет наглядности (по названию блока можно и не понять, что вставляется)...
- через Инструментальные палитры - мелкие изображения; с мозаичным меню тоже мелко...

А тут случайно в книге Полещука наткнулся... Можно что-нибудь "сваять"?

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

Вообще-то в окне _.insert можно и предварительный просмотр получить. И там же, нажимая кнопку Обзор, увидеть (в зависимости от настроек проводника) сохраненный вид чертежа.
Палитры инструментов (точнее, размер значков) настраиваются примерно за 3..5 секунд.

[superkot007]

Сообщение от Кулик Алексей aka kpblc Вообще-то в окне _.insert можно и предварительный просмотр получить. И там же, нажимая кнопку Обзор, увидеть (в зависимости от настроек проводника) сохраненный вид чертежа.

Согласись, что если блоков несколько десятков и раскиданы они в разных папках, простое "Вставка - блок" (ну или _insert) не очень ускоряет процесс создания схем. Это самый последний вариант

Сообщение от Кулик Алексей aka kpblc Палитры инструментов (точнее, размер значков) настраиваются примерно за 3..5 секунд.

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

Ну так что, моя просьба найдет понимание?

Offtop: А то, по-моему оффтопить начинаем... Многим это на мыло идет,...

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

superkot007, лично я ни разу не сталкивался с тем, чтобы программно делать sld из стороннего файла. Из текущего еще как-то можно попробовать, но это решение - на полраза (ИМХО).

Сообщение от superkot007 если блоков несколько десятков и раскиданы они в разных папках

Значит их надо объединять. Или в одну папку, или в один dwg-файл. И вставлять уже блоками оттуда. И потом, схемы схемами, а название и пояснение к ним никто не мешает сделать информативными...

[ShaggyDoc]

Ну так что, моя просьба найдет понимание?

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

Здесь нет никаких слайдов, иллюстрации делаются на лету, прямо с экрана.

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

Сами слайды и библиотеки слайдов давно устарели. Когда ничего не было иного - возились с ними. А теперь-то зачем? Не облегчат и не ускорят они работу по сравнению со штатными средствами.

Если же надо лучше, чем через Design Center - см. рисунок. Как сделать - описано в книге "САПР на базе AutoCAD - как это делается".

[superkot007]

Сообщение от Кулик Алексей aka kpblc superkot007, лично я ни разу не сталкивался с тем, чтобы программно делать sld из стороннего файла. Из текущего еще как-то можно попробовать, но это решение - на полраза (ИМХО).

Я, наверное, неправильно сформулировал... Мне слайды не нужны (архив - полный пример из книги, не более), хотел бы, чтобы таким же образом можно было выбрать нужный dwg-файл и вставить в схему...
Пожалуйста...

[Frigate]

Сообщение от Кулик Алексей aka kpblc В таком случае я начинаю подозревать, что либо в блоке есть атрибуты с одинаковыми тэгами, либо определения блоков разнятся. Либо автоматом после вставки выполняется команда _.attsync (или ее аналог)

Алексей, в продолжение темы (опять выплыл глючные блок):

Изначально в одном чертеже получился отчего-то такой глючный блок, который при копировании (Copy Paste) возвращает атрибуту выравнивание, установленное в самом определении блока.
Если вставлять блок через панель инструментов (не через копирование) - то все нормально, можно самому менять выравнивание и степень растяжения атрибута.
Вроде в других файлах этот же блок нормально работает. Но все-таки хочется докопаться до истины - что не так с этим блоком.

Может ты сможешь разобраться?


Прикрепляю файл, где есть такой глючный блок и нормальный блок. Они абсолютно идентичны (в описании). В чем дело - так и не понимаю.

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

Во-первых: что в файле делают следы ПО от CSoft?
Во-вторых: AutoCAD 2011 Eng 64 bit, AutoCAD 2011 Rus 64 bit - ситуацию после

Код:

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

Command: _-purge
Enter type of unused objects to purge 
[Blocks/Dimstyles/LAyers/LTypes/MAterials/MUltileaderstyles/Plotstyles/SHapes/textSTyles/Mlinestyles/Tablestyles/Visualstyles/Regapps/Zero-length geometry/Empty text objects/All]: _a
Enter name(s) to purge <*>:
Verify each name to be purged? [Yes/No] <Y>: _n
Command: _-purge
Enter type of unused objects to purge 
[Blocks/Dimstyles/LAyers/LTypes/MAterials/MUltileaderstyles/Plotstyles/SHapes/textSTyles/Mlinestyles/Tablestyles/Visualstyles/Regapps/Zero-length geometry/Empty text objects/All]: _r
Enter name(s) to purge <*>:
Verify each name to be purged? [Yes/No] <Y>: _n
Command: _audit
Fix any errors detected? [Yes/No] <N>: _y

повторить не удалось. Блок нормально копируется через буфер обмена.
У тебя в самом определении блока (насколько я понял) уже установлено для атрибута выравнивание Fit, так что еще вопрос - какое вхождение корректно Вот копирование блока со значением атрибута "1" как раз и вызывает восстановление исходного состояния выравнивания атрибута...
ИМХО - можно заносить в список багов

[Frigate]

Кулик Алексей aka kpblc,

1. Не знаю, брал чистый чертеж, просто копируя туда глючный и нормальный блок. Хотя на компе утсановлена СПДС Графикс.
2. У меня после этого PURGE на АКАД 2009 РУС ничего не устраняется. Ну ты это и так понял.
3. А вхождения должны быть такими, какими я их устанавливаю при размещении (insert). Если в номере кабеля больше 7 символов - то "по ширине" остается. Если меньше 7 символов, то программно выравнивание ставится "по центру" + сдвигаю точку вставки.
Но заметь, Алексей, что неглючный блок всегда копирует правильно - в т.ч. и через буфер обмена.
Так что скорее всего это глюк автокада. Только жаль, что я не могу уже повторить этот баг - т.е. сделать глючный блок из нормального, для локализации проблемы.
Итог - использовать автокад 2011

Кстати, 2011 в каком формате сохраняет чертежжи по умолчанию?
В 2007м или уже в другом?

[alex8888]

Кстати, 2011 в каком формате сохраняет чертежжи по умолчанию? В 2007м или уже в другом?

в 2010-м (AC1024), у 2007-го был AC1021

[Frigate]

Здравствуйте, уважаемые Гуру форума.

Опять у меня траблы с таблицами, созданными программным методом.

Итак:

написал прогу, которая у указываемой таблицы проставляет все границы ячеек 0.4 мм.
Работает прога вполне нормально, но такая проблема:

если после работы проги (делает толстыми все границы таблицы) сделать стандартное Undo (нажать кнопку на панели инструментов), то при повторной попытке сделать все границы той же таблицы толстыми - акад вешается. Уже на 3 секунды работает моя прога, а минуты 2-3.

Прошу помочь советом. Или это баг Автокада?

[VVA]

Сообщение от Frigate Прошу помочь советом.

Помогаю: RegenerateTableSuppressed
Читать здесь, начиная с 4 поста или здесь При запуске Lisp идет утечка памяти

[Frigate]

Здравствуйте!

Прошу объяснить непонятную ситуацию:

у меня прога видит локульную переменную своей внутренней функции.

Вернее, не сама прога, а функция обработки ошибок *error*

Значит, обработчику ошибок доступны локальные переменные внутренних функций програмы???

ПРикольно - только что попробовал еще с одной переменной - просто локальной переменной внутренней функции присвоил некое значение. А в обработчике ошибок в самой программе написал PRINC эту локальную переменную внутренней функции - и ВЫВОДИТ ))) Во чудеса-то. Или так и должно быть?

Хочу уточнить, что сама программа НЕ ВИДИТ локальной переменной внутренней функции, т.е. я задал все верно. А вот обработчику ошибок доступно все... даааа... наводит на интересные мысли )))

[TararykovDG]

Frigate, ничего необычного. В обработчике ошибок *error* будут видны только те локальные переменные которые были определены в той функции из которой был вызван обработчик ошибок *error*
Пример

Код:

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

(defun loc_1( / a)
  (setq a 1)
  (getpoint "\n1-я точка: ")
  )

(defun loc_2( / b)
  (setq b 2)
  (getpoint "\n2-я точка: ")
  )

(defun *error*(msg / )
  (princ a)
  (princ b)
  )

(defun glob()
  (loc_1)
  (loc_2)
  )

Если нажать Esc на запрос "1-я точка: " т. е. вызвать ошибку во время выполнения функции loc_1, то в *error* a = 1, b = nil, если нажать Esc на запрос "2-я точка: ", то в *error* a = nil, b = 2

[Frigate]

TararykovDG,

спасибо, действительно, все очень логично получается. Только теперь придется в обработчике ошибок учитывать и эту особенность

[VVA]

Frigate, Еще логичнее делать ф-цию *error* локальной. Тогда ей будут доступны все переменные функции верхнего уровня и не переопределяется стандартная ф-ция *error*. В этом примере ф-ция *error* объявлена локальной по отношению к ф-ции C:R2E и ей доступна переменная Doc без дополнительного объявления.
Вот примерный шаблон программы

[Frigate]

VVA,

я именно так и делал, вроде бы... Взял код-шаблон у Алексея (КРЫС):

Код:

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

(defun C:
	(
	/
	*error*	
	adoc
	)
(vl-load-com)

(vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))

(defun *error* (msg)
(vla-endundomark adoc)
(princ "Описание произошедшей ошибки: ")
(princ msg)
(princ)
)



(vla-endundomark adoc)

(PRINC)

);_end C:

Еще хотел поблагодарить тебя за классные ссылки на сайт Мак Ли - как раз понадобился для программного изменения динсвойств блоков.

[Лиспер]

Frigate, а имя команды-то где?

Код:

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

(vl-load-com)

(defun c:cmd-name (/ *error* adoc)

  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ "Описание произошедшей ошибки: ")
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  ;; Что-то делать
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[ShaggyDoc]

А ещё лучше программировать так, чтобы до *error* вообще дело не доходило. Эта функция срабатывает, когда "поздно пить боржоми". Обычно, если пользователь ESC нажал. В *error* можно только попытаться что-то исправить, обычно востановить какую-то обстановку (системные переменные). Когда-то это было единственное средство.

Но давно уже есть ловушки ошибок - функции vl-catch-all-apply, vl-catch-all-error-p, vl-catch-all-error-message. Они предотвращают саму возможность ошибок пользователя, чтобы при нажатии ESC программа не прерывалась. На мой взгляд это самое полезное нововведение в LISP после AutoCAD-14.

В очередной раз привожу высокоуровневую функцию обработки ошибок. Она упрощает использование "святой троицы".

Пример использования в комментарии:

Код:

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

(defun ru-error-catch
       (protected_expression on_error_expression / catch_error_result)
;|
Пример вызова
(ru-error-catch
    (function (lambda ()
                ;;; защищаемое выражение  
                (
                
                )
                ;;; То что вернет - будет результатом
              ) ;_ end of lambda
    ) ;_ end of function
    (function
      (lambda (err_msg)
        ;; если надо - выводим сообщение. err_msg подставит Автокад
        (princ (strcat "\nОШИБКА такой-то функции: " err_msg))
        ;; возвращаем NIL при ошибке
        nil
      ) ;_ end of lambda
    ) ;_ end of function
  )

|;
  
  (setq catch_error_result
         (vl-catch-all-apply protected_expression)
  ) ;_ end of setq
  (if (and (vl-catch-all-error-p catch_error_result)
           on_error_expression
      ) ;_ end of and
    (apply on_error_expression
           (list (vl-catch-all-error-message catch_error_result))
    ) ;_ end of apply
    catch_error_result
  ) ;_ end of if
) ;_ end of defun

Такой функцией надо оборачивать места возможных ошибок - и пользовательский ввод, и расчетную часть. Даже деление на ноль можно перехватить.

[Frigate]

Лиспер,

имя шаблону-то зачем? )))

Да, может твой код и логичнее, но по-сути он ничего не меняет.

Кстати, а как же определение adoc уже после определения функции *error*? Какой тогда смысл так переставлять определение обработчика ошибок?

В любом случае, при таком раскладе никакие системные переменные не изменяются, ничего еще не нарисовано, так что не фатально.

ShaggyDoc,

да, я так и стараюсь везде делать - чтобы выполнение функции или программы могло быть прервано только при ошибке, когда пользователь нажал ESC.
С ситуацией возможного деления на ноль - иногда может быть полезна обертка из vl-catch. Уже столкнулся с такой ситуацией в своих прогах, что при определенных обстоятельствах при длинных вычислениях происходило деление на ноль. Но возникшая ошибка помогла мне исправить код - просто убрать возможность появления нуля:

Код:

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

(if (= col_n 0)
(setq col 1)
)

А поводу ESC все-таки спорно - ведь из диалоговых окон, например, при отмене внесенных изменений удобно нажать ESC (если есть клавиша типа "Отменить"). Также, не во всех программах обоснован запрет нажатия ESC. Хотя на эту тему немало копий сломано на форумах, и у всех свое мнение.

Например, при необходимости указания точки пользователем (точка вставки таблицы, к примеру), пользователь отказывается от продолжения, тупо нажав ESC (даже если есть штатный вариант выхода из проги при помощи if). Что в таком случае нужно посылать в программу? Какую точку? ПО -моему, никакой не нужно, а нужно корректно убрать все внесенные изменения. Но ведь это же самое можно сделать и при помощи *error*. Может я что-то недопонимаю тут? Тогда был бы рад объяснению от мастеров ЛИСПа :-)