2013-02-05: Команда "Выбрать аналог" для ZWCAD
В последних версиях AutoCAD есть удобная команда - "выбрать аналог", позволяющая выбрать аналогичные объекты чертежа - того же типа и лежащие на том же слое что и образец. Если образцом выбран блок, то в выборе аналога фигурирует еще и имя блока. В старых версиях ZWCAD'а подобная команда отсутствует, но ее можно самостоятельно добавить. Находим папку с файлом ZWCAD.MNS, она будет выглядеть примерно так: C:\Users\имя_пользователя\AppData\Roaming\ZWSoft\ZWCAD 2008\ru-RU\Support, где имя_пользователя - ваше имя пользователя в системе. В этой папке создаем файл ZWCAD.MNL и добавляем туда следующий код: (defun c:q_select ( / new_nab obj)
(if (ssget "_I")
(setq obj (ssname (ssget "_I") 0))
(setq obj (car(entsel "\nУкажите объект-образец для выбора аналогичных объектов: ")))
); end if
(if obj
(progn
(if (= (cdr(assoc 0 (entget obj))) "INSERT")
(setq new_nab (ssget "_X" (list (assoc 0 (entget obj)) (assoc 2 (entget obj)) (assoc 8 (entget obj)))))
(setq new_nab (ssget "_X" (list (assoc 0 (entget obj)) (assoc 8 (entget obj)))))
); end if
(sssetfirst new_nab new_nab)
); end progn
); end if
(princ)
); end defun ZWCAD при открытии какого-либо чертежа загрузит в память меню из файла ZWCAD.mns и автоматически загрузит код из файла ZWCAD.mnl Теперь поместим вызов программы q_select в файл меню таким образом чтобы в контекстном меню какого-либо выбранного объекта чертежа был нужный нам пункт. Находим в файле ZWCAD.mns секцию
***POP502
**CMEDIT
и в понравившемся месте, например после строки
ID_Filter [&Быстрый выбор...]^C^C_qselect
вставляем вызов нашей команды:
[Выбрать аналог...]^C^C_q_select
Перезагружаем ZWCAD, выделяем любой объект чертежа, вызываем контекстное меню и любуемся)) Просмотров: 3378
Вернуться назад
|