[remlin]

Здравсвуйте! сам я программист Delphi, с лиспом не очень. Помогите написать функцию лисп, которая рисует полилинию заданной толщиной. (Global width).
т.е. рисование должно быть аналогично комманде pline, только сразу должно рисоваться с толщиной, переданной в параметре функции. Спасибо!

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

У LightWeightPolyline есть свойство ConstantWidth. Его и устанавливай

[remlin]

посмотрел пример в хелпе по этому свойству. там сначала создается список точек, а потом создается вся полилиния - это для меня понятно как сделать.
непонятно как мне указывая точки на экране рисовать полилинию уже с нужной толщиной. Я уверен что код для этого не более 10 строк, но для меня это не тривиальная задача, поэтому прошу привести образец функции.

[gomer]

переменная PLINEWID не поможет?

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

gomer, так ее потом восстанавливать обратно надо будет... ИМХО геморрой лишний.

[gomer]

рисование програмноручками сам по себе геморрой...

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

Ну, в общем, у автора топика варианты уже есть

[remlin]

Ну вариантов пока не много )).
Подскажите, что в этом коде не правильно:

Код:

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

 (defun c:DrawPline ( )
  (setvar 'plinewid 3.0)
  (command "_pline")
  (setvar 'plinewid 1.0)
)

Вроде бы по моему мнению должно перед началом рисования толщина устанавливаться на 3.0, а после рисования на 1.0.
Но в данном случае толщина сразу сбрасывается на 1.0. Где-то что-то пошло не так?

[gomer]

Сообщение от remlin Подскажите, что в этом коде не правильно:

А где цикл указания точек?

[remlin]

а куда его вставить и как он должен выглядеть?

[gomer]

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

[ShaggyDoc]

Если рисовать LWPOLYLINE командным методом, то физическую ширину можно указать опцией после задания первой точки:

Код:

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

 (vl-cmdf "_.PLINE"       first_point     "_Width"   pline_width     pline_width     next_point ... .... "")

Здесь точки в текущей ПСК, ширина полилинии с учетом масштаба, т.е. явно не 1.0, а например 500.0

Если делать через VLA, то наподобие:

Код:

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

 (defun ru-pline-add (points is_closed width lineweight ltype / obj)
                    ;|
Пример:
(ru-pline-add (list (list 0 0) (list 10000 1000) (list 10000 20000) (list 0 20000)) nil  0 50 "HIDDEN")

|;
  (ru-error-catch
    (function
      (lambda ()
        (setq
          obj (vla-addlightweightpolyline ;; создать полилинию
                (ru-obj-active-space)
                (ru-conv-list-points-to-variant-array
                  (apply
                    'append
                    (mapcar 'ru-conv-3dpoint-to-2dpoint
                            points
                    ) ;_ end of mapcar
                  ) ;_ end of apply
                ) ;_ end of ru-conv-list-points-to-variant-array
              ) ;_ end of vla-addlightweightpolyline
        ) ;_ end of setq
        (cond
          ((and
             (vlax-read-enabled-p obj)
             (vlax-write-enabled-p obj)
           ) ;_ end of and
           (if is_closed
             (vla-put-closed obj :vlax-true)
           ) ;_ end of if
           (if width
             vla-put-constantwidth obj width) ;; установить ширину
           ) ;_ end of if
           (ru-lw-set-for-obj obj lineweight)
           (if Ltype
             (ru-ltype-apply obj Ltype)
           ) ;_ end of if
           (vla-update obj)
           obj
          )
        ) ;_ end of cond
      ) ;_ end of lambda
    ) ;_ end of function
    (function (lambda (x)
                (princ (strcat "\nОШИБКА RU-PLINE-ADD " x))
                nil
              ) ;_ end of lambda
    ) ;_ end of function
  ) ;_ end of ru-error-catch                
) ;_ end of defun

Здесь точки передаются списком, могут быть заданы is_closed (замкнутость), width (физическая ширина), lineweight (вес) и ltype. Да еще и ловушка ошибок предусмотрена.

Ну и можно через entmake, но более муторно.

[remlin]

мне наверное больше подходит это:

Код:

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

 	(vl-cmdf "_.PLINE"       first_point     "_Width"   pline_width     pline_width     next_point ... .... "")

но после выполнения данной процедуры, переменной 'plinewid присваиваеться новое значение. Как мне вернуть это значение обратно, какое оно было до выполнения данной процедуры?

[Vladimir_Sergeevich]

Сообщение от remlin наверное больше подходит это

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

[remlin]

Если использовать функцию ru-pline-add, то для построения полилинии надо знать заранее координаты её вершин, чтобы передать их в функцию.
При использовании ru-pline-add сначало, как я понимаю, нужно набрать точки, передать их в функцию, а уж потом построится полилиния.
Но в моем случае мне нужен аналог комманды _.pline, когда полилиния "тянется" за курсором, и точки набираются последовательно.
Как можно использовать эту функцию для моего случая?

[ShaggyDoc]

Как можно использовать эту функцию для моего случая?

Для таких интерактивных случаев надо делать совершенно иначе. Надо использовать (vl-cmdf "_.PLINE"). Если необходимы какие-то действия, отсутствующие в штатной команде, то функцию vl-cmdf надо применять несколько раз, не завершая.. После каждого неполного применения делать что надо, потом снова вызывать vl-cmdf, передавая ей следующие ожидаемые аргументы. И в самом конце завершить.

[ciril]

Код:

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

 (defun c:emupline  (/ x00 x01 x02)
  (setq x01 (entget
              (entmakex
                (append '((0 . "LWPOLYLINE") (100 . "AcDbEntity") (100 . "AcDbPolyline") (90 . 2) (370 . 30))
                        (mapcar (function (lambda (e00) (list 10 (car e00) (cadr e00))))
                                (list (progn (initget 1) (setq x00 (getpoint "\nУкажите начальную точку полилинии...")))
                                      (progn (initget 1) (setq x00 (getpoint "\nУкажите следующую точку полилинии... " x00))))))))
        x02 1)
  (while (and (progn (initget "Завершить")
                     (setq x00 (getpoint "\nУкажите следующую точку полилинии или <Завершить>... " x00)))
              (not (eq "Завершить" x00)))
    (entmod (setq x01 (append (subst (cons 90 (+ 2 x02)) (cons 90 (setq x02 (1+ x02))) x01)
                              (list (list 10 (car x00) (cadr x00)))))))
  (princ))

[remlin]

Спасибо ciril. Не знаю как - но это работает, так как мне и было нужно!

[ciril]

Не за что. Оно примитивно работает: строится полилиния заданного веса по двум указанным точкам, извлекается список с ее характеристиками, в цикле пока указываются точки этот список дополняется и по нему модифицируется полилиния.

[Tesan]

Доброго дня, возможно ли чтобы линия чертилась не с заданным весом, как у вас а именно шириной ?
Нашел такой макрос для вычерчивания полилинии с заданной шириной: ^C^C(setq pwid (getvar "plinewid");plinewid;<требуемая ширина>;_pline;(while (> (getvar "cmdactive") 0) (команда пауза)(setvar "plinewid" pwid) но почему то не работает