[Hans667]

Счастливчики,обладающие меню Express имеют возможность пользоваться и сей командой.Вопрос следущий:как поменять параметры?Т.е. ну чтобы масштаб там допустим и цвет может...я так понимаю что вставляется блок какой то?

[Krieger]

Vova

Готов поспорить, что данная линия разрыва есть чемпион по удобству пользования среди всего, представленного здесь

Ну давай. Чем же она удобна? Одни неудобства. Разрывные линии получаются неодинаковые, зигзаг по центру не поставить, только примерно (или приходится использовать дополнительную привязку через ctrl), а не по центру вообще дохлый номер, угол 90град к линиям обрываемой конструкции выдержать невозможно. Вообщем все получается криво и не красиво, а значит неудобно.

остальное не пробавал

Как ты можешь утверждать если остальное не пробовал? Однако я не утверждаю, что мой код будет для тебя удобнее, так как не знаю твою специфику. Каждому свое.

Вот примерчик сделал, оборвал узелок, первый вариант по коду из поста #37 (кстати, у меня орто не включается), второй и третий по коду из поста #36.

[Profan]

Пробавал, пробывал - не правильно.
Надо пробовал.

[Vova]

Да ладно... Это я чтобы подогреть тему и выразить благорарность VVA, который уже второй лисп успешно чинит. А разве зигзаг должен стоять строго по центру? Часто бывает,что сознательно надо уйти из центра. И почему привязка через Ctrl? У меня их много навешено одновременно. Увы, твой чертеж is not valid

[Vova]

Сообщение от Profan Пробавал, пробывал - не правильно. Надо пробовал.

Это я Хазанова вспомнил, калинарный техникум. Там на экзамене спросили, чего в супе не хватает. Он и ответил: не распробАвал, налейте еще
Только что заметил, все мои и ваши сообщения получаются по Нью-Йоркскому времени. Сейчас на часах 23-40. Сообщение от Profan выше от 23-30. Но в Москве-то утро. А что у вас показывает?

[Krieger]

Сообщение от Vova А разве зигзаг должен стоять строго по центру? Часто бывает,что сознательно надо уйти из центра.

Всяко бывает. И вот как раз твой вариант сделать не по центру не может. Я об этом говорил:

а не по центру вообще дохлый номер

Сообщение от Vova И почему привязка через Ctrl?

Чтобы выбрать привязку "между двумя точками"

Сообщение от Vova Увы, твой чертеж is not valid

Чего там у тебя за AutoCAD? Уже не впервый раз это... Сохранил в 2004-м:

[Vova]

To Krieger> Сдаюсь, твой лучше и универсальнее. Мне действительно не приходилось делать разрывы рядом и под углом, когда они должны быть одинаковыми. А одиночные быстро и легко строились моим вариантом. Комбинация с дин блоком-wipeout очень удачна. У меня есть аналогичные, употрбляемые для схем, где динамика меняет конфигурацию wipeout, они значительно ускоряют черчение. Проблема только может проявится в том, что wipeout провалится вниз и обрываемые линии вылезут наружу. Для той цели у меня есть кнопочка, одним махом поднимающая wipeouts наверх

Код:

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

^C^CGETSEL;\;DRAWORDER;P;;F;

Но я не смог запустить лисп:

Код:

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

Command: (LOAD "C:/Documents and Settings/user1/My 
Documents/Vladimir/Lisp/mylisp/brk-krieger.lsp") nil

Мой автокад 2006

[VVA]

Вот примерчик сделал, оборвал узелок, первый вариант по коду из поста #37 (кстати, у меня орто не включается),

В проге из поста #37 для отслеживания используется grread, поэтому обрабатывается включение орто только по F8. Соответственно и ctrl надо обрабатывать.

[wetr]

Krieger, чЁй-то у меня линия обрыва не хочет подчитяться аннотативности. Только dimscale признает. Так и должно, или у меня старая версия лиспа?

[Krieger]

Тогда у меня еще не было аннотативности. За масштаб отвечает функция Kr_ScaleOfVP. Её нужно поменять в листинге или просто загрузить последней (тогда старая версия переопределится). Чтобы была реакция на аннотативный масштаб обязательно должен быть установлен текущим аннотативный размерный стиль. Если размерный стиль не аннотативный, то будет браться dimscale.

Код:

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

;|---------------------------------------------------------------
Функция Kr_ScaleOfVP
-----------------------------------------------------------------
Вычисляет масштаб в зависимоти от переменной dimscale или CANNOSCALEVALUE, если dimscale=0 коэф-т = 1 или относительно vport
|;
(defun Kr_ScaleOfVP ( / )
  ;если текущим установлен аннотативный размерный стиль, масштаб берем с аннотативного масштаба
  (if (= (getvar "dimanno") 1)
    (setq dsc (/ 1 (getvar "CANNOSCALEVALUE")))
    (progn
  ;если dimscale=0 принимаем dsc=1, если нет dsc=dimscale
              (if (= (getvar "dimscale") 0) (setq dsc 1) (setq dsc (getvar "dimscale")))
  ;если мы находимся в пространстве листа:
            (if (= (Getvar "TILEMODE") 0)
  ;если видовое окно не ативно dsc=1, если активно, то берем масштаб с видового экрана
              (if (= (Getvar "CVPORT") 1)
                (setq dsc 1)
                (setq dsc (/ 1 (vla-get-CustomScale (vla-get-ActivePViewport (vla-get-ActiveDocument (vlax-get-Acad-Object))))))
              );if
             );if
      );progn
    );if
    dsc
    )

[wetr]

Krieger, супер!

[Krieger]

У меня эта функция во всех программках и кнопках используется. Поэтому при появлении аннотативности я подредактировал всего одну функцию и теперь все работает с аннотациями. Чего и тебе желаю. Например в макросе для вставки неаннотативного блока можно написать так:

Код:

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

_-insert;"имя блока";_s;(Kr_ScaleOfVP);_r;0;

[Хмурый]

Krieger, код из #36 в 2011 не работает. Сообщает

Код:

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

(Kr_LineOfBreakAddBlock "Разрывы" 1 2 nil)

Первая точка линии разрыва:
Конечная точка линии разрыва:; error: An error has occurred inside the *error* 
functionbad argument type: lentityp nil

Win7х64

[Krieger]

А в 2010-м работал?

[Хмурый]

Krieger, в 2008-ом работал, ни в 2009, ни 2010- не пробовал работать

[Krieger]

Тогда я затрудняюсь ответить. Сам тестил только на ACAD2010, Win7 - работает. Только если профи подскажут...

[Хмурый]

Krieger, будем искать.
Ничего не понял, но вдруг заработало после очередного вылета AutoCAD'а.
Спасибо.