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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Получить координаты SPDSWALL (autolisp) SPDS 8.1.1336

Получить координаты SPDSWALL (autolisp) SPDS 8.1.1336

Ответ
Поиск в этой теме
Непрочитано 15.12.2016, 10:16 #1
Получить координаты SPDSWALL (autolisp) SPDS 8.1.1336
Mozgunov
 
Начинающий проектировщик
 
Санкт-Петербург
Регистрация: 07.02.2008
Сообщений: 443

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

Вложения
Тип файла: dwg
DWG 2007
spdswall.dwg (102.1 Кб, 19 просмотров)


Последний раз редактировалось Mozgunov, 15.12.2016 в 10:46.
Просмотров: 3465
 
Непрочитано 15.12.2016, 10:32
#2
Кулик Алексей aka kpblc
Moderator

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


Ищи объектную модель СПДС, подгружай соответствующие ObjectEnabler'ы, и смотри свойства объектов. Для разных версий могут быть разные наборы свойств.
P.S. В заголовке рекомендую указать версию и полное название СПДС GraphiCS, а также язык программирования
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 15.12.2016, 10:48
#3
Mozgunov

Начинающий проектировщик
 
Регистрация: 07.02.2008
Санкт-Петербург
Сообщений: 443
<phrase 1=


Кулик Алексей aka kpblc, Можете примеры ObjectEnabler'ов подсказать? Объектную модель искал. Что-то не находится..
P.S. Мне модифицировать не нужно будет объект. Только вытащить координаты начала и конца стены и все. Ну где-то же они должны быть...

Последний раз редактировалось Mozgunov, 15.12.2016 в 16:42.
Mozgunov вне форума  
 
Непрочитано 16.12.2016, 16:10
#4
Кулик Алексей aka kpblc
Moderator

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


ObjectEnabler идет в составе СПДС GraphiCS. А СОМ-модель, например, была выложена здесь: https://dwg.ru/dnl/8746
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 19.12.2016, 08:39
#5
Mozgunov

Начинающий проектировщик
 
Регистрация: 07.02.2008
Санкт-Петербург
Сообщений: 443
<phrase 1=


Кулик Алексей aka kpblc, Спасибо! Там не оказалось вообще описания объекта "wall" ( В dxf обязательно же где-то должны быть эти координаты? В этих точках еще ручки стоят. Может на них везде определенная группа стоит? Про Enabler так и не понял. Это вроде просмоторщик, на случай если СПДС не стоит...
Mozgunov вне форума  
 
Непрочитано 19.12.2016, 13:49
#6
Кулик Алексей aka kpblc
Moderator

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


Ну так сними дамп (и для ename-, и для vla-представления) и посмотри - что и где хранится.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 19.12.2016, 14:22
#7
Mozgunov

Начинающий проектировщик
 
Регистрация: 07.02.2008
Санкт-Петербург
Сообщений: 443
<phrase 1=


Снял:
Код:
[Выделить все]
Command: (vlax-dump-object (vlax-ename->vla-object (car(entsel))))

Select object: ; IAcadEntity: AutoCAD Entity Interface
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 000000013f88d910>
;   Document (RO) = #<VLA-OBJECT IAcadDocument 00000000297ef0c8>
;   EntityTransparency = "ByLayer"
;   Handle (RO) = "224A"
;   HasExtensionDictionary (RO) = 0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 00000000711bdb78>
;   Layer = "СТЕНА"
;   Linetype = "ByLayer"
;   LinetypeScale = 100.0
;   Lineweight = -1
;   Material = "ByLayer"
;   ObjectID (RO) = 291
;   ObjectID32 (RO) = 291
;   ObjectName (RO) = "PtDbWall"
;   OwnerID (RO) = 292
;   OwnerID32 (RO) = 292
;   PlotStyleName = "ByLayer"
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 0000000057821d80>
;   Visible = -1
T
Код:
[Выделить все]
Command: (entget(car(entsel)))

Select object: ((-1 . <Entity name: 7fffed0af20>) (0 . "SPDSWALL") (330 . <Entity name: 7ffffb039f0>) (5 . "224A") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "СТЕНА") (48 . 100.0) (100 . "SPDSWALL") (100 . "SPDSWALL") (90 . 1) (301 . "Info") (300 . "Стена") (301 . "Scale") (40 . 100.0) (301 . "DimScale") (40 . 1.0) (301 . "ZOrder") (40 . 10.0) (301 . "Template") (301 . "Type") (300 . "Стена") (301 . "FloorDesc") (300 . "") (301 . "Segment") (300 . "Отрезок") (301 . "Width") (40 . 200.0) (301 . "Height") (40 . 3000.0) (301 . "Length") (40 . 6540.0) (301 . "Justify") (300 . "Центр") (301 . "Representation") (300 . "Полное"))
Координат что-то не видать(
Я вот еще не знаю как быть если в списке две 360 группы например. Я могу assoc получить только первую. А остальные не могу посмотреть.
Mozgunov вне форума  
 
Непрочитано 19.12.2016, 16:48
#8
Кулик Алексей aka kpblc
Moderator

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


(mapcar 'cdr (vl-remove-if-not '(lambda(x)(=(car x) 360)) (entget (car(entsel)))))
P.S. По ходу дела попробуй (entget (car (entsel)) '("*"))
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Получить координаты SPDSWALL (autolisp) SPDS 8.1.1336

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как выгрузить горизонтальные проложения и координаты из AC? alenalegovna AutoCAD 2 20.11.2013 10:01
Lisp. Получить координаты точек 3D тела. Golem-iq LISP 9 06.09.2013 13:38
Быстро получить Набор объектов попадающих в Сферу [N.S] Программирование 10 09.08.2009 11:04
Как получить координаты точек отображенных на четеже в виде таблици?? nix-- AutoCAD 10 22.05.2009 13:41
Координаты области выделения Тим Боль Программирование 6 04.11.2007 16:52