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

[sdv79]

Do$, изначально вопрос был почему не работает код, и как его поправить, о чем изложил в шапке, а дальше пошла вода.
Алексей, на прямую толщину конечно же изменить нельзя, т.к это свойство полилилинии, которая находится в блоке.
Есть блок, со своими потрохами, есть код. С круглым блоком код работает, с прямоугольным нет.
Помогите мне с кодом, или блоком. Необходимо воздействовать только на полилинию в блоке, и ВСЕ! КАК?

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

В ACAD2015 ничего не "перекашивает"

[gomer]

Сообщение от sdv79 Помогите мне с кодом

для начала скопируйте свой код из блокнота, а не из vlide

[Александр Ривилис]

Сообщение от gomer для начала скопируйте свой код из блокнота, а не из vlide

Или как минимум переключившись на русскую раскладку клавиатуры перед копированием.

[sdv79]

Код получился сложный для восприятия. НЕ РАБОТАЕТ.

[Do$]

Сообщение от sdv79 НЕ РАБОТАЕТ.

Работает как миленький. http://autode.sk/1I3x52L

P.S. http://bash.im/quote/268537 (осторожно, мат)

[sdv79]

Код представленный Алексеем НЕ РАБОТАЕТ в связке с блоком из 1 поста. Он его перекашивает. Эффект тот же, что код в шапке.
Do$ попробуйте сами.
Александр, учту, не знал.

[Do$]

Сообщение от sdv79 Код представленный Алексеем НЕ РАБОТАЕТ в связке с блоком из 1 поста. Он его перекашивает.

Еще раз повторяю - код работает отлично: http://autode.sk/1Fclbp6
Если что-то не устраивает, то не надо КАПСОМ кричать. Попробуйте лучше БОЛЬШИМ КОЛИЧЕСТВОМ СЛОВ ПОДРОБНО ОПИСАТЬ ПРОБЛЕМУ! А то полпоста пытаемся понять что нужно, еще полпоста препираемся о работоспособности кода...

[sdv79]

Do$ а теперь попробуйте изменить длину или ширину за ручки. Не похож на прямоугольник))

[Do$]

Ну наконец-то, к 30 сообщению выяснили в чем проблема...