[sdv79]

Доступ к содержимому нашел на форуме

Код:

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

 
(vl-load-com)


(setq ent (vlax-ename->vla-object (car (entsel "\nSelect block : "))))


(setq block_def (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
                          (vla-get-effectivename ent)
                          ) ;_ end of vla-item
      ) ;_ end of setq


(setq block_cont ((lambda (/ res)
                    (vlax-for sub block_def
                      (setq res (cons sub res))
                      ) ;_ end of vlax-for
                    (reverse res)
                    ) ;_ end of lambda
                  )
      ) ;_ end of setq


(setq result_ent (vl-remove-if-not
                   (function
                     (lambda (x)
                       (= (vla-get-objectname x) "AcDbPolyline") ; "AcDbBlockReference"
                       ) ;_ end of lambda
                     ) ;_ end of function
                   block_cont
                   ) ;_ end of vl-remove-if-not
      ) ;_ end of setq

Как изменить параметр Thickness, скажем у первого 10 у второго 15 у третьего 20. Имя блока можно менять.

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

sdv79, данного описания или данного вхождения блока? Разница принципиальная.

[sdv79]

Простите, разницу не понимаю. Задача такова
Ставлю блок в нужную точку-трансформирую его
- изменяю "длину"....

Код:

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

 
   (cond ; äëÿ âñòàâêè áëîêà ïðîâåðÿåì åñòü ëè îí òàáëèöå áëîêîâ
    (
     (or 
       (null(tblsearch "block" "ОП прямоугольник"))
       (null(tblsearch "block" "ОП круг"))
     ) ;/ or
      (vl-cmdf "_.INSERT" (findfile "Светильники.dwg")) ; äàåò äîñòóï êî âñåì áëîêàì â äàííîì ôàéëå
      (vl-cmdf)
    )) ;/ cond

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


    (vlax-put-property
      (nth 2 
       (safearray-value
	(vlax-variant-value
         (vla-GetDynamicBlockProperties
          VLA-OBJECT
         ) ;/ vla-GetDynamicBlockProperties
        ) ;/ vlax-variant-value
       ) ;/ safearray-value
      ) ;/ nth
      (function value)
      (/ 
        (atof dlina)
        100
      ) ;/ /
    ) ;/ vlax-put-property

далее хочу только для данного блока выставить высоту светильника, а потом его буду поднимать

Код:

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

 
     (setq InsertionPoint (safearray-value
			   (vlax-variant-value ; òî÷êà âñòàâêè
   			    (vla-get-InsertionPoint VLA-OBJECT) ; BlockRef object-Properties-InsertionPoint
  		           ) ;/ vlax-variant-value
			  ) ;/ safearray-value
     ) ;/ setq

     (vlax-put-property	VLA-OBJECT
  			"InsertionPoint"
  			(vlax-3D-point (list ; ò.ê ïðè (vla-get-.. ïîëó÷àåì #<variant 8197 ...> , òî è ôîðìèðîâàòü äîëæíû #<variant 8197 ...> 
			  		     (car  InsertionPoint) ; ïîëîæåíèå Õ
			  		     (cadr InsertionPoint) ; ïîëîæåíèå Y
			                     (- 		; ïîëîæåíèå Z
			                       (* height 10) 	; âûñîòà ïîìåùåíèÿ
			    		       h_lamp		; âûñîòà ñâåòèëüíèêà
			  		     ) ;/ -
			               ) ;/ list
		        ) ;/ vlax-3D-point
     ) ;/ vlax-put-property

В модели могут быть разной высоты светильники.

[Boxa]

динамический блок?

[sdv79]

да. Возможно. логичнее было бы создать динамический блок не из полилинии, а сразу из 3D-тела, но я не знаю как мне с данным "телом" работать (изменить только для данного динамического блока его длину, ширину, высоту. в остальных не изменять)

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

Что-то я не очень понимаю. То ли блоку надо установить определенную точку вставки с Z<>0, то ли Z оставить на 0, но поменять общую высоту вхождения блока...

[sdv79]

Непроходимо

Код:

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

 
(setq wer (car result_ent))
 (entget (vlax-vla-object->ename wer))

в dfx коде (39 . 1.23) изменить скажем 1.23 на 10, и ТОЛЬКО для ОДНОГО выбранного блока.

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

sdv79, в таком режиме ты поменяешь описание блока. Автоматом поменяются и все его вхождения (учи матчасть ) Так что выбор у тебя не очень богат: либо делать дин.блок, либо попробовать поиграться с группами, либо забить на эту задачку и попробовать найти обходные пути.

[sdv79]

сначала изменить имя блока-на уникальное (это тоже вопрос, как сделать, можно чопорно дата+время, если есть варианты-предложите, не знаю, возможно подойдут анонимные) (CopyBlock-VVA http://forum.dwg.ru/showpost.php?p=577878&postcount=8), потом изменить dfx, вопрос, как изменить dfx?

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

http://autolisp.ru/wp-content/upload...-autoregen.lsp
+ http://autolisp.ru/wp-content/upload...t-to-ename.lsp

----- добавлено через 33 сек. -----
А вообще, кто мешает установить свойство Thickness для указанного примитива?

[sdv79]

1)Как установить свойство Thickness для указанного примитива?
2) Почему работает только (arxload "battman") (acet-attsync "ОП прямоугольник")

Код:

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

 
(setq wer (car result_ent))
(setq wer (entget (vlax-vla-object->ename wer)))
 (setq e (subst
              (cons 39 3.35)
              (assoc 39 wer)
  wer)
       )
 (entmod e)

(entupd (cdar e))
(redraw (cdar e))

 (arxload "battman")
(acet-attsync "ОП прямоугольник")

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

Сообщение от sdv79 Как установить свойство Thickness для указанного примитива?

vlax-put-property
vla-put-thickness

Сообщение от sdv79 Почему работает только (arxload "battman") (acet-attsync "ОП прямоугольник")

C чего это "только"? Не только.

[sdv79]

У меня (entupd (cdar e)), (redraw (cdar e)) не работают, возможно как то иначе следует применять? А вот (arxload "battman")(acet-attsync "ОП прямоугольник"), работает отлично. Почему? Win 7 x64+ACAD 2015 x64+SP2

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

sdv79, для начала пойми разницу между описанием (definition) и вхождением (reference) блока. Потом разберись, где ты выполняешь изменения.
P.S. Эта информация уже столько раз мелькала на форуме...

----- добавлено через ~4 мин. -----
Во, может быть, поможет: http://autolisp.ru/2011/05/23/blockref-update/

[sdv79]

Спасибо.

[nolte]

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

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

И добавить массу объектных реакторов - на изменение блока, на его копирование, удаление... Оно надо?

[nolte]

И добавить массу объектных реакторов - на изменение блока, на его копирование, удаление... Оно надо?

или все в нескольких лиспах сделать.

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

Что в лоб, что по лбу: http://adn-cis.org/forum/index.php?t...sg6716#msg6716

[nolte]

я так думаю, что вариант с лиспами или же реакторами луше, бесконечного количества похожих блоков с разными именами. впринципе можно вообще убежать от блока. сообразить окно для заполнения необходимых данных-характеристик и нумерацию в расширенные данные каждого элемента (светильник 1, 2, 3 и т.д.), и потом по этим же номерам сделать (если необходимо) спецификацию.