[Hans667]

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

[Кочетков Андрей]

Запусти команду и смотри в комстроке ее опции.

[Hans667]

ну,и....там только полилинии есть свойства..а мне чтоб самого "изделия" маштаб,причем уже навсегда..да и вообще чтоб сразу загружалось уже по вызову команды,зеленая линия такого то размера и толщины..лисп?

[Кулик Алексей aka kpblc]

Я бы планировал лисп.

[PL]

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

Я себе вот так сделал:

Код:

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

(defun c:ob()
(setq cl (getvar "clayer"))
(setq ln "s-misc-thin")
(setq r1 (tblsearch "layer" ln))
(if (= r1 nil)
    (vl-cmdf "-LAYER" "M" "s-misc-thin" "C" "9" "" "")
  )
  (setvar "clayer" "s-misc-thin")
(c:breakline)
(setvar "clayer" cl)
)

масштаб - сама эта команда автоматически реагирует на изменение значения dimscale
Что еще желать?
Странный глюк на саите, должно быть c : ob а без пробелов не получается

[Кулик Алексей aka kpblc]

Я пост подправил, так нормально?
P.S. Это не глюк на сайте. Если текст обрамить тегами code, то смайлы показываться не будут. Кроме того, ниже поля текста есть "галочки" - поставь "Отключить в этом сообщении смайлики".

[PL]

понял, спасибо

[Vova]

Попробуйте это, я от него балдею. Вызывается Dragbrk

Код:

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

; DRAGBRK.LSP    Breaklines, " Z " Breaks
; Tip 1028 Cadalyst Oct 1994

(defun C:DRAGBRK (/ PT1 PT2 PT3 PT4 PT5 PT6 PT7 _ORTHO ANG LEG)
   (defun _ortho (PT1 PT / ANG)
      (setq ANG (angle PT1 PT))
      (cond 
         ((or (<= ANG 0.7853) (> ANG 5.4977))
            (polar PT1 0 (distance PT1 PT)) 
         )
         ((and (> ANG 0.7853) (<= ang 2.3561))
            (polar PT1 1.5707 (distance PT1 PT)) 
         )
         ((AND (> ANG 2.3561) (<= ANG 3.9269))
            (polar PT1 3.14159 (distance PT1 PT)) 
         )
         ((and (> ANG 3.9269) (<= ANG 5.4977))
            (polar PT1 4.7124 (distance PT1 PT)) 
         )
      )
   )   
   (setq PT2 nil PT6 nil)
   (while 
      (not
         (setq PT1 (getpoint "\nPick starting point for break: "))
      )
      (prompt "\nInvalid point")
   )   
   (prompt "\nDrag to indicate size and angle of break: ")
   (while 
      (/= (car (setq GR (grread T 19))) 3) 
      (cond
         ((= (car GR) 5)
            (if (/= (car GR) PT1)
               (progn
                  (if PT2
                     (progn
                        (grdraw PT2 PT3 -1)
                        (grdraw PT3 PT4 -1)
                        (grdraw PT2 PT5 -1)
                     )
                  )  
                  (if
                     (= (getvar "orthomode") 0)
                     (setq GR_PT (cadr GR))
                     (setq GR_PT (_ortho PT1 (cadr GR)))
                  )
                  (setq
                     ANG (angle PT1 GR_PT)
                     LEG (distance gr_pt pt1)
                     PT2 (polar PT1 ANG LEG)
                     PT3 (polar PT1 (+ ANG 3.14159) LEG)
                     PT4 (polar PT1 (+ ANG 1.5707) (* LEG 0.4))
                     PT5 (polar PT1 (- ANG 1.5707) (* LEG 0.4))
                  )
                  (grdraw PT2 PT3 -1)
                  (grdraw PT3 PT4 -1)
                  (grdraw PT2 PT5 -1)
               )
            )
         )
         ((= (car GR) 2)
            (if
               (= (cadr GR) 194)
               (if 
                  (= (getvar "orthomode") 1)
                  (progn
                     (setvar "orthomode" 0)
                     (prompt "<Ortho off> ")
                  )   
                  (progn
                     (setvar "orthomode" 1)
                     (prompt "<Ortho on> ")
                  )   
               )   
            )   

         ) 
      )
   )
   (prompt "\nDrag to indicate length of lines: ")
   (while 
      (/= (car (setq GR (grread T))) 3) 
      (if
         (= (car GR) 5)
         (if (/= (car GR) PT1)
            (progn
               (if PT6
                  (progn
                     (grdraw PT4 PT7 -1)
                     (grdraw PT5 PT6 -1)
                  )
                )  
               (setq
                  GR_PT (cadr GR)
                  ANG (angle PT1 PT5)
                  LEG (* (distance GR_PT PT1) 1.4)
                  PT7 (polar PT4 (+ ANG 3.14159) LEG)
                  PT6 (polar PT5 ANG LEG)
               )
               (grdraw PT4 PT7 -1)
               (grdraw PT5 PT6 -1)
            )
         )
      ) 
   )
   ;create new pline using the dragged points
   (entmake 
      '(
         (0 . "POLYLINE")
      )
   )
   (foreach
      vertex
      (list PT7 PT4 PT3 PT2 PT5 PT6)  
      (entmake 
         (list
            '(0 . "VERTEX")
            (cons 10 (list (car VERTEX) (cadr VERTEX)))
         )
      )
   )
   (entmake '((0 . "SEQEND")))
   (princ)
); end dragbrk.lsp

