интересная тема

Что сделать то надо?

т.е. нужно программно вставить блок, или отрисовать примитивами?

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

Их не на ВБА делают, если что.

> фарэнгейт
фарэнгейт
Как я поняла динамические блоки НЕВОЗМОЖНО создать програмно (может кто опровергнет????)!!!!
Динамические блоки создаются в Автокаде, так сказать, вручную!!!
Загляните в справку Автокада и посмотрите. Там есть не просто сухой текст, там есть видео семинары!!!!! Да-да, представляете видео семинары!!! Класс!! Я за час научилась создавать их!!!
Но к сожалению отказалась от них в силу того, что их нельзя создавать програмно :(
Надо хранить файл-шаблон, в памяти которого были бы заложены эти динамические блоки :(
Но в будущем наверное всетаки перейду на них. Они очень удобны в использовании!!!

тада как вы считаете чем этот пример отличается от выше предоставленного7

Sub Example_AddMInsertBlock()
    ' This example creates a new Block in the current drawing, adds a
    ' Circle object to the new block, and uses the newly created block
    ' to create a rectangular array of block references using AddMInsertBlock
   
    Dim circleObj As AcadCircle
    Dim centerPoint(0 To 2) As Double, InsertPoint(0 To 2) As Double
    Dim radius As Double
    Dim newMBlock As AcadMInsertBlock
    Dim newBlock As AcadBlock
   
    ' Define the Circle object that will be inserted into the block
    centerPoint(0) = 0: centerPoint(1) = 0: centerPoint(2) = 0
    InsertPoint(0) = 1: InsertPoint(1) = 1: InsertPoint(2) = 0
    radius = 0.5
   
    ' Create a new block to hold the Circle object
    Set newBlock = ThisDrawing.Blocks.Add(centerPoint, "CBlock")
   
    ' Add the Circle object to the new block object
    Set circleObj = ThisDrawing.Blocks("CBlock").AddCircle(centerPoint, radius)
   
    ' Create a rectangular array of Circles using the new block containing the Circle
    ' and the AddMInsertBlock method
    Set newMBlock = ThisDrawing.ModelSpace.AddMInsertBlock(InsertPoint, "CBlock", 1, 1, 1, 1, 2, 2, 1, 1)
       
    ThisDrawing.Application.ZoomAll
   
    MsgBox "A rectangular array has been created from the original block."

End Sub

посути тоже динам блок, но как установить <<ручки>>7

ЗЫ: из хелпа

С Уважением, Михаил

Yuriy, плохо што ЛИСП(((

Интересно создать подобие динам блока в вба
Я тут подумал необходимость в <<ручках>> у динам блока может не быть, если <<ручку>> заменить на нажатие кнопки <<вверх>> и <<вниз>>, что должно вызывать срабатывание макроса(операции над блоком, типа удлинения, поворот  итд).

Но для этого нужна какая-то API-функция?????, т.к. нету в вба-Акаде события нажатия клавиши, вроде как!?

А если меня уже к земле тянет так чтож я должен
на глиняных табличках клинописью должен писать?   :D

А вообще-то чинка выделки не стоит, ручками делать
такие вещи спокойнее
IMHO

~'J'~