[Positron]

Есть необходимость чтобы макрос продолжался после создания нового файла, а именно:
соединить два макроса
^C^C_copybase;\\\;_qnew;
^C^C_pasteclip 0,0,0;

Или 2-е место где нужно, это исполнение команды PL-CSE в новом файле потом назад в файл (для ускорения)

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

Исправленный вариант кода:

Код:

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

(vl-load-com)

(defun kr_wblock (/ ss n key pr filename)
  (setq ss  (ssget)
        n   0
        key t
        ) ;_ end of setq
  (while (and (ssname ss n) key (setq pr (entget (ssname ss n))))
    (if (and (eq (cdr (assoc 0 pr)) "TEXT")
             (eq (strcase (cdr (assoc 8 pr))) "NAME_FRAGMENT")
             ) ;_ end of and
      (setq key      nil
            filename (strcat (vla-get-path (vla-get-activedocument (vlax-get-acad-object))) "\\" (cdr (assoc 1 pr)))
            ) ;_ end of setq
      ) ;_ end of if
    (setq n (1+ n))
    )     ;while
  (if filename
    (progn
      (vl-file-delete (strcat filename ".dwg"))
      (setvar "filedia" 0)
      (vl-cmdf "_-wblock" filename "" "0,0,0" ss "")
      (vl-cmdf "_oops")
      (setvar "filedia" 1)
      )   ;progn
    (princ "\nНе найдена метка")
    )     ;if
  (princ)
  )       ;defun

Вроде так... Работу не проверял.

[Krieger]

Да, подчеркнуть забыл... На коленке делал...

[Profan]

Как же это забыл? Не в России, что ли, живешь?

[Krieger]

А то не знаешь...

[Positron]

Сообщение от Кулик Алексей aka kpblc Вроде так... Работу не проверял.

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

[Krieger]

надо подумать, пока некогда..., наверное можно

[zenon]

Извините что отвлекаю, но на мой вопрос есть ответ?

Нужно выполнить команду после загрузки всех меню. Вариант с acad.mnl и автозагрузкой не срабатывает. Дело в том, что команда не стандартная, а одной из навесок. Получается, что вызов команды происходит до загрузки требуемого меню. в итоге

[Krieger]

Сделай свое меню и загружай свой mnl. Он будет грузится последним. Когда уже все остальное будет определено.

[zenon]

Krieger, фокус не удался.
ps еще есть предложения

[Krieger]

А что за навеска?

[Profan]

В acad.lsp запихни S::STARTUP

[zenon]

Сообщение от Krieger А что за навеска?

Shucad

В acad.lsp запихни S::STARTUP

Profan не понял

[Nike]

Сообщение от zenon Krieger, фокус не удался. ps еще есть предложения

ну так ты своей менюхой довеску загружай, а потом ее запускай

[zenon]

Nike, говорю же фокус не удался

[Positron]

Кстате я использую не постояно эти 2 макроса:
*^C^C_copybase;\\\;_qnew;
^C^C_pasteclip 0,0,0;'_.zoom _e;_filedia;0;_saveas;2004;\\y;^C_filedia;1;_close ;

А востовном эти 3 :
*^C^C_copybase;\\\;_qnew;
^C^C_pasteclip 0,0,0;'_.zoom _e;_saveas;
^C^C'_.zoom _e;_.saveas;2004;;y;_close;

потому что надо указывать путь, он збивается...
шоб незбивался нашол неплохую прогу , советую другим - Direct Folders
у неё много ещо полезных есть функций...
И у производителя ещо много полезных прог
http://www.codesector.com/directfolders.php

_______________________________________________________________________________________________

для Kriegerа

надо подумать, пока некогда..., наверное можно

есть решение, его только впаять надо в сей лисп:
http://forum.dwg.ru/showthread.php?t=43089
в этой теме по сути ответ, только точку надо 1-дну, самую ближнюю выдернуть и без рисования прямоугольника...
_______________________________________________________________________________________________



Благодарен всем за помощь что уже оказана!


И отдельно Kriegerру благодарность за то что указал на мою ошибку в повиденни на форуме, это помогло мне вырасти над собой

(P.S. не думайте, я не подлизуюсь, просто во многих вопросах уже помогли за это и благодарю )

[Positron]

Порошу помощи у програмистов.

Мне Krieger зделал лисп, он работает хорошо, только сохраняет в формате 2007, как зделать чтоб сохранение файла было в 2004 формате?

(возможно так? в лиспе:
перед началом лиспа поменять формат сохранения файла по умолчанию в 2004, а потом , в конце лиспа поменять обратно в 2007 формат по умолчанию)

(defun Kr_Wblock (/ ss n key pr filename)
(vl-load-com)
(setq ss (ssget) n 0 key t cmd (getvar "cmdecho"))
(while (and (ssname ss n) key (setq pr (entget (ssname ss n))) )
(if (and (eq (cdr (assoc 0 pr)) "TEXT")
(eq (strcase (cdr (assoc 8 pr))) "NAME_FRAGMENT"))
(setq key nil
filename (strcat (vla-get-path (vla-get-activedocument (vlax-get-acad-object))) "\\" (cdr (assoc 1 pr))))
)
(setq n (1+ n))
);while
(if filename
(progn

(setq lstpt (apply 'append (mapcar '(lambda (obj / minpt maxpt)
(vla-getboundingbox obj 'minpt 'maxpt)
(mapcar 'vlax-safearray->list (list minpt maxpt))
);end of lambda
(mapcar 'vlax-ename->vla-object
(vl-remove-if '(lambda (a) (wcmatch (cdr (assoc 0 (entget a))) "MTEXT,DIMENSION,*TABLE")) (sstolist ss)))
))
);end of setq

(vl-file-delete (strcat filename ".dwg"))
(vla-StartUndoMark (vla-get-activedocument (vlax-get-acad-object)))
(setvar "cmdecho" 0)
(vl-cmdf "_ucs" "_m" (list (apply 'min (mapcar 'car lstpt)) (apply 'min (mapcar 'cadr lstpt))))
(vl-cmdf "_-wblock" filename "" "0,0,0" ss "")
(vl-cmdf "_oops")
(vl-cmdf "_ucs" "_p")
(setvar "cmdecho" cmd)
(vla-EndUndoMark (vla-get-activedocument (vlax-get-acad-object)))
);progn
(princ "\nНе найдена метка")
);if
(princ)
);defun

;---------------------------------------

(defun sstolist (ss / i lst); конвертирует набор в список
(setq i 0)
(if ss
(repeat (sslength ss)
(setq lst (append lst (list (ssname ss i))) i (1+ i))
));end of repeat & if
lst
);end of sstolist

[Positron]

Аномалия в файле, неработает перемищение выделенных объектов в координату 0,0,0 командой Kr_Wblock
Возможно есть какие условия, а я их нарушил?
Если есть таковые...

Во вложенни файл.
Посмотрите пожалуста, кто знает.

[Krieger]

Сообщение от Positron Аномалия в файле, неработает перемищение выделенных объектов в координату 0,0,0 командой Kr_Wblock Возможно есть какие условия, а я их нарушил? Если есть таковые... Во вложенни файл. Посмотрите пожалуста, кто знает.

В исходном файле восстанови систему координат на мировую.
_ucs -> _world