|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
25.06.2004, 14:51 | #1 | |
Лисп для проставления размера длины дуги
Регистрация: 25.06.2004
Сообщений: 3
|
||
Просмотров: 6229
|
|
||||
CAD Регистрация: 28.08.2003
Киев
Сообщений: 1,835
|
Тема стара как Автокад!
Поиском - одно из решений http://www.autocad.ru/cgi-bin/f1/board.cgi?t=5540Bw У Эдуарда для Лиспа Только для Авт(рус) в (Command "_dimangular" a у опции надо _ "_t" |
|||
|
||||
AutoCAD/AutoLISP Регистрация: 27.08.2003
Seattle/USA
Сообщений: 1,133
|
Писал для "дикого запада", может и в метрической системе сработает...
(defun c:dimarc (/ cm arcel obj num lu txt) (setq cm (getvar "cmdecho")) (setvar"cmdecho" 0) (setq arcel (entsel "\nSelect an Arc: ")) (while (if (/= (cdr(assoc 0 (entget(car arcel)))) "ARC") (progn (prompt "\nSelected Object is not an ARC") (setq arcel (entsel "\nSelect Arc: ")) ) ) ) (setq obj (vlax-ename->vla-object (car arcel))) (setq num (vla-get-ArcLength obj)) (setq lu (getvar "lunits")) (cond ((= lu 1)(setq txt (rtos num 1))) ((= lu 2)(setq txt (rtos num 2))) ((= lu 3)(setq txt (rtos num 3))) ((= lu 4)(setq txt (rtos num 4))) ((= lu 5)(setq txt (rtos num 5))) ) (command "dimangular" arcel "t" txt pause) (setvar "cmdecho" cm) (princ) ) |
|||
|
||||
Engineer Регистрация: 05.09.2003
New-York
Сообщений: 10,288
|
Что-бы процес был понятен читай здесь: http://www.cad.dp.ua/stats/content.p...nt=diesel.html
А окончательный ответ найдешь в AutoCAD.ru, а может и здесь используя поиск. |
|||
|
||||
LISP-программист Регистрация: 25.08.2003
Тутэйшы
Сообщений: 238
|
Цитата:
Цитата:
ЗЫ прошу у почтенной публики пардону за оффтоп.
__________________
Там все есть для счастья - меня там только нет. Так это значит, что я там - буду! |
|||
|
||||
Engineer Регистрация: 05.09.2003
New-York
Сообщений: 10,288
|
Видищь-ли Kos, не будучи программистом, я сам составил этот макрос, чем гордился. Потому что ни на один мой вопрос по DIESEL никто и никогда мне не отвечал. Даже из техподдержки AutoCAD.ru аналогичный не работал. Поэтому мне стало интересно, стал ли он "народным достоянием" или все еще именной.
|
|||
|
||||
Регистрация: 18.10.2004
Odessa
Сообщений: 226
|
Цитата:
Цитата:
А не подскажут ли многоуважаемые Гуру, как найти золотую середину :?: |
|||
|
||||
Engineer Регистрация: 05.09.2003
New-York
Сообщений: 10,288
|
Оба макроса работают, разница только в точности-1 или 2 знака после запятой, и в налчии мм во втором. По сути они переписывают текст углового размера и поэтому не отслеживают измемений в длине дуги. В книге об этом сказано. Что такое _aidimprec ?
|
|||
|
||||
Регистрация: 11.10.2004
e•burg
Сообщений: 755
|
Цитата:
Код:
|
|||
|
||||
Регистрация: 18.10.2004
Odessa
Сообщений: 226
|
Цитата:
Цитата:
А можно ли сделать так, чтобы из Properties>Total angle заменялся на Arc Length :?: |
|||
|
||||
Регистрация: 11.10.2004
e•burg
Сообщений: 755
|
Цитата:
Цитата:
|
|||
|
||||
Регистрация: 18.10.2004
Odessa
Сообщений: 226
|
Просто интересно, открываешь окно свойств и получаешь все параметры объекта. В частности для дуги, причем для любой, присутствует параметр длина - LENGTH для PLINE или ARC LENGTH для дуги, непонятно только, где он прячется и почему разработчики не включили его в стандартный набор DIMENSIONS :? ... да ну ее к :evil: в крайнем случае можно воспользоваться лиспом от Startrek или макросом от Vova-Ден.
|
|||