[roaa]

Искал, искал по форуму, но так и не нашел окончательного варианта функции отрисовки полилинии. Может кому и понадобится.
Хотя это можно применить и для отрисовки других примитивов.

Код:

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

 
(defun _sensor_draw_active (cmdlst) 
;;; функция рисования примитива Autocad
;;; cmdlst - список выполняемых действий для одной команды
;;; Например: вызов рисования полилинии (_sensor_draw_active '("_.pline"))
;;;                           отрезок (_sensor_draw_active '("_line" PAUSE PAUSE ""))
;;; Возвращает entety name примитива, если создана, иначе nil
  (setq pl (entlast))
  (vl-catch-all-apply 
    (function
      (lambda ()
        (eval (cons 'vl-cmdf cmdlst))
        (while (> (getvar "CMDACTIVE") 0)(command pause))
      ) ;_ end lambda
    ) ;_ end function 
  ) ;_ end vl-catch-all-apply 
  (if (not (eq (entlast) pl))(entlast))
) ;_ end defun

[VVA]

еще вариант
LISP. Расширенный вариант отрисовки

[roaa]

Сообщение от VVA еще вариант

Да...этого кода я не видел...но там программа, а здесь только функция для применения...
Да и букв поменьше.

----- добавлено через ~2 ч. -----
Немного изменил функцию для более универсального применения.

[VVA]

Сообщение от roaa но там программа, а здесь только функция для применения

На основании чего сделан такой вывод?

[roaa]

Функция (программирование) — вид подпрограммы в информатике.
Компью́терная програ́мма — последовательность инструкций, определяющих процедуру решения конкретной задачи компьютером.
Это из Википедии.
На мой взгляд, функция это и есть инструкция, составная часть конкретной задачи.
Ну и с VBA... Функция - это встроенная формула, выполняющая действия над выражениями и генерирующая какое-то значение, которое VBA вставляет в программу в том месте, где появляется имя этой функции.
По Вашей ссылке код ничего не возвращает.

[VVA]

Сообщение от roaa По Вашей ссылке код ничего не возвращает.

В #1 по ссылке дано описание функции _kpblc-draw c параметрами
В #2 даны примеры (команды) ее использования

[roaa]

Основная цель кода, выложенного мной не для рисования примитивов, а для использования в своих программах.

[trir]

а для использования в своих программах.

для этого надо использовать entmake

[roaa]

Иногда нужна визуализация