[XYZ]

Как быстро рисовать стрелки (односторонняя: отрезок + наконечник стрелы) разной длины и наклона на плоскости в ACAD? Использовать Leader не всегда возможно, т.к. приходится бороться с полочкой, которая не нужна (когда Leader поворачиваешь, образуется полочка, даже если ее раньше удалось истребить).
Опытные, помогите плиз.

[Yura]

XYZ,
Цитата:
- Суслика видишь?
- Нет..
- А он есть...
- Понятно..
(с)ДМБ
Просто попробуй вставить, как блок... А версия Автокада вообще не имеет значения, т.к. создан этот "шедевр" где-то в 2000-м, а в силу лени, пользуемся им до сих пор...

Кстати, на скрине скачанное с моей же месаги файло..

[skif58]

Сообщение от XYZ Yura, в ACAD-2007 ни чего не вижу. Стрелка- невидимка.

В восьмом видно... - просто она в безлимитном космосе: кликнуть пару раз колесом.
Обалденная стрелка! Шесть отрезков и штриховка...

[Jerald]

У меня седьмой, и всё прекрасно видно!

[Елпанов Евгений]

Сообщение от Profan Вот программа изменения ширины произвольного сегмента полилинии: Код: [Выделить все] ;**************** lw_width.lsp ********************************* ; Изменение начальной и конечной ширины ; произвольного сегмента полилинии. ; Автор Евгений Елпанов. (defun C:LW_WIDTH(/ ENDWIDTH GR LW PAR STARTWIDTH) (vl-load-com) (vla-StartUndoMark(vla-get-activedocument(vlax-get-acad-object))) (setq lw(entsel "\n Выберите нужный сегмент в полилинии. ")) (if(and lw(=(cdr(assoc 0(entget(car lw)))) "LWPOLYLINE")) (progn(setq par(vlax-curve-getParamAtPoint(car lw) (vlax-curve-getClosestPointTo(car lw)(cadr lw))) lw(vlax-ename->vla-object(car lw))) (princ "\n Задайте ширину начала сегмента.\t") (vla-GetWidth lw(fix par) 'StartWidth 'EndWidth) (while(and(setq gr(grread 5))(=(car gr) 5)) (vla-SetWidth lw(fix par) (setq StartWidth(*(distance(cadr gr) (vlax-curve-getClosestPointTo lw(cadr gr))) 2.))EndWidth)) (if(=(car gr) 2)(vla-SetWidth lw(fix par) (setq StartWidth(atof(strcat(princ(vl-list->string(cdr gr))) (getstring)))) EndWidth)) (princ "\n Задайте ширину конца сегмента.\t") (while(and(setq gr(grread 5))(=(car gr) 5)) (vla-SetWidth lw(fix par) StartWidth(*(distance(cadr gr) (vlax-curve-getClosestPointTo lw(cadr gr))) 2.))) (if(=(car gr) 2)(vla-SetWidth lw(fix par) StartWidth (atof(strcat(princ(vl-list->string(cdr gr)))(getstring)))))) (princ "\n Ничего не выбрано или объект не полилиния.\t")) (vla-EndUndoMark(vla-get-activedocument(vlax-get-acad-object))) (princ) ) Почему-то VVA не захотел включить ее в свой пакет программ для работы с полилинией.

Оно и понятно - во первых, изменение ширины нужно не часто, а во вторых, не всегда нужно менять только один сегмент... Например, для ребят из испании, в прошлом году, делал программу для изменения ширины всех сегментов, имеющих ширину как на указанном. Еще, когда то, не помню для кого, делал похожую программу, но для изменения стрелкой всех сегментов, между указанными..
Короче, эта программа, явно отдельная, без продолжения и редко используемая.

[VVA]

>Profan Я не не захотел, а просто забыл. . Сейчас прочитал и вспомнил. Код в загашник уже скопирвал. Осталось иконку придумать. Как заметил Евгений, шириной уже давно не пользуюсь в силу различных причин (основная - пространсто листа и блоки с разными масштабными коэффициентами). Слава богу, своих пользователей отучил. Если обучаю новых, то просто говорю, что полилиния может иметь ширину, но не у нас. Даже сейчас в новой редакции PL-DIV буду при добавлении новых точек пересчитывать и ширину, чего раньше не делал по идейным соображениям. А так больше претензий к ширине не имею . А так стрелки черчу _SOLID (еще со времен 10 Автокада). Кстати, если "разобрать" автокадовский размер со стрелками, там тоже фигура (_solid).

[IIIypuk]

Вставляете leader, пишите внем текс. Выходите из режима теста. Появляется стрелка с "полочкой" и текстом на ней =) Выделяем только текст и удаляем (не выделяя стрелки). "Полочка" пропадает и остается только стрелка со всеми нужными нам настройками (тип линии, стрелки, масштаб и т.д.). Всё элементарное - просто.

[Krieger]

IIIypuk
Пост №12

[IIIypuk]

Сообщение от Krieger IIIypuk Пост №12

Ну, во-первых, зачем делать еще одну кнопку, если можно обойтись без неё.
Во-вторых, я объяснил так, как поймет и запомнит любой (!) пользователь. А что делать с постом 12 понятно далеко не каждому.

[Yura]

А polar разве на leader-e работает? У меня че-то все кривое выходит... Аль не прав я в чем?

[Krieger]

IIIypuk
Тогда еще проще:
le (или "_qleader") -> пробел -> 1-я точка -> 2-точка -> esc
т.е. писать, а потом удалять текст необязательно.

Yura
У меня polar работает. Более того, углы можно настроить персонально для быстрого лидера "_qleader" в опции команды Settings.

[Yura]

Krieger,
Пардон, точно polar работает!!! Значит действительно, че-то я делал не так...