[Dim Ka]

Доброго времени суток, ФОРУМЧАНЕ. У меня такой вопрос: можно ли одновременно выполнить две команды,
а именно: Вставляю блок в чертёж с кнопки ID_Круг [_Button("Круг", "Круг.bmp", "Круг.bmp")]*^C^C_.-insert "Круг" \;;;
т.е. клик, ляп, ляп, ляп, и.т.д., а затем проставляю цепочку размеров между точками вставки блока, а хотелось бы параллельно
осуществлять две команды, т.е 1-я точка вставки блока - начальная точка размерной линии, 2-я точка конечная точка первого размера
и одновременно начальная точка следущего размера. В итоге имеем расставленные блоки и цепочку размеров между ними.
Если есть такое решение, буду очень благодарен. С уважением Дмитрий.

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

Не уверен, что верно понял. Попробуй сначала _.dimlinear (к примеру), а потом _.dimcontinue

[Дима_]

Ну так нарисуй макрос который запрашивает точку ставит в нее блок, запрашивает следующию, тянет туда размер и ставит 2 блок.

[Victor]

Код:

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

(defun c:b+d( / )
(setq kord_1 (getpoint "\nPoint?"))
(setvar "attreq" 0)
(command "_.insert" "мои блок" kord_1 1 1 0)
(setq kord_2 (getpoint "\nPoint?"))
(command "_.insert" "мои блок" kord_2 1 1 0)
(command "_.dimaligned" kord_1 kord_2 kord_2)
(setq dm (entlast))
(setq kord_3 (getpoint "\nPoint?"))
(command "_.dimcontinue" dm kord_3 "" "")
(command "_.insert" "мои блок" kord_3 1 1 0)
(repeat 20 
(setq kord_4 (getpoint "\nPoint?"))
(command "_.dimcontinue" kord_4 "" "")
(command "_.insert" "мои блок" kord_4 1 1 0)
)
)

[Dim Ka]

Протестил код, всё работает просто отлично, огромное спасибо автору. Я уж было начал заморачиваться со строкой макроса,
а тут бах и LISP - рулит!!!