[EfremenkoDO]

Прошу помощи в таком вопросе. При вставке блоков по команде "_.insert" во время выбора точки вставки я вижу изображение самого блока. Как сделать аналог на лиспе? То есть чтоб при выборе точки вставки было видно блок?.

PS буду благодарен если кто подскажет сайт с исходниками стандартных команд на лиспе, как-то натыкался теперь найти не могу.

[ShaggyDoc]

Сообщение от EfremenkoDO Прошу помощи в таком вопросе. При вставке блоков по команде "_.insert" во время выбора точки вставки я вижу изображение самого блока. Как сделать аналог на лиспе? То есть чтоб при выборе точки вставки было видно блок?.

При использовании функций command или vl-cmdf для команды INSERT использовать опции "_PROTATE", "_PXScale" и "_PYScale" до запроса точки вставки, который скрывается в pause. Пример:

Код:

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

 (vl-cmdf "_.INSERT"
                             block_name
                             "_PROTATE"
                             (if block_angle
                              block_angle
                              0
                             ) ;_ end of if
                             "_PXScale"
                             x_scale
                             "_PYScale"
                             y_scale
                             pause
                    )

[EfremenkoDO]

Сообщение от ShaggyDoc При использовании функций command или vl-cmdf для команды INSERT использовать опции "_PROTATE", "_PXScale" и "_PYScale" до запроса точки вставки, который скрывается в pause. Пример:

Спасибо за помошь, но этот вариант я знал. Наверное я не точно задал вопрос. Вставляю я при помощи vla-insetBlock в нем так не получится.

[VVA]

Пользоваться той же командой _-INSERT или _CHANGE
RuCAD
С помощью _CHANGE
- Множественная вставка блока, висящего на курсоре
- еще пример
Читать классиков На заметку программистам
Отображения тел в области курсора при укащании точки

[Дима_]

Не так давно обсуждали - вот пример, да и всю тему почитать совсем не лишне.

[EfremenkoDO]

В продолжение данной темы. Все настроил - получилось, но появилась проблема... Использую в команде вставку таким образом

Код:

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

 
  (setvar "ATTREQ" 0)
  (command "_.-insert"	BlockName
	       "_Scale"    1
	       pause
	       0
  ) 
  ;;...
  ;;Тут еще некие преобразования 
  ;;...
  (setvar "ATTREQ" 1)

Получается, что идет предложения выбрать точку вставки с висящим на курсоре блоком и все нормально до того пока не происходит запрос изменения базовой точки (BasePoint через B или по правому щелчку). В этом случае pause получает в ответ букву B следовательно базовой точке задается 0, что приводит к ошибке. При этом в командной строке предлагается повторно указать базовую точку, а лисп продолжил выполнение кода дальше, не дождавшись вставки блока.

Как бы это поправить? может есть какой контроль за тем что вводится в командную строку?

Решение появилось само! Решил так:
1. Создал флаг об окончании команды вставки
2. Написал реактор на окончание команды

Код:

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

 
(defun fIns (reac info / Dim Name)
  (if (= (strcase (car info)) (strcase "-insert"))
    (setq _ENDINSERT T)
    )
)

(defun rCmdLine	(/)
  (setq	dwgrCmdLine
	 (VLR-Command-Reactor
	   "InsDim"
	   (list '(:VLR-commandEnded . fInsDim))
	 ) ;_ end of vlr-acdb-reactor
  ) ;_ end of setq
)

3. В самой функции, где следует вызывать insert поставил pause в цикл

Код:

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

 
;...
      (setvar "ATTREQ" 0)

      (setq _ENDINSERT nil)
      (vl-cmdf "_.-insert" BlockName)
      (while (not _ENDINSERT) (vl-cmdf pause))

      (setvar "ATTREQ" AREQBuf)
;...

И теперь я счастлив и доволен!

[Александр Ривилис]

Можно было обойтись без реактора. Для этой цели есть системные переменные CMDNAMES и CMDACTIVE, которые можно было проверять в цикле.

[VVA]

Иллюстрация #7

Код:

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

(setvar "ATTREQ" 0)
(command "_.-insert"  BlockName 
	         "_Scale"    1
         pause
         0
) 
(while (> (getvar "CMDACTIVE") 0) (command pause))
;;... 
;;Тут еще некие преобразования  
;;... 
(setvar "ATTREQ" 1)

[EfremenkoDO]

Спасибо, я просто о них даже не знал