Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Инженерный раздел > CAD проектирование
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 12.05.2018, 23:00   #1
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Адрес: Русская Сортировка Половинами
Сообщений: 270
Репутация: -5
По умолчанию используемые иногда мной LISP и МЫ

используемые иногда мной LISP и МЫ

в данной теме и ещё на 5-ти форумах
размещу как есть только тексты:

используемые иногда мной LISP и МЫ

entlen.lsp = длины
gakson.lsp = аксонометрия

zam.lsp = массовая замена текстов
tfind2fun.lsp = массовая замена текстов

acad table to excel.lsp = таблицы линиями в excel

bcount = из экспресс: подсчёт блоков

https://www.youtube.com/watch?v=OEaTYjJBNcE

по теме плэйлист 10 ютюб:
https://www.youtube.com/watch?v=rN0q...-9lHhK&index=6

Последний раз редактировалось сфинкс; 12.05.2018 в 23:05.
сфинкс вне форума   Ответить с цитированием
Старый 12.05.2018, 23:09   #2
Alex11223
Модератор
Заслуженный модератор
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 18,735
Репутация: 3673

icq: 512-765
skype: alexp.frl
По умолчанию

Цитата:
Сообщение от сфинкс Посмотреть сообщение
в данной теме и ещё на 5-ти форумах
Точно на 5?
На 1 же уже забанили за этот неотформатированный поток наркомании.
Alex11223 на форуме   Ответить с цитированием
Старый 12.05.2018, 23:16   #3
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Адрес: Русская Сортировка Половинами
Сообщений: 270
Репутация: -5
По умолчанию

там тема существует и народ и без меня учится
соответственно индексирует интернет поиск

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

entlen.lsp = длины

использую для подсчёта длин
особенно обосабливая по слоям
и реально подсчитывать раздельно разные диаметры

а также применяется в подсчёте всех площадей помещений
ориентируясь на периметр помещения и высоту стен

entlen.lsp = длины

Код:
;======================================================================
;entLen_moss.lsp — Подсчёт суммы длин выбранных примитивов
;Моя корректировка программы entLen взятой по URL'у:
;http://www.autocad.ru/cgi-bin/f1/board.cgi?t=21732rf
;======================================================================
 
(vl-load-com)
(defun C:ENTLEN (/
                  NABOR                ;Набор примитивов
                  i                    ;Счётчик
                  ENT_i                ;i-й примитив из набора NABOR
                  LEN_all              ;Суммарная длина примитивов
                  LEN_i                ;Длина i-го примитива
                )
 
 
  (princ "\nПодсчёт суммы длин выбранных примитивов. ")
  (princ "\nВыберите примитивы: ")
 
  ;--------------------------------------------------------------------
  ;Выбор примитивов [выбираем нужные, отфильтровываем ненужные]
  ;--------------------------------------------------------------------
  (setq NABOR (ssget
                '((-4 . "<OR")
                    (0 . "*LINE")
                    (0 . "CIRCLE")
                    (0 . "ARC")
                    (0 . "ELLIPSE")
                  (-4 . "OR>")
                 )
              );end ssget
  );end setq
 
 
  ;--------------------------------------------------------------------
  ;Сообщение о количестве выбранных примитивов
  ;--------------------------------------------------------------------
  (princ (strcat "\nВсего выбрано примитивов: " (itoa (sslength NABOR))))
  (princ "\n-------------------------")
 
  ;--------------------------------------------------------------------
  ;Установка начальных значений
  ;--------------------------------------------------------------------
  (setq i 0)
  (setq LEN_all 0.0)
 
 
  ;--------------------------------------------------------------------
  ;Цикл по набору NABOR
  ;--------------------------------------------------------------------
  (while (< i (sslength NABOR))
 
    ;..................................................................
    ;Определяем Имя i-го примитива из набора NABOR
    ;..................................................................
    (setq ENT_i (ssname NABOR i))
 
    ;..................................................................
    ;Определяем Длиу i-го примитива из набора NABOR
    ;..................................................................
    (setq LEN_i  (vlax-curve-getDistAtParam
                    (vlax-ename->vla-object ENT_i)
                    (vlax-curve-getEndParam ENT_i)
                 );end vlax-curve-getDistAtParam
    );end setq
 
    (princ (strcat "\n"(itoa (1+ i)) "-й примитив = " (rtos LEN_i) "м"))
 
    ;;;Отладка
    ;;;(redraw ENT_i 3)
    ;;;(read-line)
 
    ;..................................................................
    ;Наращиваем суммарную длину всех выбранных примитивов
    ;..................................................................
    (setq LEN_all  (+ LEN_all  LEN_i))
 
    (setq i (1+ i))
  );end while
 
  (princ "\n-------------------------")
  (princ (strcat
           "\nОбщая длина " (itoa (sslength NABOR)) " выбранных примитивов = "
           (rtos LEN_all)
           "м"
         );end  strcat
  );end princ
 
  (prin1)
);end defun C:ENTLEN
;**********************************************************************
сфинкс вне форума   Ответить с цитированием
Старый 08.06.2018, 18:04   #4
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Адрес: Русская Сортировка Половинами
Сообщений: 270
Репутация: -5
По умолчанию

