[paradoxvaha]

Всем привет. Возник небольшой вопрос: можно ли как то нарисовать полилинию (_pline) по имеющимся координатам точек в списке lisp? Т.е. список состоит из точечных пар, и надо по этим точкам отрисовать полилинию. Если нет идей, то подскажите пожалуйста где об этом почитать можно.

[koMon]

Сообщение от ===AAA=== Правда, что ли?

это из серии обс. в последних версиях на протяжении лет 5+ (vl-load-com) ваще загружать не нужно для выполнения vl* функций, коды с их использованием грузятся и исполняются на 123. другое дело реакторы (в хелпере так и прописаны реакторы вначале, а потом туман про некоторые другие функции), но ведь для отрисовки плиниии они и не нужны...

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

МишаИнженер, rArc - это у тебя что? Радиус? Так этого мало для определения корректной кривизны.

Сообщение от ===AAA=== Правда, что ли? И насколько оно критично?

Нет конечно.

[===AAA===]

Вот и я не замечал ни разу. :-)

[ShaggyDoc]

Ну, вот вариант построения полилинии с помощью entmake. Без ненужных setq, c заданием ширины, "веса" и "трехмерности".

Код:

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

 (defun ru-pline-entmake (points is_closed is_3d width lineweight / elst ENTL)
;;; (ru-pline-entmake (список_вершин) флаг_замкнутости
;;; флаг_делать_3М_ПЛИНИЮ)
;;; возвращает имя примитива - полилинии или NIL, если что-то не
;;; вышло.

;;;(ru-pline-entmake (list (list 0 0) (list 1000 100) (list 1000 2000) (list 0 2000)) nil nil  0 50)

  (if is_3d
    (progn
      (setq entl
             (list
               '(0 . "POLYLINE")
               '(100 . "AcDbEntity")
               '(100 . "AcDb3dPolyline")
               '(66 . 1)
               '(10 0.0 0.0 0.0)
               (cons 70
                     (logior 8
                             (if is_closed
                               1
                               0
                             ) ;_ end of if
                             (if (= 1 (getvar "PLINEGEN"))
                               128
                               0
                             ) ;_ end of if
                     ) ;_ end of logior
               ) ;_ end of cons
             ) ;_ end of list
      ) ;_ end of setq
      (if (entmake entl)
        (progn
          (foreach v points
              (setq entl
                     (list
                       '(0 . "VERTEX")
                       '(100 . "AcDbEntity")
                       '(100 . "AcDbVertex")
                       '(100 . "AcDb3dPolylineVertex")
                       (append '(10) v)
                       '(70 . 32)
                     ) ;_ end of list
              ) ;_ end of setq
              (entmake entl)
          ) ;_ end of foreach
          (if (entmake '((0 . "SEQEND") (100 . "AcDbEntity")))
            (entupd (entlast))
            nil
          ) ;_ end of if
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of progn
    (progn
      (setq elst (append
                   (list
                     '(0 . "LWPOLYLINE")
                     '(100 . "AcDbEntity")
                     '(100 . "AcDbPolyline")
                                        ;(cons 8 (getvar "CLAYER"))
                     (cons 90 (length points))
                     (cons 43 width)
                     (cons 370 lineweight)
                     (cons 70
                           (logior (if is_closed
                                     1
                                     0
                                   ) ;_ end of if
                                   (if (= 1 (getvar "PLINEGEN"))
                                     128
                                     0
                                   ) ;_ end of if
                           ) ;_ end of logand
                     )                  ; _ end of cons;;;
                   ) ;_ end of list
                   (mapcar (function (lambda (p)
                                       (list 10 (car p) (cadr p))
                                     ) ;_ end of lambda
                           ) ;_ end of function
                           points
                   ) ;_ end of mapcar
                 ) ;_ end of append
      ) ;_ end of setq
      (if (entmake elst)
        (entupd (entlast))
        nil
      ) ;_ end of if
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun

[МишаИнженер]

Сообщение от ===AAA=== Правда, что ли? И насколько оно критично?

Темп черчения замедляется примерно в 10 раз

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

Значит отключай приложения по одному - найдешь основной тормоз. А потом код приложения на форум - может, и разберем.

[ShaggyDoc]

Сообщение от МишаИнженер Темп черчения замедляется примерно в 10 раз

Это детские суеверия.
А замедляют работы многочисленные последовательные вызовы функции setq.
Это ведь не "оператор присваивания", а именно функция, которую и загрузить надо, и проанализировать пары аргументов на корректность.

[МишаИнженер]

Чтобы увидеть эффект торможения поставьте время автосохранения 5м и откройте одновременно 5 разных файлов. Запустите любой инструмент в котором есть строка (vl-load-com) (При этом, я так подозреваю в память Автокада кроме нужных функций загрузится всякий, неоптимизированный и неотлаженный мусор, который выгрузить уже нельзя) Через 5 минут АвтоКад начнет дико тормозить, потому что при каждом сохранении файла Автокад выполняет перекомпиляцию всех загруженных проектов и инструментов. Так было при использовании загруженных файлов *.dvb. Стоит загрузить хоть один файл *.dvb и время сохранения файлов увеличивается примерно раз в 10.
Поэтому у меня появилось правило: если появляется необходимость добавлять строку кода (vl-load-com) дальше программировать практически нет смысла. Приложение получится очень тормозным и "неэффективным" в некотором смысле. Только в особых случаях можно дальше писать код: когда других способов решить проблему не находится.

[ShaggyDoc]

Сообщение от МишаИнженер Так было при использовании загруженных файлов *.dvb. Стоит загрузить хоть один файл *.dvb и время сохранения файлов увеличивается примерно раз в 10. Поэтому у меня появилось правило: если появляется необходимость добавлять строку кода (vl-load-com)

Глупости. При чем тут dvb и сохранение файлов?

[Сергей812]

Сообщение от ShaggyDoc Глупости. При чем тут dvb и сохранение файлов?

отсюда, наверно)

[ShaggyDoc]

Сообщение от Сергей812 отсюда, наверно)

Ну и зачем же использовать уродца VBA? Надо чего-то "эдакое" - есть .NET, ObjectARX.
Так и они не нужны для "мишиных задач".