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

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

Помогите получить координаты блока в LSP

Ответ
Поиск в этой теме
Непрочитано 28.11.2019, 11:11 #1
Помогите получить координаты блока в LSP
PondVP
 
Регистрация: 28.11.2019
Сообщений: 2

По коду DWF 10 они отличаются от координат полученных по AutoCAD-е
(-26755.0 922.5 -35635.0) - X=35635.0000 Y=26754.9819 Z= 922.5000
(-26777.5 922.5 -35635.0) - X=35635.0000 Y=26777.4819 Z= 922.5000
соответственно.
Причем "замешаны" координаты X, Y, Z

Вложения
Тип файла: dwg
DWG 2010
nblock.dwg (703.2 Кб, 11 просмотров)

Просмотров: 1404
 
Непрочитано 28.11.2019, 22:56
#2
skkkk


 
Регистрация: 20.03.2008
Сообщений: 2,653


Координаты точки вставки блока я больше люблю получать с помощью Visual Lisp:
Код:
[Выделить все]
(vlax-safearray->list (vlax-variant-value (vla-get-InsertionPoint (vlax-ename->vla-object (car (entsel))))))
skkkk вне форума  
 
Непрочитано 28.11.2019, 23:04
#3
Кулик Алексей aka kpblc
Moderator

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


Без скачивания: вы нормаль-то проверьте и trans примените. Будет весело.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 29.11.2019, 06:44
#4
Vladimir_Sergeevich

рисую дороги, в перерывах курю Lisp
 
Регистрация: 20.04.2011
Пермь
Сообщений: 475
<phrase 1= Отправить сообщение для Vladimir_Sergeevich с помощью Skype™


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Без скачивания: вы нормаль-то проверьте и trans примените. Будет весело.
Собственно Normal = (-1.0 0.0 0.0)
__________________
Не труд сделал из обезьяны человека, а лень и жажда халявы...
Vladimir_Sergeevich вне форума  
 
Непрочитано 29.11.2019, 08:11
#5
Кулик Алексей aka kpblc
Moderator

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


Что и требовалось доказать
Код:
[Выделить все]
 (setq ent (car (entsel "\nSelect block : ")))
_$ <Entity name: 2dde5ec0> 
(cdr (assoc 10 (entget ent)))
_$ (-26755.0 922.5 -35635.0) 
(trans (cdr (assoc 10 (entget ent))) (cdr (assoc 210 (entget ent))) 0)
_$ (35635.0 26755.0 922.5) 
_$ (setq a (vlax-ename->vla-object ent))
#<VLA-OBJECT IAcadBlockReference 000000002d8f0bc8>
_$ (setq ins (vlax-safearray->list (vlax-variant-value (vla-get-InsertionPoint a))))
(35635.0 26755.0 922.5)
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 29.11.2019, 08:47
#6
PondVP


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


Всем большое спасибо. Эти блоки из REVIT-а. Впервые с таким столкнулся.
PondVP вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Помогите получить координаты блока в LSP

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите вытащить из полилинии все координаты вершин Zaghim Программирование 20 29.08.2021 17:43
Реальные координаты объектов блока kpyjaroshenko .NET 1 26.02.2017 12:12
VBA. Как получить координаты мультивыноски? tuuuzzzik Программирование 5 21.05.2011 00:47
прошу помощи. Коллеги помогите найти информацию для диплома Схема, чертеж опорного блока и верхнего строения морской стационарной платформы, или любо cudarikovn Поиск литературы, чертежей, моделей и прочих материалов 0 04.12.2010 13:50
координаты вершин выбранной полилинии на VB? как получить ssv22 Программирование 5 17.07.2008 00:01