новое слово: живые картинки
малого размера и только ключевые кадры


bcount
подсчёт блоков


miniblock
мини блоки и говорящие названия


gakson
аксонометрия

живые картинки малого размера
т.к. мои исходные экранки
у меня без сжатия и без искажений
сфинкс вне форума   Ответить с цитированием
Старый 09.06.2018, 11:24   #5
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Адрес: Русская Сортировка Половинами
Сообщений: 270
Репутация: -5
По умолчанию

вновь живые картинки
малого размера и ключевые кадры


слои вносятся с вставляемого чертежа


entlen
подсчёт длин элементов

и только у кого исходные экранки
без сжатия те могут создавать живые картинки
малого размера по 100 кб ... 360 кб
сфинкс вне форума   Ответить с цитированием
Старый 23.06.2018, 22:36   #6
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Адрес: Русская Сортировка Половинами
Сообщений: 270
Репутация: -5
По умолчанию

OTMETКА БЛОК NanoCAD AutoCAD GstarCAD ZwCAD Danilin 2016
https://www.youtube.com/watch?v=OEhVusldcA8

ПРОФИЛЬ ОТМЕТКИ NanoCAD AutoCAD GstarCAD ZwCAD Danilin 2017
https://www.youtube.com/watch?v=AVErmUboHCw
сфинкс вне форума   Ответить с цитированием
Старый 19.06.2019, 14:31   #7
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Адрес: Русская Сортировка Половинами
Сообщений: 270
Репутация: -5
По умолчанию

накануне в другой теме мной

создана экспорт ориентированная импорт замещающая
система VyshivCAD ВышивКАД
совместимая с АвтоКАД AutoCAD NanoCAD ZWCAD GStarCAD

составляющая узоры из блоков клеток
цепляя клетки за углы и приставляя к углам других клеток
причём цвета управляются через слои

и реально создать клетки любых цветов
и из клеток формируется узор как в VyshivCAD.pdf

причём перекрашивая слой
меняются все клетки слоя
и вдобавок сетка включается и вЫключается
да и всё управляемо

экспорториентированная импортзамещающая
система VyshivCAD ВышивКАД
Изображения
  
Вложения
Тип файла: rar VyshivCAD-DWG.rar (8.6 Кб, 9 просмотров)
Тип файла: pdf VyshivCAD.pdf (17.5 Кб, 8 просмотров)
Тип файла: rar VyshivCAD-AVI-750.rar (552.5 Кб, 9 просмотров)
__________________
учим C# зная basic & excel
сфинкс вне форума   Ответить с цитированием
Старый 22.06.2019, 05:31   #8
Nif-naf
Пользователь
 
Аватар для Nif-naf
 
Регистрация: 05.09.2016
Сообщений: 49
Репутация: 0
По умолчанию

Р°.Ecmb B KoMnace lisp?
__________________
Немного о GoAsm.
Nif-naf вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pattern'ы, используемые классом Regex Mixim Общие вопросы .NET 2 01.11.2012 13:48
Рассчитать общие затраты на используемые материалы. Катя369919407 Паскаль 7 30.01.2012 22:04
Сколько байт занимают переменные, используемые в программе Эндрю Помощь студентам 2 10.05.2011 13:36


21:25.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru