| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Библиотека функций > Функция динамического рисования примитивов Autocad

Функция динамического рисования примитивов Autocad

Ответ
Поиск в этой теме
Непрочитано 27.06.2015, 10:27 #1
Функция динамического рисования примитивов Autocad
roaa
 
ОПС
 
Kazakhstan
Регистрация: 29.03.2012
Сообщений: 128

Искал, искал по форуму, но так и не нашел окончательного варианта функции отрисовки полилинии. Может кому и понадобится.
Хотя это можно применить и для отрисовки других примитивов.
Код:
[Выделить все]
 
(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

Последний раз редактировалось roaa, 27.06.2015 в 14:16.
Просмотров: 20473
 
Непрочитано 27.06.2015, 11:34
#2
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


еще вариант
LISP. Расширенный вариант отрисовки
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 27.06.2015, 11:46
#3
roaa

ОПС
 
Регистрация: 29.03.2012
Kazakhstan
Сообщений: 128


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

----- добавлено через ~2 ч. -----
Немного изменил функцию для более универсального применения.
roaa вне форума  
 
Непрочитано 29.06.2015, 09:32
#4
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от roaa Посмотреть сообщение
но там программа, а здесь только функция для применения
На основании чего сделан такой вывод?
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 29.06.2015, 11:46
#5
roaa

ОПС
 
Регистрация: 29.03.2012
Kazakhstan
Сообщений: 128


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

Последний раз редактировалось roaa, 29.06.2015 в 12:13.
roaa вне форума  
 
Непрочитано 29.06.2015, 13:12
#6
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от roaa Посмотреть сообщение
По Вашей ссылке код ничего не возвращает.
В #1 по ссылке дано описание функции _kpblc-draw c параметрами
В #2 даны примеры (команды) ее использования
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 29.06.2015 в 13:19.
VVA вне форума  
 
Автор темы   Непрочитано 29.06.2015, 13:23
#7
roaa

ОПС
 
Регистрация: 29.03.2012
Kazakhstan
Сообщений: 128


Основная цель кода, выложенного мной не для рисования примитивов, а для использования в своих программах.
roaa вне форума  
 
Непрочитано 03.06.2016, 07:17
#8
trir


 
Регистрация: 18.12.2010
Сообщений: 5,047


Цитата:
а для использования в своих программах.
для этого надо использовать entmake
trir вне форума  
 
Автор темы   Непрочитано 04.06.2016, 07:31
#9
roaa

ОПС
 
Регистрация: 29.03.2012
Kazakhstan
Сообщений: 128


Иногда нужна визуализация
roaa вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Библиотека функций > Функция динамического рисования примитивов Autocad

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Новые команды для работы с полилинией VVA Программирование 647 18.09.2023 11:16
Рисование полилинии по другому объекту с привязкой jagr AutoCAD 37 03.05.2021 17:23
.NET Изобретаем велосипед, или как найти ближайшую вершину полилинии? La Persona .NET 14 05.12.2013 10:56
ищу функцию построения 3d полилинии mankurt Программирование 8 07.02.2012 12:43
LISP. Как найти точку пересечения полилинии и сплайна или другой полилинии? LastGraff LISP 11 09.09.2011 13:23