[AVF]

Существует ли какой-нибудь лисп для проставления размера дуги?
А то ставить угловой размер, затем исправлять текст, я уже замучился :?

[Torino]

Размер дуги = длина дуги?
Если есть SPDS Graphics, то можно так:
СПДС -> Размеры -> Дуговой размер

[Alan]

Тема стара как Автокад!
Поиском - одно из решений
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=5540Bw
У Эдуарда для Лиспа
Только для Авт(рус) в (Command "_dimangular" a
у опции надо _ "_t"

[Startrek]

Писал для "дикого запада", может и в метрической системе сработает...

(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)
)

[Vova]

Что-бы процес был понятен читай здесь: http://www.cad.dp.ua/stats/content.p...nt=diesel.html
А окончательный ответ найдешь в AutoCAD.ru, а может и здесь используя поиск.

[виталич]

В MechaniCS 2.0 (халявная версия) от CSoft есть такая кнопка, только она проставляет размеры ДУГ или кусков окружностей, но не дуговых сегментов ПОЛИЛИНИЙ.

[AVF]

Спасибо!
Теперь стало легче

Можно попробовать такую макрокоманду

^C^C_Lengthen;\;_Dimangular;@;_Text;$m=$(Rtos,$(Getvar,Perimeter),2,1);\

[Vova]

Ден, а откуда взялось это выражение?

Из книги "Язык макрокоманд и создание кнопок"Свет В.Л.

[kos]

Сообщение от Vova Ден, а откуда взялось это выражение?

Сообщение от ден Из книги "Язык макрокоманд и создание кнопок"Свет В.Л.

[sm115] Vova ненавязчиво пропиарил своё произведение...

ЗЫ прошу у почтенной публики пардону за оффтоп.

[Vova]

Видищь-ли Kos, не будучи программистом, я сам составил этот макрос, чем гордился. Потому что ни на один мой вопрос по DIESEL никто и никогда мне не отвечал. Даже из техподдержки AutoCAD.ru аналогичный не работал. Поэтому мне стало интересно, стал ли он "народным достоянием" или все еще именной.

[Tech]

Сообщение от Ден Можно попробовать такую макрокоманду ^C^C_Lengthen;\;_Dimangular;@;_Text;$m=$(Rtos,$(Getvar,Perimeter),2,1);\

Сообщение от Vova ^C^C_lengthen;\;_dimangular;@;_t;$m=$(rtos,$(getvar,perimeter),2,2)mm ^M

Весьма похоже, но суть не в этом, макрос от Vova у меня почему-то проставляет угловой размер, а Дена работает безошибочно, но только один раз - при изменении длины дуги размер ее (судя по цифирям) не меняется и на _aidimprec никакого внимания, как и LISP от Startrek.
А не подскажут ли многоуважаемые Гуру, как найти золотую середину :?:

[Vova]

Оба макроса работают, разница только в точности-1 или 2 знака после запятой, и в налчии мм во втором. По сути они переписывают текст углового размера и поэтому не отслеживают измемений в длине дуги. В книге об этом сказано. Что такое _aidimprec ?

[Alaspher]

Сообщение от Lamer ...работает безошибочно, но только один раз - при изменении длины дуги размер ее (судя по цифирям) не меняется и на _aidimprec никакого внимания, как и LISP от Startrek. А не подскажут ли многоуважаемые Гуру, как найти золотую середину :?:

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

Код:

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

(if (and (vl-cmdf "_.dimangular" (setq my_arc (entsel)))
	 (while (not (zerop (logand 1 (getvar "cmdactive")))) (vl-cmdf pause))
	 (= "AcDbArc" (vla-get-objectname (setq my_arc (vlax-ename->vla-object (car my_arc)))))
	 (= "AcDb3PointAngularDimension"
	    (vla-get-objectname (setq my_dim (vlax-ename->vla-object (entlast))))
	 )
    )
  (vla-put-textoverride
    my_dim
    (rtos (vla-get-arclength my_arc) (getvar "dimlunit") (getvar "dimdec"))
  )
)

Можно и его на кнопку повесить, в том числе, и оформив, как команду, но суть от этого, не изменится.

[Tech]

Что такое _aidimprec ?

Я так думаю, что Dimension Precision :?

...Ассоциативным такой размер не будет.

А коль все размеры в CADе ассоциативны, почему этот должен отличаться :?:
А можно ли сделать так, чтобы из Properties>Total angle заменялся на Arc Length :?:

[Alaspher]

Сообщение от Lamer ...Ассоциативным такой размер не будет. А коль все размеры в CADе ассоциативны, почему этот должен отличаться :?:

У этого переписан размерный текст, соответственно, он не будет редактироваться автоматом.

А можно ли сделать так, чтобы из Properties>Total angle заменялся на Arc Length :?:

Нет, по крайней мере, я такого не умею (если я правильно понял - о чём это).

[Tech]

Просто интересно, открываешь окно свойств и получаешь все параметры объекта. В частности для дуги, причем для любой, присутствует параметр длина - LENGTH для PLINE или ARC LENGTH для дуги, непонятно только, где он прячется и почему разработчики не включили его в стандартный набор DIMENSIONS :? ... да ну ее к :evil: в крайнем случае можно воспользоваться лиспом от Startrek или макросом от Vova-Ден.

[Vova]

Сообщение от Lamer Просто интересно, .... непонятно только, где он прячется

См на первой стр. этого топика 2 ссылочки. Там и узнаешь где прячется длина дуги