[Makartetsky]

Доброго времени суток.
В лиспе для этой цели использую команду hatch:
(command "hatch" "Line" "" "45" "" "Y" "") ; желаемого эффекта не дает

Точку внутри контура для штриховки указываю командой bhatch.
(command "bhatch" pt1 pt2 "" ).

Штрихуется штриховкой по умолчанию. Может у кого-нибудь есть идеи по этому поводу.

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

Так в чем вопрос-то собственно? В том, чтобы создать штриховку?

[Makartetsky]

Да.

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

Зачем ты пытаешься ввести ключ "_y", я не очень понимаю. Разве ты строишь контур штриховки, запрашивая у пользователя его? Вряд ли...
А так, если попробовать использовать командные методы, то можно и таким манером попробовать сделать:

Код:

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

  (command "_hatch" "LINE" "" 45)
  (while (/= (getvar "cmdactive") 0)
    (command pause)
    ) ;_ end of while

[Makartetsky]

Согласен, ключ "у" здесь не нужен. Поставил, чтобы отмахнуться от запроса.
Твой код не помогает. После (command "_hatch" "LINE" "" 45) остается запрос Select objects to define hatch boundary or <direct hatch>.

[Alaspher]

Примерно так:

Код:

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

(vl-cmdf "_.-hatch" "_b" (getpoint) "_p" "ansi32" "40" "15" "")

где:
40 - масштаб
15 - угол поворота

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

Для варианта штриховки по точке, с отловом ошибок (то же самое, что и у Alaspher, "только без крыльев" (с)):

Код:

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

(defun hatch1 (/ pt)
  (if (= (type (setq pt (vl-catch-all-apply
                          '(lambda () (getpoint "\nНа точку пни <Иди ты...> : "))
                          ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'list
         ) ;_ end of =
    (vl-catch-all-apply
      '(lambda ()
         (vl-cmdf "_.hatch" "_b" pt "LINE" 40 15)
         (while (/= (getvar "cmdactive") 0)
           (command "")
           ) ;_ end of while
         ) ;_ end of lambda
      ) ;_ end of vl-catch-all-apply
    ) ;_ end of if
  ) ;_ end of defun

Если надо штриховать по выбору объектов (с установками "по умолчанию"), то можно нечто типа

Код:

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

(defun hatch2 (/ selset)
  (if (not (setq selset (ssget "_I")))
    (setq selset (ssget))
    ) ;_ end of if
  (if selset
    (vl-catch-all-apply
      '(lambda ()
         (vl-cmdf "_.hatch" selset "" "LINE" 40 15)
         (while (/= (getvar "cmdactive") 0)
           (command "")
           ) ;_ end of while
         ) ;_ end of lambda
      ) ;_ end of vl-catch-all-apply
    ) ;_ end of if
  ) ;_ end of defun

использовать...

[Makartetsky]

Спасибо. Помогло.