[shmulka]

Добрый день. Смежники часто чертят в другом масштабе. Например, из раздела ОВ мне понадобилось вставить сантехнику. Я в их чертеже выделяю объекты, жму "Копировать с базовой точкой". Открываю свой чертеж. Жму "Вставить". Вопрос: можно ли задать масштаб? В диалоге только указывается базовая точка.

[shmulka]

Сообщение от Krieger можно эту последовательность загнать в макрос с определенным адресом на пару кнопок

Хм... А это мысль. Правда, я с макросами не очень дружу. Но где-то лежала книга В Света.

[Krieger]

>shmulka
Подправил пост 20. Посмотри еще раз.

[shmulka]

Krieger, спасибо. Попробую на работе

----- добавлено через ~40 мин. -----
Попробовал. Код ведь можно вставить в один файл .lsp?
1. Копирование работает отлично. Я заменил диск D на C:\Windows\Temp. Создается файл. В нем то, что я выделил.
2. Вставка не работает. Там может не "_-insert", а просто "_insert"? Я просто в Лиспе ноль. Только пользуюсь чужими творениями

[Krieger]

Что пишет?

[Valery Brelovsky]

Сообщение от Krieger >shmulka Подправил пост 20. Посмотри еще раз.

Не идёт Лисп на вставке. Первый по созданию блока прошёл то на втором этапе вставка не происходит.

Command: KR_WBLOCK_PASTE
Unknown command "KR_WBLOCK_PASTE". Press F1 for help.

[shmulka]

Сообщение от Krieger Что пишет?

То же, что у Valery Brelovsky.

[Krieger]

Сообщение от Valery Brelovsky Не идёт Лисп на вставке. Первый по созданию блока прошёл то на втором этапе вставка не происходит. Command: KR_WBLOCK_PASTE Unknown command "KR_WBLOCK_PASTE". Press F1 for help.

Говорит, что нет такой команды. Когда подгружаете lsp ошибок нет?

[shmulka]

if (null C:kr_wblock_paste)(load "kr_wblock"))
; ошибка: синтаксическая ошибка

Команда: kr_wblock_paste
Неизвестная команда "KR_WBLOCK_PASTE". Для вызова справки нажмите F1.

----- добавлено через ~2 мин. -----
^C^C(if (null C:kr_wblock_create)(load "kr_wblock"));kr_wblock_create; - эта команда на кнопке создания
^C^C(if (null C:kr_wblock_paste)(load "kr_wblock"));kr_wblock_paste; - эта на вставке

----- добавлено через ~3 мин. -----
Если загружать вручную, разбив на 2 файла, то create загружается нормально, а вот paste выдает ошибку

[Krieger]

Программную скобку забыл )

Код:

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

(defun c:kr_wblock_create (/ ss)
(if (setq ss (ssget))
(vl-cmdf "_wblock" "D:\\Wblock_1.dwg" "_y" "" pause
	 (princ "Точка вставки: ")
	 ss "" "_undo" 1)
)
)

(defun c:kr_wblock_paste (/ ss)
(if (setq scale (getreal "Масштаб: "))
	(if (setq pt (getpoint "Точка вставки: "))
	  (progn
	  (vl-cmdf "_purge" "_b" "Wblock_1" "_y" "_y")
	  (vl-cmdf "_-insert" "D:\\Wblock_1.dwg" "_r" 0 "_s" scale pt)
	  (vl-cmdf "_explode" "_L")
	  (vl-cmdf "_purge" "_b" "Wblock_1" "_y" "_y")
	  )
	  )
  )
)

[shmulka]

Подгружается нормально. Но не вставляется ничего(

[Krieger]

Что пишет?

[shmulka]

Кажется нужно "y" поменять на "_y", ибо локализованный AutoCAD. Счас проверю

----- добавлено через ~1 мин. -----
отлично работает. То, что надо. Счас сделаю пару кнопочек

[Valery Brelovsky]

В новой интерпритации работает нормально из одного файла.