Комментарии на: О пользе ename-представлений

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Wed, 29 Jun 2011 09:34:11 +0000

Все дело в том, что ошибки обрабатываются по-разному: Код без ошибок

От: Gontarski

Gontarski — Wed, 29 Jun 2011 07:15:25 +0000

>а если я в момент запроса штриховки нажму Esc? Или в момент запроса точки?

В смысле в приведенном мной коде? Нормально всё отработает. Будет выдано сообщение об отмене команды, всего-то делов. Так-же как и в Вашем коде. Об том и речь - при той же функциональности разница в коде очевидна. Ну по крайней мере мне.

Ну да и ладно, чой-та я полез в чужой монастырь со своими молитвами. Спасибо за плодотворную беседу, Ваш сайт на самом деле очень полезен, честно. Хорошая работа!

ЗЫ: Но насчет прозрачности и компактности кода рекомендую таки задуматься.

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Tue, 28 Jun 2011 05:52:13 +0000

В конкретно взятом примере отлов ошибок имеет прямое значение: а если я в момент запроса штриховки нажму Esc? Или в момент запроса точки?
Я стараюсь показывать не столько коды для начинающих, сколько гарантированно работающие и более-менее правильно написанные коды

От: Gontarski

Gontarski — Tue, 28 Jun 2011 01:41:01 +0000

что-то тэг лисп-кода не сработал

(defun c:chh3 ( / adoc elist base)

;укажем исходные данные
(while (= (setq ss (ssget ":S" '((0 . "HATCH")))) nil) (prompt "\nНеобходимо указать штриховку!!"))
(while (= (setq base (getpoint "\nУкажите новую базовую точку для штриховки: ")) nil))

;dxf список штриховки
(setq elist (entget (ssname ss 0)))

;изменим координаты базовой точки в списке
(setq elist (subst (cons 43 (car base)) (assoc 43 elist) elist))
(setq elist (subst (cons 44 (cadr base)) (assoc 44 elist) elist))

(vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object)))) ;для обеспечения корректной отмены наших действий

(entmod elist) ;изменим штриховку в соответствии с новым списком
(entupd (ssname ss 0)) ;обновим отображение штриховки

(vla-endundomark adoc) ;для обеспечения корректной отмены наших действий
(princ)
);defun

От: Gontarski

Gontarski — Tue, 28 Jun 2011 01:38:30 +0000

что-то таг не сработал, извините.

(defun c:chh3 ( / adoc elist base)

;dxf список штриховки
(setq elist (entget (ssname ss 0)))

(vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object)))) ;для обеспечения корректной отмены наших действий

(entmod elist) ;изменим штриховку в соответствии с новым списком
(entupd (ssname ss 0)) ;обновим отображение штриховки

(vla-endundomark adoc) ;для обеспечения корректной отмены наших действий
(princ)
);defun

От: Gontarski

Gontarski — Tue, 28 Jun 2011 01:37:30 +0000

Спасибо за ответ.

>Элементарный – отлов ошибок.
Я в курсе функционала. Я намекал, что в конкретно взятом примере их применение не имеет никакого смысла, а только лишь убивает читабельность кода (вы ведь для новичков здесь код выкладываете, так?). Это же можно сказать о применении здесь foreach.

всё тоже самое можно выразить например вот так:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

(defun c:chh3 ( / adoc elist base)

;укажем исходные данные
(while (= (setq ss (ssget ":S" '((0 . "HATCH")))) nil) (prompt "\nНеобходимо указать штриховку!!"))
(while (= (setq base (getpoint "\nУкажите новую базовую точку для штриховки: ")) nil))

;dxf список штриховки
(setq elist (entget (ssname ss 0)))

;изменим координаты базовой точки в списке
(setq elist (subst (cons 43 (car base)) (assoc 43 elist) elist))
(setq elist (subst (cons 44 (cadr base)) (assoc 44 elist) elist))

(vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object)))) ;для обеспечения корректной отмены наших действий

(entmod elist) ;изменим штриховку в соответствии с новым списком
(entupd (ssname ss 0)) ;обновим отображение штриховки

(vla-endundomark adoc) ;для обеспечения корректной отмены наших действий
(princ)
);defun

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Sat, 25 Jun 2011 07:15:37 +0000

Элементарный - отлов ошибок. Подробнее см. Код без ошибок – возможно ли?

От: Gontarski

Gontarski — Sat, 25 Jun 2011 04:07:36 +0000

Скажите, а какой физический смысл всех этих "(vl-catch-all-apply" в вашем коде? Спасибо.

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Mon, 01 Nov 2010 08:00:26 +0000

Только что позвонил Евгений Елпанов, и сказал, что для штриховок есть отдельный метод, который позволяет (по крайней мере теоретически) получить изменения сразу. Таки да, есть метод Evaluate, но даже его применение для уже существующей штриховки не дало видимого эффекта на AutoCAD 2011 64 bit. То есть базовая точка для штриховки меняется (это видно по дампу объекта), но визуально изменения штриховки не касаются - надо лезьть в панель свойств, там менять, к примеру, масштаб - вот тогда все становится здорово и круто. Каково будет поведение для варианта добавления элементов в контур - не знаю, не проверял. P.S. За компанию код для vla-обновления штриховки. Если кому-то интересно, погоняйте, проверьте. Вдруг это у меня на машине глюк. chh-vla.lsp