[i_s]

Break-line рисуется с очень мелкими зигзагами независимо от масштаба изображения. Можно-ли это как-то исправить?

[Om81]

Я так понял, это в Арх, Десктопе?.. Если так, то это зависит от установленного масштаба на Drawing Status Bar'е (внизу справа...)

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

По-моему, надо менять celtscale

[Om81]

У меня в десктопе AecSetDwgScale

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

Из вопроса непонятно, про какой инструмент разговор и в какой среде. Если это breakline, то тогда надо опциями играться. Если это просто тип линии, то celtscale для нее. Если AEC-объект, то средствами ADT надо работать...

[Om81]

Не знал о существовании команды breakline )) Создает что-то вроде группы объектов(?) Практически то же, что и AEC делает.. только там одна полилиния получается. Как только что проверил - на breakline также действует изменение общего масштаба чертежа в десктопе (AecSetDwgScale)

[asys]

>Om81, kpblc
Это из экспресса
>i_s
Command: BREAKLINE
Block= BRKLINE.DWG, Size= .5, Extension= 1.5
Specify first point for breakline or [Block/Size/Extension]: s

Breakline symbol size <.5>: 10
Specify first point for breakline or [Block/Size/Extension]:
Specify second point for breakline:
Specify location for break symbol <Midpoint>:

А в настройках команды не пробовали менять?

[i_s]

Речь идет о изображении линии разрыва. Очень мелко изображается зигзаг. Практически его и не видно.

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

> i_s : Так каким инструментом ты рисовал линию разрыва-то, скажи! Чем? скажи команду хоть, а то гадаем...

[i_s]

В 2006-ом на панели "Рисование" есть (можно вставить в панель) кнопка Break-line, которая позволяет изобразить линию разрыва. Вот и о ней речь-то и идет.

[Krieger]

Нажми на кнопку и посмотри в командную стороку, какая команда ввелась?
Если это breakline - то это команда из express. Зависит от переменной dimscale. Но введя команду breakline попробуй ввести Size и поменять установленную цифру на большую.

[i_s]

Все получилось, спасибо. Вввод через ком. строку (Size=2) и все.

[asys]

А мой пост №7 мало кто удосужился прочитать, или я слишком умно сказал? :roll:

[Piton]

Я для удобства пользованием пользую такой макрос
^C^C_-layer;m;ПРИМОЧКИ;c;11;;;_breakline;\\;_layerp
Сразу рисует на слое примочке и цветом 11
При желании меняете цвет и слой

[Vova]

Наслаждайтесь

Код:

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

; 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

Один недостаток: надо заранее выставить нужное Ortho.
Не работает при UCS не мировая.
Нечто аналочичное сделано на макросе в книге Язык макрокоманд и создание кнопок (автора именно этот лисп и подвигнул). Надеюсь, этот лисп и ГОСТ не противоречат друг другу