[dextron3]

Хотел поинтересоваться есть ли лисп, который будет рисовать стрелочку на приметиве линия и второй точкой указывалось направление стрелочки, или чтонибудь похожее, когдато помню встречал но немогу найти где

[Лиспер]

Блок палитра настройка
в последовательности такой поступай ты и да пребудет знаний сила с тобою

[dextron3]

палитрой не пользуюсь тормозит компьютер

[TararykovDG]

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

[dextron3]

TararykovDG,

Алгоритм
1. Введите высоту стрелочки (высота это малый катет у прямоугольного треугольника умноженный на 2, с углами 30 60 90, из таких двух состоит стрелочка)
2. Укажите точку на линии
3. Укажите направление

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

Вообще-то комп будет тормозить при работе с палитрами инструментов, если видеокарта слабенькая, а палитра использует прозрачность. Сделай ее автоскрываемой и помести на нее соответствующий инструмент. Будет счастие и благолепие.

[Jonas]

На трубопроводах как правило стрелочки указываются по всей длине с каким то шагом. Может лучше создать линию со стрелками?

[TararykovDG]

dextron3, пробуй

Код:

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

; Вызов: arrow
(defun c:arrow( / height_def)
  (setq height_def 10)
  ((lambda(ins_pnt)
     (if (not (vl-catch-all-error-p ins_pnt))
       ((lambda(height)
          (if (not (vl-catch-all-error-p height))
            ((lambda(h direct_pnt)
               (if (not (vl-catch-all-error-p direct_pnt))
                 (progn
                   (entmake (list '(0 . "LWPOLYLINE")
                                  '(100 . "AcDbEntity")
                                  '(67 . 0)
                                  '(410 . "Model")
                                  '(8 . "0")
                                  '(100 . "AcDbPolyline")
                                  '(90 . 3)
                                  '(70 . 1)
                                  (cons 10 (polar ins_pnt (+ (angle ins_pnt direct_pnt) (* 0.5 pi)) (* 0.5 h)))
                                  (cons 10 (polar ins_pnt (angle ins_pnt direct_pnt) (* (* 0.5 h) (/ (sin (/ pi 3.0)) (cos (/ pi 3.0))))))
                                  (cons 10 (polar ins_pnt (- (angle ins_pnt direct_pnt) (* 0.5 pi)) (* 0.5 h)))
                                  )
                            )
                   (vl-cmdf "_.-hatch" "_P" "_Solid" "_S" (entlast) "" "")
                   )
                 )
               )
              (if (not height)
                height_def
                height
                )
              (progn
                (initget 1)
                (vl-catch-all-apply 'getpoint
                                    (list ins_pnt "\nУкажите напрвление: ")
                                    )
                )
              )
            )
          )
         (vl-catch-all-apply 'getdist
                             (list ins_pnt (strcat "\nЗадайте высоту стрелки <" (itoa height_def) ">: "))
                             )
         )
       )
     )
    (progn
      (initget 1)
      (vl-catch-all-apply 'getpoint
                          (list "\nУкажите точку вставки: ")
                          )
      )
    )
  (princ)
  ); end arrow

[dextron3]

Ионас, все трубы обводить не рельно
TararykovDG, спасибо буду щас тестировать


Вопросы почему не повторяет высоту последнюю которую вводил?