Подскажите пожалуйста, как прописать в строке макросов (Button user defined) команду, чтобы блок с именем.dwg вставить в чертеж, а не через insert\block
Зарание Благодарен

[Lenich]

Добавляешь в кнопку следующий код

Код:

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

^C^C_.-insert c:/temp.dwg

Где, c:/temp.dwg - путь и имя вашего файла.
При выполнении этой команды будет вставлен файл temp.dwg как блок.

[Pilot]

Будьте внимательны с путь\имя.dwg - если там пробел окажется.
Лучше все это в кавычки заключать.

[Vova]

^C^C_.-insert c:/temp.dwg;\;;
"\" это точка вставки, назначаемая мышкой. ";;" это если масштабы по осям одинаковы и равны 1. А если путь прописан в Options то "C:/" можно опустить

А как сделать вставку блока множественной, вроде Клик-Ляп-Ляп-Ляп...?

[Mikhail]

тогда примерно следующее можно
^C^C_.-insert c:/temp.dwg;\;;co;l;;m;i;

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

Mikhail:

Спасибо, но к сожалению вставляет один раз с запросом угла поворота. Если не сложно, разъясните назначение параметров в команде. Спасибо.

[Star]

Попробуй

Код:

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

*^C^C_.-insert c:/temp.dwg;\;;;

[Nike]

Star:
Спасибо. А можно ли сохранить запрос угла поворота?

[Perezz!!]

все что касается макросов, в разделе "программирование"

[vk]

>Nike

В этом программировании все элементарно. Если в макрос пишем точку с запятой ; - это аналогично нажатию Enter при работе из командной строки.
Если пишем обратный слэш \ - это значит что АКАД будет ждать ценных указаний от юзера.
Не сочтите за труд, посмотрите как работает команда при вызове из командной строки и поставьте в нужные места нужные значки :wink:

[Nike]

Спасибо, разобрался.

[VVS]

Оживил эту тему, дабы не возникало лишних вопросов.
Со вставкой блока посредством "кнопочного" макроса разобрался, но непонятно как при вставке выбирается точка привязки? Как сделать так чтобы точка привязки была, например, левым нижним углом блока?

[Torino]

В 2005-м Акаде точка втавки блока задается при создании блока.
И для ее изменения нужно редактировать блок.
Как решение, можно вставлять блок в точку 0,0,0. Потом команда MOVE из нужной точки (все это зашить в макрос).

[MIP]

Надо определить в блоке нужную точку как точку вставки! А перевыбор точки встаки блока будет реализован в Автокаде 2006 (Rio)

[{Smirnoff}]

А чего бы не использовать для этой цели LISP :?:

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

Код:

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

(defun c:sca (/ oldSymsca)
  (if(not sp:symsca)(setq sp:symsca 1.0))
  (setq oldSymsca sp:symsca
	sp:symsca(getreal(strcat "\nEnter symbols scale <1:" (rtos sp:symsca) "> : "))
	); end setq
  (if(null sp:symsca)(setq sp:symsca oldSymsca))
  (princ(strcat "\nCurrent symbols scale 1:" (rtos sp:symsca)))
  (princ)
  ); end of c:sca

Потом напишем функцию вставки с алгоритмом ВСТАВИТЬ С ЗАДАННЫМ МАСШТАБОМ->ДВИГАТЬ С ПРОИЗВОЛЬНОЙ БАЗОВОЙ ТОЧКОЙ-> ВРАЩАТЬ С ПРОИЗВОЛЬНОЙ БАЗОВОЙ ТОЧКОЙ. Если вращение не требуется то убрать строку (command "_.rotate" (entlast) "" pause pause).

Код:

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

(defun SC_SymInsert2 (blName / oldEcho insSca blPath *error*)

  (defun *error* (msg)
    (setvar "cmdecho" oldEcho)
    ); end of *error*

  (setq oldEcho(getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (if(not sp:symsca)(setq sp:symsca 1.0))
  (setq insSca(/ 1 sp:symsca))
  (if
    (not(tblsearch "block" blName))
    (progn
      (if
       (setq blPath(findfile(strcat blName ".dwg")))
	 (command "-insert" blPath "_s" insSca pause pause)
         (princ(strcat "\n*** File " (strcat blName ".dwg") " not found! *** "))
       ); end if
      ); end progn
    (progn
    (command "-insert" blName "_s" insSca pause "")
    (command "_.move" (entlast) "" pause pause)
    (command "_.rotate" (entlast) "" pause pause)
    ); end progn
    ); end if
  (setvar "cmdecho" oldEcho)
    (princ)
    ); end of SymInsert

Теперь либо пишем в макросе кнопки (назавние файла без расширения *.DWG!):

Код:

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

(SC_SymInsert2  "Название_файла")

Либо, если требуется также вызов с клавиатуры пишем короткие функции:

Код:

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

(defun c:my_sym ()
  (SC_SymInsert2 "Название_файла")
  (princ)
  ); end of c:my_sym

и пишем в макросе my_sym

Естественно файл с этими функциями должен быть в автозагрузке, а файлы с блоками на "путях поддержки".

Enjoy...

[Vova]

В исходном файле, где нарисован объект-будующий блок, применить команду Base и назначить базовую точку. Или там-же передвинуть рисунок так, чтобы его точка вставки оказалась в 0,0

[VVS]

Ух ты. Спасибо.
Один вопрос: а попроще как-нибудь нельзя?

[{Smirnoff}]

А чего проще?

Записываешь это в файл, ставишь его в автозагрузку. Потом рисуешь в макросах кнопок (SC_SymInsert2 "Название_файла") хоть до посинения. Что может быть проще?

Естественно макрос начинаем с ^C^C...

[VVS]

Сообщение от Vova В исходном файле, где нарисован объект-будующий блок, применить команду Base и назначить базовую точку. Или там-же передвинуть рисунок так, чтобы его точка вставки оказалась в 0,0

Спасибо, то что нужно. И за книгу спасибо.