[dm_kondakov]

Нужно создать штриховку под углом напр. 13.78 , 12.567...и т.д. Я узмеряю угол на чертеже и вбиваю его в окне Hatch, но это долго и утомительно Вопрос: Как задать (указать) этот угол штриховки графически? Например вдоль какой то линии? :?:

[ASLYS]

выделить штриховку и посмотреть в свойствах ее угол наклона, там же можно его поменять

[dm_kondakov]

Я так и делаю, но тогда нужно точно знать какой угол задавать. А для этого его сначала нужно изиерить, а я хочу узнать как его можно указать на чертеже вдоль линии. Без вычисления угла, а просто указать линию вдоль которой должна идти штриховка. :!:

[ASLYS]

никаких измерений
1. выделил линию, посмотрел в свойствах её угол
2. выделил штриховку, поменял в свойствах её угол (с учетом 45º)

[dm_kondakov]

Вот Спасибо тебе, я забыл что в свойствах линии тоже угол прописан. [sm127]

[Profan]

Корявый шаблон для программы:

Код:

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

(defun C:ANGHATCH ( / echo ent)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 1)
(setq ent (car (entsel "\n Выберите опорный наклонный отрезок: ")))
(command "_UCS" "_ob" ent)
(command "_-BHATCH" "_p" "ANGLE" "100" "0" pause "")
(command "_UCS" "_w")
(setvar "CMDECHO" echo)
(princ)
)

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

Еще один вариант, тоже достаточно кривой (в частности, работает только в мировой системе координат; оба примитива должны лежать в этой системе):

Код:

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

(defun c:hatchang (/ ent hatch)
  (vl-load-com)
  (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
  (if
    (and (not (vl-catch-all-error-p
                (vl-catch-all-apply
                  '(lambda ()
                     (setq
                       ent (vlax-ename->vla-object
                             (car (entsel "\nВыберите опорный отрезок <Отмена> : "))
                             ) ;_ end of vlax-ename->vla-object
                       ) ;_ end of setq
                     ) ;_ end of lambda
                  ) ;_ end of vl-catch-all-apply
                ) ;_ end of vl-catch-all-error-p
              ) ;_ end of not
         (vlax-property-available-p ent 'angle)
         (not (vl-catch-all-error-p
                (vl-catch-all-apply
                  '(lambda ()
                     (setq hatch
                            (vlax-ename->vla-object
                              (car
                                (entsel "\nУкажите изменяемую штриховку <Отмена> : ")
                                ) ;_ end of car
                              ) ;_ end of vlax-ename->vla-object
                           ) ;_ end of setq
                     ) ;_ end of lambda
                  ) ;_ end of vl-catch-all-apply
                ) ;_ end of vl-catch-all-error-p
              ) ;_ end of not
         (= (vla-get-objectname hatch) "AcDbHatch")
         ) ;_ end of and
     (vla-put-patternangle hatch (vla-get-angle ent))
     ) ;_ end of if
  (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
  (princ)
  ) ;_ end of defun

[Krieger]

Сообщение от dm_kondakov Я так и делаю, но тогда нужно точно знать какой угол задавать. А для этого его сначала нужно изиерить, а я хочу узнать как его можно указать на чертеже вдоль линии. Без вычисления угла, а просто указать линию вдоль которой должна идти штриховка. :!:

Чертим штриховку, выделяем её, идем в панель свойств, ставим курсор в окошке Angle (появится значок калькулятора), тыкаем по калькулятору, жмем по кнопке Angle of line defined by two points, указываем на экране две точки (тобишь угол), в калькуляторе жмем apply. Штриховка развернется по указанным точкам.
[ATTACH]1177306137.jpg[/ATTACH]
P.s. По моему с 2006-го када появилась такая возможность.