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

[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]

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