[Кулик Алексей aka kpblc]

еще варианты: http://www.autocad.ru/cgi-bin/f1/board.cgi?t=21447of

[zenon]

Еще можно вот так
Создать кнопку и прописать макрос

Код:

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

^C^C_-Insert;Breakline;\;;;_Scale;_Last;;@;\_Rotate;_Last;;@;\_Explode;_Last;Lengthen;_Dy;\\\\;Pedit;_Last;_Join;Pr;;;_Laycur;Last;;

В папку Support закинуть прилагаемый файлик breakline.dwg
(Спасибо В.Свету)
[ATTACH]1189583218.rar[/ATTACH]

[Vova]

Между прочим, макрос из N10 родился глядя как работает лисп из NO 8. У того лиспа одна проблема: надо заранее выставлять Ortho в нужное положение. Можно-ли сделать так, чтобы выставлять ORTHO в процессе?

[zenon]

Сообщение от Vova Между прочим, макрос из N10 родился глядя как работает лисп из NO 8. У того лиспа одна проблема: надо заранее выставлять Ortho в нужное положение.

не знаю откуда родился, :roll: делал в соотвествии с книгой В. Света.
А еще у лиспа есть проблема неработы в LT-ных версиях. :!:

[Кулик Алексей aka kpblc]

Сообщение от zenon <...>А еще у лиспа есть проблема неработы в LT-ных версиях. :!:

Которая более-менее успешно решается LT-Extender'ом

[Krieger]

Сообщение от Кулик Алексей aka kpblc Которая более-менее успешно решается LT-Extender'ом

А это законно?

Ну и до кучи, динблок разрыва:
[ATTACH]1189599221.dwg[/ATTACH]

[Кулик Алексей aka kpblc]

Сообщение от Krieger Сообщение от Кулик Алексей aka kpblc Которая более-менее успешно решается LT-Extender'ом А это законно?<...>

Пока вроде да.

[Nike]

Еще вариант с Wipeout.
Тряпками прошу не кидаться - делал под свои извратные цели.. :roll:
[ATTACH]1189600454.dwg[/ATTACH]

[zenon]

Сообщение от Кулик Алексей aka kpblc Сообщение от zenon <...>А еще у лиспа есть проблема неработы в LT-ных версиях. :!: Которая более-менее успешно решается LT-Extender'ом

Эээээээ панимаеш. Моя мало мало неумей.

[Кулик Алексей aka kpblc]

http://dwg.ru/forum/viewtopic.php?p=166851
Если какие-то "иные" вопросы - пиши в мыло или личку.

[Vova]

Сообщение от zenon Сообщение от Vova Между прочим, макрос из N10 родился глядя как работает лисп из NO 8. У того лиспа одна проблема: надо заранее выставлять Ortho в нужное положение. не знаю откуда родился, :roll: делал в соотвествии с книгой В. Света. ...:!:

А мне об этом сам автор рассказал (я с ним знаком).

[Yura]

Вообще, если я понял тему, то насчет brakeline могу сказать следующее:
Её настройки я запомнил в шаблоне (*.dwt), там разные размерные стили, различающиеся числом, которое в настройке размерного стиля, в строчке Use overall scale of... Дык вод, эта brakeline зависима от размерного стиля величиной ее элементов (масштабом ее элементов в зависимости от значения вышеуказанной строчки). Там играет роль вышеуказанная строчка в настройке размерного стиля. Уверен, что за это отвечает какая-то переменная, но я ее не знаю. Если я захочу поменять параметры этой линии разрыва, то ввожу данные в миллиметрах, как бы я ее хотел видеть на листе, тока при этом ставлю размерный стиль, чтоб размеры при соответствующем масштабе выглядели соответственно по высоте..