[wepp]

Здравствуйте! Искал функцию для своей задачи, нашёл. Называется Dimrotate, но вот работает он только в 2006/2007 Автокаде. Подскажите, пожалуйста, что поправить по коду, чтобы работал в Автокад 2009 и новее. Ранее с лиспом только как пользователь работал, тут вот решил глубже копнуть..

Брал тут. По ссылке - описание и пример работы.

Код:

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

 (defun DTR (A) (* PI (/ A 180.0)))
(defun c:DIMROTATE (/ DIM_CNT DIM_SS1 DIM_OBJ DIM_ANG)
(command ".undo" "group")
(setq DIM_CNT 0
DIM_SS1 (ssget '((0 . "DIMENSION")))
)
(if DIM_SS1
(progn
(repeat (sslength DIM_SS1)
(setq DIM_OBJ (entget (ssname DIM_SS1 DIM_CNT)))
(setq DIM_ANG (- (cdr (assoc 51 DIM_OBJ)) (DTR 180)))
(setq DIM_OBJ (subst (cons 51 DIM_ANG) (assoc 51 DIM_OBJ) DIM_OBJ))
(entmod DIM_OBJ)
(princ (strcat "\rRotating dimension "
(itoa DIM_CNT)
" of "
(itoa (sslength DIM_SS1))
)
)
(setq DIM_CNT (1+ DIM_CNT))
)
(princ (strcat "\rRotating dimension "
(itoa DIM_CNT)
" of "
(itoa (sslength DIM_SS1))
)
)
)
)
(command ".undo" "end")
(princ)
)

Спотыкается тут:

Команда: dimrotate .undo Неизвестная команда "UNDO". Для вызова справки нажмите F1. Команда: group Неизвестная команда "GROUP". Для вызова справки нажмите F1.

[TararykovDG]

wepp, попробуй вместо .undo везде написать _.undo

[Profan]

А также и опции написать с подчерком:
_group
_end

[wepp]

TararykovDG, Profan, спасибо! Но вылезла новая проблема. При выборе объекта тыкаю мышкой в текст на чертеже - и ничего.

Выберите объекты: найдено: 0

Можно ли проверить, какие объекты хочет эта функция? Но в принципе она именно для текста и создана..

[TararykovDG]

Сообщение от wepp TararykovDG, Profan, спасибо! Но вылезла новая проблема. При выборе объекта тыкаю мышкой в текст на чертеже - и ничего. Можно ли проверить, какие объекты хочет эта функция? Но в принципе она именно для текста и создана..

В коде формируется набор (ssget '((0 . "DIMENSION"))). DIMENSION - это размеры, а не текст. Нужно выбрать рамкой размеры и нажать Enter

[wepp]

Ой-ёй.. На картинку посмотрел, а текст даже не прочитал. Не подходящая в данный момент функция, но на будущее оставлю..

[Do$]

Для текста
http://forum.dwg.ru/showthread.php?p=472976#post472976

[wepp]

Сообщение от Do$ Для текста http://forum.dwg.ru/showthread.php?p=472976#post472976

Я обнаружил, что есть _TORIENT из Express Tool. Замечательно поворачивает все тексты, вне зависимости от их исходного угла на 180 градусов.