[sdv79]

После применения кода, изменение vla-put-Thickness на пример на 10.0 блок ЖЕСТОКО перекашивает. Причину выяснить не могу. После возвращения vla-put-Thickness на пример на 0.0 все становиться на свои места. Если изменить данный параметр руками через редактор блока, все хорошо. Но это не наш метод. В чем дело?

Код:

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

 
     (setq VLA-OBJECT (vlax-ename->vla-object
		         (entlast)
                        ) ;/ vlax-ename->vla-object
       ) ;/ setq

(setq adoc (vla-get-activedocument
              (vlax-get-acad-object)
             ) ;/ vla-get-activedocument
  ) ;/ setq
  (setq block_def (vla-item ; vla-óêàçàòåëü íà îïèñàíèå áëîêà, âèäà #<VLA-OBJECT IAcadBlock 000000003c8ca0d8>
                    (vla-get-blocks
                     adoc
		    ) ;/ vla-get-blocks
                    (vla-get-Effectivename VLA-OBJECT)
                  ) ;/ vla-item
  ) ;/ setq
  (setq *block_cont ( ; ïîëó÷èòü ñïèñîê âñåõ ïðèìèòèâîâ, âõîäÿùèõ â áëîê
		     (lambda (/ res)
                      (vlax-for sub block_def
                       (setq res (cons sub res))
                      ) ;/ vlax-for
                      (reverse res)
                    ) ;/  lambda
                   )
  ) ;/ setq
  (setq *result_ent (vl-remove-if-not ; îòôèëüòðîâàòü âñå ïðèìèòèâû, èç ñîñòàâà óêàçàííîãî áëîêà, êîòîðûå íå ÿâëÿþòñÿ áëîêîì
                      (function
                       (lambda (x)
			(or 
                         (= (vla-get-objectname x) "AcDbPolyline") ;  çäåñü ñòàâèì ôèëüòð, òîãî ÷òî íàì íàäî "AcDbBlockReference" "AcDb3dSolid"...
			 (= (vla-get-objectname x) "AcDbCircle") ; äëÿ êðóãëîãî
			) ;/ or 
                       ) ;/ lambda
                     ) ;/ function
                    *block_cont
                   ) ;/ vl-remove-if-not
  ) ;/ setq

 (vla-put-Thickness
   (car *result_ent)
   10.0
 ) ;/ vla-put-Thickness

(arxload "battman")
(acet-attsync (vla-get-Effectivename VLA-OBJECT))
(vl-cmdf "_AttSync" "Имя" (vla-get-Effectivename VLA-OBJECT))

[Do$]

А что ожидалось? Зачем вообще блоку это свойство менять?

[sdv79]

Вставляется блок в 3D нужную точку, далее придаем ширину длину и ВЫСОТУ в соответствии с паспортными данными.

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

sdv79, высоту? блоку?

[sdv79]

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

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

sdv79, не путай теплое с мягким. Описание блока - это одно. Вхождение блока - совсем другое.

[sdv79]

Как мне избавиться от греховного поведения блока?

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

Для начала вспомнить, что свойства thickness у вхождения блока как бы нет. Попробовать поставить это свойство руками для вхождения блока. Приуныть.
Заодно вспомнить, что динамика и 3D не очень дружат.

[sdv79]

Руками может каждый. Как программно это сделать?

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

Ок, еще раз перечитай что я написал и сделай два вхождения блока: для одного thikness равна 10, для другого - 100. Результат - в студию.

[Do$]

Сообщение от sdv79 Руками может каждый. Как программно это сделать?

Руками thikness блоку не задать.

В в редакторе блока параметр фигурирует как толщина.

Так ведь выбрана-то полилиния. Это для нее задается толщина.

[sdv79]

Да, для полилинии задается толщина. Этого достаточно, что бы придать 3D вид.
Алексей, вы советуете сложные вещи))
Почему код не работает?

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

Вот екылымыны... Как можно программно установить свойства, если их нет? Повторяю:

Сообщение от Кулик Алексей aka kpblc сделай два вхождения блока: для одного thikness равна 10, для другого - 100. Результат - в студию.

[sdv79]

А я говорю МОЖНО! Невозможное возможно если верить в чудеса.
Вот вам пример, маленького чуда.
Код из первого поста

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

Во-первых: http://autolisp.ru/2012/03/16/howto-provide-dwg/
Во-вторых. Я два раза сказал, могу и третий повторить:

Сообщение от Кулик Алексей aka kpblc сделай два вхождения блока: для одного thikness равна 10, для другого - 100. Результат - в студию.

Два!
Вхождения!
С разными thikness.
Уточняю: thikness должны быть установлены независимо на разные вхождения блоков.

[sdv79]

Чем не устраивают два блока из 12 поста у одного блока thikness=10 у другого 100

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

Ага, а тот факт, что блоки разные - не смущает?

----- добавлено через 32 сек. -----
Уточняю: у них имена разные.

[Do$]

Ой... Ну надо же так описывать свои проблемы, что потом на целую страницу идет разбор...
Как я наконец-то понял, толщина задается не блоку, а объекту внутри блока.
Невозможно двум блокам с одинаковым именем (одинаковым определением) задать разную толщину объектов внутри. Об этом и говорит Алексей. А в чертеже из #12 два блока с разными именами (разные определения блока), поэтому там все получилось.

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

А теперь, внимание, задачка на внимательность! Скрин снят с ACAD2009 (можно посмотреть в любой версии - вплоть до 2015; картина принципиально не меняется). Найти в панели свойств при выделенных блоках свойство Thickness

[Do$]

Да ему нужно объектам внутри блока выставлять ее. В коде из первого поста, вроде как, так и делается - получается коллекция объектов из блока, отсеивается все кроме полилиний и отрезков и им уже задается это свойство.