[ASLYS]

Код:

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

(vla-add(vla-get-blocks (vla-get-ActiveDocument (VLAX-GET-ACAD-OBJECT)) (VLAX-3D-POINT point) "name")

создаю пустой блок...
как его заполнить с помощью vla-функций, вобщем не используя

Код:

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

(command "_block" blk-name-act P-ins Obj-ename "")

[VVA]

Как-то так, подробности в коментариях

Код:

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

(and
(setq blkdef (vla-add(vla-get-blocks (vla-get-ActiveDocument (VLAX-GET-ACAD-OBJECT)))(VLAX-3D-POINT '(0 0 0)) "name"))
;;Если объекта нет, то можно "рисовать" в блок
(vla-addline blkdef (vlax-3d-point '(10 10 0))(vlax-3d-point '(100 100 0)))
;;Если объекты есть, то можно копировать в блок
;; obj - список vla-указателей объектов
(setq ss (ssget "_:L"))
(setq obj (mapcar 'vlax-ename->vla-object(vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
(vla-copyobjects (vla-get-activedocument (vlax-get-acad-object))
              (vlax-make-variant (vlax-safearray-fill
                  (vlax-make-safearray vlax-vbobject (cons 0 (1- (length obj))))
                  obj)) blkdef)
)

;;; Если знаешь vla-указатель другого блока, то его можно "втавить" в другой блок
;;; x - vla-указатель блока (insert)
;(vla-InsertBlock blkdef
;	       (vla-get-insertionpoint x)(vla-get-name x)
;	       (vla-get-xscalefactor x)(vla-get-yscalefactor x)
;	       (vla-get-zscalefactor x)(vla-get-rotation x))

[ASLYS]

спасибо, разобрался

[ASLYS]

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

Код:

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

(vl-cmdf "_explode"(car (entsel "\nSelect block:")) " ")

а так хочется, но не получается

Код:

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

(vla-explode (car (entsel "\nSelect block:")))

как с помощью vla-функции взорвать разномасштабный блок?

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

Тут, по-моему, одно из двух. Либо explmode не 1, либо уже ничто не поможет
Хотя, по-моему, vla-explode не обрабатывает неравномасштабные блоки

[AY]

Алексей совершенно прав. Проблему с vla-explode уже как-то обсуждали резюме было такое:

Вобщем vla-explode - дает ошибку на: разномасштабных анонимных и именованных блоках; некорректно обрабатывает (смещает): повернутые анонимные блоки; корректно обрабатывает: блоки кроме перечисленных. зы если чего напутал просьба одернуть :)

[Krieger]

Плюс к этому, наверно, необходимо во vla- функцию передавать не ename примитива, а vla-object, т.е. как-то так:

Код:

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

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

[VVA]

>ASLYS Посмотри эту тему. Там делали burst блокам, причем многоуровневым и получали набор взорванных примитивов