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

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

Информация о ребре твердотельного объекта

Ответ
Поиск в этой теме
Непрочитано 19.10.2018, 20:09 #1
Информация о ребре твердотельного объекта
Веселин
 
Регистрация: 15.05.2014
Сообщений: 42

Подскажите пожалуйста, существует ли такая возможность. Средствами Autolisp, дотронуться прицелом до ребра твердотельного объекта, и получить начальную и конечную точку выбраного ребра? Начальная точка, та что была ближе к прицелу.

Миниатюры
Нажмите на изображение для увеличения
Название: pic.jpg
Просмотров: 30
Размер:	63.4 Кб
ID:	207254  

Просмотров: 1262
 
Непрочитано 19.10.2018, 20:16
1 | #2
OKJI

AutoLISP
 
Регистрация: 19.06.2018
Харьков
Сообщений: 101
Отправить сообщение для OKJI с помощью Skype™


двг файл скинь с вашим телом, людям легче будет вам помочь...
__________________
Вечность это:
 (while T)
OKJI вне форума  
 
Автор темы   Непрочитано 19.10.2018, 20:37
#3
Веселин


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


Конечная цель поставить отверстие в двух объектах, в вертикальном и в горизонтальном. Отверстия там тоже нарисованы, пока что в виде тела.
Вложения
Тип файла: dwg
DWG 2010
Edge.dwg (92.8 Кб, 6 просмотров)
Веселин вне форума  
 
Непрочитано 19.10.2018, 21:13
1 | #4
Setvar


 
Регистрация: 10.02.2007
Москва
Сообщений: 611


Простейшая программа по мотивам миниатюры в сообщении #1:
Код:
[Выделить все]
;;; Координаты указанного ребра 3D тела
(defun C:KR ( / echo osm ptst enst ln pt1 pt2)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq osm (getvar "OSMODE"))
(setvar "OSMODE" 512)
(setq ptst (getpoint "\nВыберите ребро (Enter-Отказ): "))
(setvar "OSMODE" osm)
(if ptst (setq enst (nentselp ptst)))
(if (and enst (= (cdr (assoc 0 (entget (nth 0 enst)))) "3DSOLID"))
    (progn
    (vl-cmdf "_SOLIDEDIT" "_EDGE" "_COPY" ptst "" "@" "@" """")
    (setq ln (entlast))
    (setq pt1 (cdr (assoc 10 (entget ln))))
    (setq pt2 (cdr (assoc 11 (entget ln))))
    (entdel ln)
    (princ "\nКоординаты начала ребра = ") (princ pt1)
    (princ "\nКоординаты конца ребра = ") (princ pt2)
    ) ; progn
) ; if
(setvar "CMDECHO" echo)
(princ)
)
Setvar вне форума  
 
Автор темы   Непрочитано 19.10.2018, 21:27
#5
Веселин


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


Setvar Очень интересно, спасибо!
Веселин вне форума  
 
Непрочитано 20.10.2018, 07:57
#6
Setvar


 
Регистрация: 10.02.2007
Москва
Сообщений: 611


По поводу примера в сообщении #3. Там достаточно выполнить 2 раза команду "_subtract" ("вычитание"). При чем тут ребро?
Setvar вне форума  
 
Автор темы   Непрочитано 20.10.2018, 09:34
#7
Веселин


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


Цитата:
Сообщение от Setvar Посмотреть сообщение
По поводу примера в сообщении #3. Там достаточно выполнить 2 раза команду "_subtract" ("вычитание"). При чем тут ребро?
Отверстия должны сначала попасть на своё место. Ребро, это один из ориентиров.
Веселин вне форума  
 
Автор темы   Непрочитано 20.10.2018, 13:58
#8
Веселин


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


Теперь пытаюсь понять как найти плоскость соприкосновения двух 3-d тел. Думал использовать простое пересечение, но не тут то было.
Допустим, сначала выбрал ребро, точку запомнил. Потом выбрал (ssget <точка>) оба объекта, которые соприкасаются. Как теперь до плоскости добраться?

----- добавлено через ~7 ч. -----
Извиняюсь, уже нашёл как. Всем спасибо, думаю справлюсь.
Миниатюры
Нажмите на изображение для увеличения
Название: pic.jpg
Просмотров: 14
Размер:	54.8 Кб
ID:	207259  
Веселин вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Информация о ребре твердотельного объекта

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Консервация объектов незавершенного строительства msv_mnv Обследование зданий и сооружений 6 11.11.2017 23:07
Оценка влияния проектируемого объекта на существующую застройку без Plaxis. Какое минимальное расстояние? dik-son Основания и фундаменты 4 15.05.2016 22:35
изгиб твердотельного объекта 111dali AutoCAD 11 31.01.2011 04:50
Получение разрешения на строительство объекта капитального строительства maxummm Прочее. Архитектура и строительство 18 25.08.2010 20:31
Расположение объекта по осям (X, Y, Z) Displey AutoCAD 7 06.01.2010 16:43