Подскажите пожалуйста, как прописать в строке макросов (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

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

[pyatifan]

Фига вытащил тему (почти ровно год валялась, а проблемы те же).

Уважаемые фантомасы, или гуру там всякие, снизойдите до вот этого:

ко всему что есть (lisp) хотелось прибавить что-то типа: (command"wipeout" "f" "off")
т.к. в одном хорошем блоке есть эта ложка дёгтя (иногда совсем не хотца думать и легче притвориться лаймером и попросить того, для кого это раз плюнуть) не знаю как эту строчку грамотно втиснуть.
и ещё хотелось чтоб осталась возможность перебора точки вставки (динамический блок) тобиш Ctrl.

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

> pyatifan : Маленький вопрос: используется ли toolpalettes? Если да, то можно повесить слой, масштаб и угол поворота напрямую на инструмент. А для wipeout можно и такое сделать, повесив его в автозагрузку:

Код:

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

(defun start( / _cmdecho_)
  (setq _cmdecho_ (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (commadn "_.wipeout" "_f" "_off")
  (setvar "cmdecho" _cmdecho_)
  )
(start)

А переделывать готовый лисп лично я не вижу особого смысла. У меня-то решено по аналогии с ruCAD, а там подход немного другой.

[Star]

Вставляю блок с масштабом по Х=1, а по У масштаб определяется разницей от точки вставки до указ. точки макросом:

Код:

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

^C^C_-Insert;M06Length;\;'Cal;Dist(@,cur);;

Так вот, сколько не ставлю в конце ";" (хоть 10) всё равно висит приглашение ввода угла.
Где проблема?

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

Поскольку используется 'cal, думаю, что используется полный кад. Соответствтенно попробуй нечто типа:

Код:

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

^C^C_-insert;m06length;\;1;(DISTANCE (getvar "lastpoint") (getpoint (getvar "lastpoint")));;

[Star]

Если перед (DISTANCE... убрать 1; - выдаёт:

Код:

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

Enter Y scale factor <use X scale factor>: (DISTANCE (getvar "lastpoint") 
(getpoint (getvar "lastpoint")))

; error: bad argument type: 2D/3D point: nil

А если в конце убрать один ";", работает, но идёт запрос угла

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

Стоп, я не понял - мой код работает или нет?

[Джек]

А можно сделать в лиспе?
Типа:
1. вставил блок (имя известна)
2. повернул его (блок) на определенный угол
3. следующая вставка уже с заданным углом и т.д. до бесконечности
Спасибо 8)

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

Можно. Но код длинный. Сделано в ruCAD'e.

[Джек]

Сообщение от kpblc Можно. Но код длинный. Сделано в ruCAD'e.

а почему длинный код?
Просто в лиспе можно сделать - сначало вставка блока, а затем с помощью командой копировать сделать вставку вставленного блока ,
я сделал не большой лисп , но при копировании вставляется только один раз, а не несколько.

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

Длинный потому что вставлять сильно хочется, наблюдая за возможным результатом, а не неизвестно что и неизвестно куда. Да еще и с возможными разными масштабами. Некоторые блоки надо поворачивать после вставки; некоторые - нет. Общая идеология (по крайней мере примененная в ruCAD'e и следом за этой системой - и у меня) примерно такая:
- создается анонимный блок, в который засовывается "реальный" блок с переданными значениями масштабов по осям (правда, такой подход чреват проблемами при вставке таблиц и динамических блоков)
- через команду _.change меняется точка вставки
- если не был задан угол поворота, опять же командой _.change он меняется.
Там масса проверок, "ловушек" ошибок и т.п. Также надо предусматривать вариант выхода как по правой кнопке, так и по Esc. Я б сам такое не написал в жизни. Идею слизал, немного переделал. Пока работает.
Минусы подобного подхода:
- проблемы при вставке таблиц, динамических блоков, размеров и т.п. примитивов, имеющих в себе ссылку на запись таблицы блоков.
- команда _.change работает только в виде "сверху". При условии, что текущая система координат не совпадает с видом, иногда получается весело
- при условии запуска в LT Extender надо отслеживать условие, что (vl-cmf) все равно возвращает nil, что требуется учитывать.
- Изменить масштаб вставленного блока динамически нельзя.
Плюсы:
- Вставка всегда визуализируется.
- Одна функция может вызываться из тысяч мест, меняя только пару-тройку параметров.

[Джек]

[quote="kpblc"]Длинный потому что вставлять сильно хочется, наблюдая за возможным результатом, а не неизвестно что и неизвестно куда. Да еще и с возможными разными масштабами. quote]
Нет, у меня все просто, блок один тот же и вставка без масштаба.
У меня просто стандартный набор вставил и повернул.
просто иногда надоедает каждый раз угол задавать!!!!!
Просто вызвал прогу - вставил блок - показал угол, следующаая вставка без запроса угла и т.д. до бесконечности, пока не завершишь программу.
Если снова запускаешь программу - при первой вставке сделать запрос угла.

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

Без проверок на работоспособность:

Код:

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

(defun insblock	(blockname / ang)
  (if
    (vl-cmdf "_.-insert"
	     blockname
	     pause
	     1
	     (if ang
	       ang
	       (distance (getvar "lastpoint") (getpoint (getvar "lastpoint")))
	       ) ;_ end of if
	     pause
	     ) ;_ end of VL-CMDF
     (setq ang (cdr (assoc 50 (entget (entlast)))))
     ) ;_ end of if
  ) ;_ end of defun

В качестве параметра передавай имя блока. Если не работает, сообщи

[Star]

> kpblc
Твой код не работает

Код:

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

^C^C_-insert;m06length;\;1;(DISTANCE (getvar "lastpoint") (getpoint (getvar "lastpoint")));;

Нужно вставить блок с масштабом по Х=1, а по У масштаб определить расстоянием от точки вставки до указ. точки, угол поворота 0.
А такой код работает

Код:

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

^C^C_-insert;m06length;\;(DISTANCE (getvar "lastpoint") (getpoint (getvar "lastpoint")));

Но при этом идёт приглашение ввода угла. Как только добавляю в конце ещё ";" выдаёт ошибку.
Получается, что без ввода угла не обойтись что с 'Cal, что с LISP.
Можно немного упростить

Код:

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

^C^C_-insert;m06length;\;(DISTANCE (getvar "lastpoint") (getpoint));

[Джек]

Сообщение от kpblc Без проверок на работоспособность: Код: [Выделить все] (defun insblock (blockname / ang) (if (vl-cmdf "_.-insert" blockname pause 1 (if ang ang (distance (getvar "lastpoint") (getpoint (getvar "lastpoint"))) ) ;_ end of if pause ) ;_ end of VL-CMDF (setq ang (cdr (assoc 50 (entget (entlast))))) ) ;_ end of if ) ;_ end of defun В качестве параметра передавай имя блока. Если не работает, сообщи

Спасибо за лисп, но прога не работае или работает , но я не понял!!!!!
В место blockname - я написал имя автокадовского файла.
А принцип работы проги должна заключатся:
1. вызвал прогу
2. вставляешь блок
3. делаешь поворот (визуально смотришт как и где поворачиваешь)
4. после поворота , прога не завершается
5. снова ставишь блок , но угол поворота уже сохраняется и т.д.

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

Стоп. Блок уже должен быть в файле. Если ты вставляешь внешний файл как блок, то тут по другому надо делать, ЯТД.

[Джек]

Сообщение от kpblc Стоп. Блок уже должен быть в файле. Если ты вставляешь внешний файл как блок, то тут по другому надо делать, ЯТД.

Да, я вставляю внешний файл как блок, но я в настройке сделал доступ поддержки автокада.

[klinker]

Тогда следующий вопрос: Мне удалось сделать кнопку для вставки блока, он нормально вставляется, с нужным масштабом, только одна проблема- как сделать, чтобы команда могла завершаться после вставки блока, а то она отключается только при нажатии ESC Не оставляйте без ответа, коллеги

[whisper_23]

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

[Anton_Br]

я вот не понял зачем всё это....А не проще в Design Center найти этот файл с блоками выбрать во вкладке Blocks нужные блоки и правым кликом выбрать меню где нажать greate tool palette.
У вас тогда будет палитра где будут иконки блоков и их имя. Для этого в файле все блоки должны быть поименованы.

[whisper_23]

ну не хочу я через tool palette... много места занимает на экране.
хочу создать панельку с кнопочками

[zenon]

Сообщение от whisper_23 много места занимает на экране.

сделай сворачивающимся

[E-degtyarev]

klinkerПопробуй Lisp-ом:
^C^C(vl-cmdf "_.insert" "C:/temp.dwg")

[whisper_23]

А где тут Lisp ?

[Do$]

Когда указываешь путь при вставке блока, то акад берет чертеж из этого пути и создает из него блок с именем по названию файла. То есть дин. блок будет внутри этого блока. Как выход - можно потом взорвать вставленный блок (если, конечно, только один блок в файле).

[whisper_23]

Сообщение от Do$ Когда указываешь путь при вставке блока, то акад берет чертеж из этого пути и создает из него блок с именем по названию файла. То есть дин. блок будет внутри этого блока. Как выход - можно потом взорвать вставленный блок (если, конечно, только один блок в файле).

я это уже понял.
как сделать просто вставку блока а не вставку файла с блоком?

[Do$]

В упрощенном варианте как-то так:

Код:

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

(defun ins-dyn-blk (path / ins old_var)
  (vl-load-com)
  (setq old_var
  (list (getvar "cmdecho")
        (getvar "attdia")
        (getvar "attreq")
        (getvar "insunits")
  ) ;_ end of list
  ) ;_ end of setq
  (mapcar '(lambda (var) (setvar var 0))
   (list "cmdecho" "attdia" "attreq" "insunits")
  ) ;_ end of mapcar
  (if
    (vl-cmdf
      "_.insert"
      path
      pause
      1
      ""
      0
    ) ;_ end of vl-cmdf
     (progn
       (vla-explode (setq ins (vlax-ename->vla-object (entlast))))
       (vla-delete ins)
     ) ;_ end of progn
  ) ;_ end of if
  (mapcar 'setvar
   (list "cmdecho" "attdia" "attreq" "insunits")
   old_var
  ) ;_ end of mapcar
  (princ)
) ;_ end of defun
;;;Пример для кнопки: ^C^C(load "ins-dyn-blk.lsp");(ins-dyn-blk "C:\\temp.dwg");

[whisper_23]

Я должен загрузить этот Lisp и указать в макросе кнопки
^C^C(load "ins-dyn-blk.lsp");(ins-dyn-blk "C:\\temp.dwg")
не так ?

[Do$]

Достаточно поместить файл ins-dyn-blk.lsp во вспомогательную папку AutoCAD и повесить на кнопку:

Код:

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

^C^C(load "ins-dyn-blk.lsp");(ins-dyn-blk "C:\\temp.dwg");

Вот это выражение производит загрузку лисп-файла из папки поддержки:

Код:

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

(load "ins-dyn-blk.lsp")

Если лисп планируется как-то иначе загружать, то на кнопку вешать:

Код:

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

^C^C(ins-dyn-blk "C:\\temp.dwg");

Если все что я написал не понятно, читать тут: http://dwg.ru/art/8

[whisper_23]

спасибо, всё работает
только пришлось написать не C:\\temp.dwg а C:/temp.dwg уж не знаю почему, но по вашему не работало

[Do$]

Сообщение от whisper_23 спасибо, всё работает только пришлось написать не C:\\temp.dwg а C:/temp.dwg уж не знаю почему, но по вашему не работало

На здоровье
Да не верю что-то, чтоб не работало... принцип постановки слешей такой: если в строке пути стоит обратный слеш (\) то он заменяется на два обратных (\\), соответственно, если таких слеша два (сетевая папка, например), то ставится вместо двух четыре. Прямой слеш (/) не заменяется.
Пример 1 (локальная папка):

Код:

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

"C:\Documents and Settings\<username>\Мои документы\Проектирование\Материалы\AutoCAD\Чертежи\Дин.блоки\эл.перемычки(Shoorup).dwg"
--->"C:\\Documents and Settings\\<username>\\Мои документы\\Проектирование\\Материалы\\AutoCAD\\Чертежи\\Дин.блоки\\эл.перемычки(Shoorup).dwg"

Пример 2 (сетевая папка):

Код:

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

\\<foldername>\All\<username>\Проектирование\Шаблон\Blocks Library\эл.перемычки(Shoorup).dwg
--->\\\\<foldername>\\All\\<username>\\Проектирование\\Шаблон\\Blocks Library\\эл.перемычки(Shoorup).dwg

Ну раз работает, то, может, и не надо трогать

[whisper_23]

Ладно, разберемся...
спасибо ещё раз.
думаю тему можно закрыть.