dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как через лисп раскопировать объект по существующим точкам?

Как через лисп раскопировать объект по существующим точкам?

Версия для печати
 
Ответ
Опции темы Поиск в этой теме
Непрочитано 23.03.2018, 15:25 #1
Как через лисп раскопировать объект по существующим точкам?
kurstep
 
Регистрация: 27.01.2012
Сообщений: 210

kurstep вне форума Вставить имя

Здравствуйте, подскажите у кого есть лисп который позволяет раскопировать объект по координатам существующих точек (1 - выбираешь объект, 2- выбираешь точку объекта, 3 - выбираешь точки по которым следует раскопировать объект (POINT) ) - а программа бы раскопировала объект

Миниатюры
Нажмите на изображение для увеличения
Название: 1.JPG
Просмотров: 26
Размер:	21.1 Кб
ID:	200492  

Просмотров: 900
 
Непрочитано 23.03.2018, 15:26
#2
Boxa

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 1,786


На картинке показано равномерное распределение точек, может быть простого/штатного массива будет достаточно?
__________________
_бложиг
Boxa вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 23.03.2018, 15:30
#3
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 35,825


Чем обычная _.copy не устраивает, раз уж все равно вручную указывать точки вставки?
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 23.03.2018, 15:47
#4
kurstep


 
Регистрация: 27.01.2012
Сообщений: 210


точки на самом деле не равномерны..., И я подразумеваю не ручное указывание точек - а выбором сразу многих точек (объектов point) , Вручную я предлагаю указывать одну точку объекта - относительно которого будет копироватся исходный объект
kurstep вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 23.03.2018, 16:24
1 | #5
Setvar

Всего понемногу
 
Регистрация: 10.02.2007
Москва
Сообщений: 588


Простейшая программа с минимумом запросов:
Код:
[Выделить все]
(defun C:ПРОБА ( / echo sspt obj lsspt ssent n)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(princ "\nВыберите точки: ")
(setq sspt (ssget (list (cons 0 "POINT"))))
(setq lsspt (sslength sspt) n 0)
(princ (strcat "\nВыбрано " (itoa lsspt) " точек."))
(setq obj (car (entsel "\nВыберите объект для копирования: ")))
(repeat lsspt
    (setq ssent (ssname sspt n))
    (vl-cmdf "_COPY" obj "" "_none" (cdr (assoc 10 (entget obj))) "_nod" (cdr (assoc 10 (entget ssent))))
    (setq n (+ n 1))
) ; repeat
(setvar "CMDECHO" echo)
(princ)
)
__________________
Установи FILEDIA в 1 и не парься.
Setvar вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 25.03.2018, 01:54
#6
Лентяй

Project Engineer
 
Регистрация: 05.01.2005
Лос Анджелес
Сообщений: 1,129


Когда-то в годы молодые я накропал прогу для расставления групп объектов точкам. Правда, в качестве точки ссылки она использует центр копируемой/вставляемой группы. Пользуйся на здоровье.
Вложения
Тип файла: lsp FBB-2.lsp (2.9 Кб, 13 просмотров)
Лентяй вне форума вставить имя Обратить внимание модератора на это сообщение  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как через лисп раскопировать объект по существующим точкам?

РЕВЕРС. Автоматическая пакетная печать множества рамок (форматов) из пространства модели и листов
Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Цикл печати изображений в файл, через Лисп proektant-minsk LISP 7 26.09.2012 20:30
Через 25 лет стоимость эксплуатации превышает стоимость строительства ? Tyhig Архитектура 41 24.08.2011 11:00
Как вызвать объект через созанную кнопку. Astral AutoCAD 8 03.09.2010 21:29
Эвакуация через автостоянку triruki Архитектура 12 14.07.2008 09:50
Лисп для копирования данных нескольких мтекстов по принципу расположения. Red Nova LISP 14 18.06.2008 22:08

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||