[Profan]

Написал код для растяжения блока внутри редактора блоков:

Код:

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

(defun C:РСТ ( / echo ort obj имя_блк)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 1)
(setq ort (getvar "ORTHOMODE"))
(setvar "ORTHOMODE" 1)
(setq obj (car (entsel "\nВыберите блок: ")))
(if (and obj (= (cdr (assoc 0 (entget obj))) "INSERT"))
    (progn
    (setq имя_блк (vlax-get-property (vlax-ename->vla-object obj) 'EffectiveName)) 
    (vl-cmdf "_-BEDIT" имя_блк)
    (vl-cmdf "_stretch" "_c" pause pause "" "" pause)
    (vl-cmdf "_BCLOSE" "_S")
    ) ; progn
) ; if
(setvar "CMDECHO" echo)
(setvar "ORTHOMODE" ort)
(princ)
)

Однако, при переходе в редактор блоков, сам редактор блоков аварийно закрывается. В чем причина?

[gomer]

поэтому (vl-cmdf "_BCLOSE" "_S")

[Profan]

Это я заметил, если закомментировать эту строчку, то редактор не закрывается. Почему он закрывается прежде, чем выполнится команда растяжения?

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

А если вместо vl-cmdf использовать command или command-s?

[Profan]

Сообщение от Кулик Алексей aka kpblc А если вместо vl-cmdf использовать command или command-s?

То же самое, работа программы прерывается.
Здесь очень важную роль играет выражение

Код:

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

(vl-cmdf "_stretch" "_c" pause pause "" "" pause)

Фактически это растяжение без указания базовой точки, в следящем режиме. Хотелось изменить форму блока без изменения масштаба по одной из осей...

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

Если заранее известны объекты, с которыми надо проводить подобные операции, и ты можешь их программно отфильтровать, то в редактор блоков совсем необязательно заходить.
Добавлю: естественно, надо знать что должно быть в результате

[Profan]

Таким образом, неизвестно почему закрывается редактор блоков?
Ну и хрен с ним, для моих целей оказался более удобным вот такой код:

Код:

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

(defun C:РСТ ( / echo ort)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 1)
(setq ort (getvar "ORTHOMODE"))
(setvar "ORTHOMODE" 1)
(vl-cmdf "_-REFEDIT" pause "_OK" "_All" "_No")
(vl-cmdf "_STRETCH" "_c" pause pause "" "" pause)
(vl-cmdf "_REFCLOSE" "_S")
(setvar "CMDECHO" echo)
(setvar "ORTHOMODE" ort)
(princ)
)

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