Новый ZWCAD 2017
dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > Восстановление засечки в размерном стиле.

Восстановление засечки в размерном стиле.

Версия для печати
 
Ответ
Опции темы Поиск в этой теме
Непрочитано 21.02.2017, 09:35 #1
Восстановление засечки в размерном стиле.
Profan
 
Чужой
 
Москва
Регистрация: 25.12.2005
Сообщений: 13,478

Profan вне форума Вставить имя

Иногда происходит случайное или злонамеренное удаление блоков засечек из размерных стилей.
Программа восстанавливает блоки засечек для тех стилей, где эта засечка используется.
Код:
[Выделить все]
;;; Получение списка размерных стилей с одиночными засечками.
;;; Восстановление засечек в случае их злонамеренного удаления.
;;; Автор Владимир Громов.
(defun C:ЗАСЕЧКИ ( / echo dst1 dstn спнаклон колнаклон)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq dst1 (tblnext "dimstyle" T))
(if dst1
    (progn
    (if (= (cdr (assoc 5 dst1)) "OBLIQUE")
        (setq спнаклон (list (cdr (assoc 2 dst1))))
    ) ; if
    ) ; progn
) ; if
(repeat 50
(setq dstn (tblnext "dimstyle"))
(if dstn
    (progn
    (if (= (cdr (assoc 5 dstn)) "OBLIQUE")
        (if спнаклон
            (setq спнаклон (append спнаклон (list (cdr (assoc 2 dstn)))))
            (setq спнаклон (list (cdr (assoc 2 dstn))))
        ) ; if
    )
     ) ; progn
) ; if
) ; repeat
(princ "\nРазмерные стили с одиночной засечкой: ") (prin1 спнаклон)
(vl-cmdf "_-RENAME" "_B" "_Oblique" "_Oblique_")
(setq колнаклон (length спнаклон))
(if (>= колнаклон 0)
    (progn
    (setq n 0)
    (repeat колнаклон
            (vl-cmdf "_-DIMSTYLE" "_R" (nth n спнаклон))
            (setvar "DIMBLK" "_Oblique") 
            (vl-cmdf "_-DIMSTYLE" "_S" (nth n спнаклон) "_Y")  
            (setq n (+ n 1))
    ) ; repeat
    ) ; progn
) ; if
(terpri)
(vl-cmdf "_-PURGE" "_B" "*" "_N")
(alert "Засечки восстановлены.")
(princ "\n\n\nЗасечки восстановлены.")
(setvar "CMDECHO" echo)
(princ)
)
Просмотров: 358
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > Восстановление засечки в размерном стиле.

Инженерные консультации
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В 56-ой раз, но всё же... не редактируется высота в размерном стиле Николай20001007 AutoCAD 10 09.12.2016 03:52
Как можно вернуть тексту в размерах высоту по умолчанию (заданную в размерном стиле)? Алексия AutoCAD 1 12.11.2015 09:29
Не отображаются засечки в размерном стиле. Наталья Воронина AutoCAD 10 27.08.2010 12:10
Перенос с выноской в размерном стиле Yuzer AutoCAD 2 20.01.2010 13:23
Допуск в размерном стиле Борис nsk AutoCAD 2 18.11.2009 20:31

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||


Размещение рекламы