Как программно получить свойства прокси объекта

zvyagaaa · 19.11.2014, 12:20

Есть в файле прокси объекты стороннего приложения. В автокадовском окне "свойства" нужные мне свойства отображаются. Подскажите, как можно программно их получать? Желательно на VBA. Куда копать?

Кулик Алексей aka kpblc · 19.11.2014, 12:34

Получаешь указатель на объект, а потом obj.Layer, obj.Color и теде.

zvyagaaa · 19.11.2014, 13:23

я не пойму, как в коде показать, что нужно выбирать только proxy объекты. Вот для линий пожалуйста -
If sset.Item(ItemI).ObjectName = "AcDbLine" Then

а какое имя объекта у прокси объекта?

И еще, как бы получить имена этих свойств полностью? Вот я приложил скрин окна свойств. Они же не документированы.

Кулик Алексей aka kpblc · 19.11.2014, 13:35

Насколько я помню (сейчас нет ни одного файла с прокси) - "ACAD_PROXY_ENTITY" или "AcDbZombieEntity". Выбери прокси да посмотри его Name, в чем трудность-то?

zvyagaaa · 19.11.2014, 14:48

это все понятно, мне не ясно, как можно отобразить все свойства у объекта, которые он отображает в окне "свойства" автокада, как получить к ним доступ?
чтобы не в слепую подбирать названия свойств, а можно было получить их список?
Вот я к примеру выше, подобрал, что свойства sset.Item(0).DuctSystem отображают ID системы, sset.Item(0).PartType тип, а как получить весь список? Может быть есть хак? Как-то же автокад понимает, что нужно отображать в этом окне?

trir · 19.11.2014, 14:50

Acad не использует VBA, а ObjectARX

zvyagaaa · 19.11.2014, 14:52

trir - проходим мимо. Разговоры о смерти VBA в автокаде идут уже какую пятилетку, однако сейчас работаю в 2014 версии, и VBA есть. По существу вопроса есть что ответить?

Кулик Алексей aka kpblc · 19.11.2014, 14:55

zvyagaaa, в AutoCAD нет понятия ни ID системы, ни типа - ничего подобного. Похоже, ты работаешь либо не в чистом ACAD, либо у тебя есть соответствующие ObjectEnabler. Следовательно, это уже явно не прокси-объекты.
Мораль: читай документацию по своей версии вертикалки

zvyagaaa · 19.11.2014, 14:58

Документации по вертикалке нет. ObjectEnabler да, есть. Как-то список названий параметров все-таки можно выдернуть из объекта или нет?

Boxa · 19.11.2014, 14:59

zvyagaaa, не хамите. Вам по существу и ответили.
Если Вы не поняли, автор ответа не виноват.

Попробую развернуть ответ: Автокад смотрит на объект через objARX (включая енаблеры) и видит ВСЕ свойства, Вы смотрите через VBA и видите только то, что компания Аутодеск сочла нужным.

zvyagaaa · 19.11.2014, 15:06

Boxa как написано, так и понял.
в качестве офтопа, на любой вопрос как сделать то-то и то-то в VBA обязательно находится человек, который говорит, что VBA нафиг - бери ObjARX, поэтому так и ответил.
тогда как я получаю доступ к свойствам, которые описал выше?

Boxa · 19.11.2014, 15:13

Цитата:

Сообщение от zvyagaaa

тогда как я получаю доступ к свойствам, которые описал выше?

Как Вы и написали выше, методом тыка, смотрите и сами сопоставляете, что за что отвечает..

А если Вам нужно больше помощи, то не ленитесь выложить сам файл с примером объекта, ссылкой на енаблер и не забудте фрагмент кода с которым работаете. В противном случае будет гадание.

Offtop: В ответе trir нет призыва выбросить вба и начать пользоваться ARX, это Вы себе напридумывали

trir · 19.11.2014, 15:16

Цитата:

тогда как я получаю доступ к свойствам

Потому что COM?

zvyagaaa · 19.11.2014, 15:47

да СОМ интерфейс есть в программе, но к нему тоже документации нет. Постараюсь, собрать инфо, чтобы получить более квалифицированную помощь.

kp+ · 19.11.2014, 15:53

Может я "со свиным рылом в калашный ряд", но все же рискну напомнить о LISP-функции vlax-dump-object. Для исследования объектов - самое то. Не знаю, есть ли аналог в VBA.

Цитата:

я не пойму, как в коде показать, что нужно выбирать только proxy объекты

"AcDbProxyEntity" в DXF-группе 100 показывает, что объект является "проксей". Если не достучитесь непосредственно из VBA, кажется, можно вызывать LISP-выражения из VBA

Offtop:

Цитата:

да СОМ интерфейс есть в программе, но к нему тоже документации нет.

MagiCAD неоднократно обсуждался на форуме, может, чего найдете...и разрабы вроде присутствовали, хотя не уверен

zvyagaaa · 20.11.2014, 10:12

MagiCAD разрабы могут дать документацию к COM интерфейсу за денежку только.

Александр Ривилис · 20.11.2014, 13:40

1) То, о чем ты говоришь, не является прокси-объектами. Прокси-объекты - это объекты-заместители, которые появляются в том случае, когда не загружено основное приложение или ObjectEnabler. Судя по скрину с Панели Свойств - это не прокси-объект, а объект MagiCAD.
2) Попробуй для начала воспользоваться лисп-функцией (progn(vl-load-com)(vlax-dump-object(vlax-ename->vla-object(car(entsel)))t)) для анализа того, что это за примитив. То, что увидишь в текстовом окне AutoCAD, выложи сюда.

kp+ · 20.11.2014, 13:56

Offtop:

Цитата:

Сообщение от zvyagaaa

MagiCAD разрабы могут дать документацию к COM интерфейсу за денежку только.

Вот жадины!

zvyagaaa · 20.11.2014, 17:22

Александр Ривилис
1) это я уже понял

спасибо
2) да, это то, что надо

Код:

[Выделить все]

; IMCDuct: IMCDuct Interface
; Значения свойств:
;   AbsorptionSerieName (RO) = ""
;   AbsorptionSerieThicknessMM (RO) = 0
;   ActiveRoom (RO) = " "
;   ActiveStorey (RO) = "1 \"Этаж 1\""
;   Application (RO) = Ошибка
;   BottomOfPartFCSMM (RO) = 3875.0
;   CenterOfPartFCSMM (RO) = 4000.0
;   Description (RO) = ""
;   Document (RO) = #<VLA-OBJECT IAcadDocument 000000006d44da58>
;   DuctConnectionSize (RO) = 3
;   DuctProductCode (RO) = ""
;   DuctSeries (RO) = 0
;   DuctSystem (RO) = 10
;   EntityTransparency = "ПоСлою"
;   FlowLS (RO) = 213.889
;   Handle (RO) = "1366"
;   HasExtensionDictionary (RO) = 0
;   Hyperlink (RO) = ""
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 00000000475c5408>
;   IFCGuid (RO) = ""
;   InsulationSerieDescription (RO) = ""
;   InsulationSerieMaterial (RO) = ""
;   InsulationSerieNationalCode (RO) = ""
;   InsulationSeries (RO) = ""
;   InsulationSerieThicknessMM (RO) = 0
;   Layer = "DUCT-В1"
;   LengthRDMM (RO) = 759
;   Linetype = "CenterLine"
;   LinetypeScale = 1.0
;   Lineweight = -3
;   Material = "ByLayer"
;   NationalCodeHPV (RO) = ""
;   ObjectID (RO) = ""
;   ObjectID (RO) = 57803
;   ObjectID32 (RO) = 57803
;   ObjectName (RO) = "MAGIPathwaySegment"
;   ObjectStatus (RO) = -1
;   OwnerID (RO) = 48515
;   OwnerID32 (RO) = 48515
;   P1 (RO) = ""
;   P10 (RO) = ""
;   P11 (RO) = ""
;   P12 (RO) = ""
;   P13 (RO) = ""
;   P14 (RO) = ""
;   P15 (RO) = ""
;   P2 (RO) = ""
;   P3 (RO) = ""
;   P4 (RO) = ""
;   P5 (RO) = ""
;   P6 (RO) = ""
;   P7 (RO) = ""
;   P8 (RO) = ""
;   P9 (RO) = ""
;   PartType (RO) = "Воздуховод"
;   PlotStyleName = "Цвет_5"
;   PV (RO) = ""
;   RunningIndex (RO) = "-"
;   SerieDescription (RO) = "Circ"
;   SerieMaterial (RO) = "Zn"
;   SizeIsLocked (RO) = 0
;   SizeIsSwapped (RO) = 0
;   StaticPressurePA (RO) = 0.0
;   SystemUserCode (RO) = "В1"
;   TopOfPartFCSMM (RO) = 4125.0
;   TotalPressureDropPA (RO) = 0.0
;   TotalPressurePA (RO) = 0.0
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 00000000475c5400>
;   UserCode (RO) = "Circ"
;   UserVar1 (RO) = ""
;   UserVar2 (RO) = ""
;   UserVar3 (RO) = ""
;   UserVar4 (RO) = ""
;   VelocityMS (RO) = 4.36
;   Visible = -1
; Поддерживаемые методы:
;   ArrayPolar (3)
;   ArrayRectangular (6)
;   Copy ()
;   Delete ()
;   GetBoundingBox (2)
;   getDefaultNrDigits (2)
;   GetExtensionDictionary ()
;   getPartTypeID ()
;   getSupportedAppIDs ()
;   GetXData (3)
;   Highlight (1)
;   IntersectWith (2)
;   Mirror (2)
;   Mirror3D (3)
;   Move (2)
;   Rotate (2)
;   Rotate3D (3)
;   ScaleEntity (2)
;   SetXData (2)
;   TransformBy (1)
;   Update ()

scad2015 · 27.04.2015, 19:00

Александр Ривилис, или кто-нибудь понимающий в Лиспе и модели arx,

Как можно переделать это выражение на Lisp чтобы вывести все свойства всех типов в чертеже, особенно те которые не возможно выбрать в модели или на листе (но они есть в файле =))? (Ситуация точно такая же как описано выше, тоже объекты стороннего приложения)

Помогите, пожалуйста!

nolte · 27.04.2015, 20:16

как то так.
запуск -- T5.

Код:

[Выделить все]

 
(defun c:t5 (/ lst)
(mapcar '(lambda(a)
			(if	(or
					(not lst)
					(not(member(vla-get-objectname a)(mapcar 'cadr lst)))
				)
					(setq lst (cons (list a (vla-get-objectname a)) lst))
			)
		)
	(mapcar 'vlax-ename->vla-object(l-conv-set-to-lst(ssget "_X")))
)
(mapcar '(lambda(b)(vlax-dump-object b t)) (mapcar 'car lst))
)
;;;---------------------------------------------------------------------------
(defun L-conv-set-to-lst (n / i lst)
(if n
	(repeat (setq i (sslength n))
		(setq lst (cons (ssname n (setq i (1- i))) lst))
	)
	nil
)
)

gomer · 27.04.2015, 20:36

Цитата:

Сообщение от nolte

как то так.

ты издеваешься что ли???

nolte · 27.04.2015, 20:40

Цитата:

Сообщение от gomer

ты издеваешься что ли???

это Вы про что Уважаемый.

gomer · 27.04.2015, 21:21

Цитата:

Сообщение от nolte

это Вы про что Уважаемый.

как-то анально-ректально это, чертежов-то у тебя один, а цыклов 6...

nolte · 27.04.2015, 21:33

уважаю я твою критику. вот продемонстрировал чего более красивого.

Кулик Алексей aka kpblc · 27.04.2015, 22:09

Как вариант: через atoms-family получить список всех ActiveX-свойств и потом проверять, какое для какого объекта доступно. Но смысла в этом лично я не вижу.

gomer · 27.04.2015, 23:16

Цитата:

Сообщение от nolte

Уважаемый

зачем старого больного человека обижаешь?
ну погорячился я... с кем не бывает
но писать нужно внятно, а не через то самое место, коего любителей предостаточно
хотя бы так

Код:

[Выделить все]

 (defun c:dumpall (/ i ss en ent lst)
  (if (setq i -1 ss (ssget "_X"))
    (repeat (sslength ss)
      (setq en  (vlax-ename->vla-object
                  (ssname ss (setq i (1+ i))))
            ent (vla-get-objectname en))
      (cond ((vl-position ent lst))
            ((setq lst (cons ent lst))
             (vlax-dump-object en t)))))
  (princ))

хотя и этот у тех кто в танке работать не будет

nolte · 27.04.2015, 23:26

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

scad2015 · 28.04.2015, 18:36

Цитата:

Сообщение от gomer

хотя и этот у тех кто в танке работать не будет

Я в танке

, спасибо за код, но до конца не выдает весь список, вылетает вот что:

Код:

[Выделить все]

; IAcadPViewport: IAcadPViewport Interface
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 000000013fb2d910>
;   ArcSmoothness = 100
;   Center = (213.154 151.613 0.0)
;   Clipped (RO) = 0
;   CustomScale = 0.00673419
;   Direction = (0.0 0.0 1.0)
;   DisplayLocked = 0
;   Document (RO) = #<VLA-OBJECT IAcadDocument 000000002991e058>
;   EntityTransparency = "ByLayer"
;   GridOn = -1
;   Handle (RO) = "2547"
;   HasExtensionDictionary (RO) = 0
;   HasSheetView (RO) = 0
;   Height = 210.264
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 000000002fa43b88>
;   LabelBlockId = Ошибка
;   LabelBlockId32 = ; error: Exception occurred: 0xC0000005 (Access Violation)
; warning: unwind skipped on exception
; error: Exception occurred: 0xC0000005 (Access Violation)

Acad 2014 х64

Кулик Алексей aka kpblc · 28.04.2015, 20:42

Ошибка ядра AutoCAD.

----- добавлено через 14 сек. -----
Напомни, чего ты в результате-то хотел?

scad2015 · 29.04.2015, 17:50

Цитата:

Сообщение от Кулик Алексей aka kpblc

Ошибка ядра AutoCAD.

Разобрался. Ошибка из-за того что название листа было на русском.

--------------------------
Все равно не видит объект, который нужен. Можно еще каким-то образом его найти в файле?

Я просто с объектной моделью не знаком.

----- добавлено через ~13 мин. -----
Подробно:

Есть arx ( или вроде vlx .... ) решение (типа СПДС) для автокад, оно создает объекты, объекты переносятся с файлами. Объекты представляют из себя что-то типа укрупнительных сборок других объектов.

Есть просто желание доработать под себя еще пару команд/кнопок. Так как в программировании я не очень, хотел бы все осуществить на VBA.

Есть какие-нибудь идеи? Может можно как-то до них добраться (до объектов )через C#?

Кулик Алексей aka kpblc · 29.04.2015, 23:50

Не имея исходников или хотя бы загруженного arx / dbx, да на VBA - нереально, мне кажется. И .NET тут мало поможет (если вообще поможет).

scad2015 · 05.05.2015, 21:01

Кулик Алексей aka kpblc, arx загружены , есть enabler для объектов.

Интересно, некоторые свойства для некоторых объектов через VBA не изменить. В чем может быть загвоздка...

Кулик Алексей aka kpblc · 05.05.2015, 21:01

Например, в отсутствии СОМ-интерфейса к объектам.

doctorraz · 12.05.2015, 09:44

Цитата:

Сообщение от scad2015

Интересно, некоторые свойства для некоторых объектов через VBA не изменить. В чем может быть загвоздка...

Цитата:

Сообщение от Кулик Алексей aka kpblc

Например, в отсутствии СОМ-интерфейса к объектам.

или в том, что эти свойства только для чтения.

gizmo_zx · 16.01.2023, 11:14

NanoCad Электро (вертикальное решение на платформе Nanocad) один элемент
Есть ли возможность, хоть как-то добраться до свойств объекта программными методами?
Хочу иметь возможность пронумеровать (сквозной нумерацией) розетки.
Поле доступное через интерфейс "ЭЛЕКТРО" = Наименование

Код:

[Выделить все]

DUMPALL - DUMPALL; IAcadEntity: The standard interface for a basic TeighaX entity
; Значения свойств:
;   Application (RO) = #<VLA-OBJECT InanoCADApplication 00000092389FDE70>
;   Document (RO) = #<VLA-OBJECT InanoCADDocument 000000922BC3B9F0>
;   Handle (RO) = "5F3"
;   HasExtensionDictionary (RO) = 0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0000009200333418>
;   Layer = "ЭЛ_ОБОРУДОВАНИЕ_розетки"
;   Linetype = "ByLayer"
;   LinetypeScale = 100.0
;   Lineweight = -1
;   Material = "ByLayer"
;   ObjectID (RO) = 45
;   ObjectName (RO) = "WlAcDbElement"
;   OwnerID (RO) = 46
;   PlotStyleName = "ByLayer"
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 00000092EDBD36B8>
;   Visible = -1
; Поддерживаемые методы:
;   ArrayPolar (3)
;   ArrayRectangular (6)
;   Copy ()
;   Delete ()
;   GetBoundingBox (2)
;   GetExtensionDictionary ()
;   GetXData (3)
;   Highlight (1)
;   IntersectWith (2)
;   Mirror (2)
;   Mirror3D (3)
;   Move (2)
;   Rotate (2)
;   Rotate3D (3)
;   ScaleEntity (2)
;   SetXData (2)
;   TransformBy (1)
;   Update ()
; IAcadPViewport: TeighaX Interface of rectangular object created in paper space that display view
; Значения свойств:
;   Application (RO) = #<VLA-OBJECT InanoCADApplication 00000092389FDE70>
;   ArcSmoothness = 100
;   Center = (0.0 0.0 0.0)
;   Clipped (RO) = 0
;   CustomScale = 1.0
;   Direction = (0.0 0.0 1.0)
;   DisplayLocked = 0
;   Document (RO) = #<VLA-OBJECT InanoCADDocument 000000922BC3B9F0>
;   GridOn = 0
;   Handle (RO) = "214"
;   HasExtensionDictionary (RO) = 0
;   HasSheetView (RO) = Ошибка.
;   Height = 324.391
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0000009200333B98>
;   LabelBlockId = Ошибка.
;   Layer = "0"
;   LayerPropertyOverrides (RO) = Ошибка.
;   LensLength = 50.0
;   Linetype = "ByLayer"
;   LinetypeScale = 100.0
;   Lineweight = -1
;   Material = "ByLayer"
;   ModelView = Ошибка.
;   ObjectID (RO) = 47
;   ObjectName (RO) = "AcDbViewport"
;   OwnerID (RO) = 48
;   PlotStyleName = "ByLayer"
;   ShadePlot = 0
;   SheetView = Ошибка.
;   SnapBasePoint = (0.0 0.0)
;   SnapOn = 0
;   SnapRotationAngle = 0.0
;   StandardScale = 2
;   StandardScale2 = Ошибка.
;   Target = (0.0 0.0 0.0)
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 00000092EDBD3E78>
;   TwistAngle = 0.0
;   UCSIconAtOrigin = -1
;   UCSIconOn = -1
;   UCSPerViewport = -1
;   ViewportOn = -1
;   Visible = -1
;   VisualStyle = Ошибка.
;   Width = 650.371
; Поддерживаемые методы:
;   ArrayPolar (3)
;   ArrayRectangular (6)
;   Copy ()
;   Delete ()
;   Display (1)
;   GetBoundingBox (2)
;   GetExtensionDictionary ()
;   GetGridSpacing (2)
;   GetSnapSpacing (2)
;   GetXData (3)
;   Highlight (1)
;   IntersectWith (2)
;   Mirror (2)
;   Mirror3D (3)
;   Move (2)
;   Rotate (2)
;   Rotate3D (3)
;   ScaleEntity (2)
;   SetGridSpacing (2)
;   SetSnapSpacing (2)
;   SetXData (2)
;   SyncModelView ()
;   TransformBy (1)
;   Update ()

Или это фантастика?

Сергей812 · 16.01.2023, 21:51

фантастика, что разработчики продукта уверены - что его "допиливать" под свои нужды нет необходимости, если до сих пор API не сделали)

doctorraz · 16.01.2023, 21:56

Цитата:

Сообщение от Сергей812

если до сих пор API не сделали)

Вроде утверждают, что API есть, но по запросу
Или они про бим писали

gizmo_zx · 17.01.2023, 08:46

Мы проработали год в электро.
Точность спецификации возросла ( все трубы , гайки и пр. закладываешь сразу и забываешь (что гуд) )
Но вот типовые операции, весь (или часть) такой то кабель (светильники, розетки) , заменить на другой (боль, слезы и истерика

)
Невозможность прокладки лотков под углом к горизонту _/\_ (до сих пор не умеет). Скорость проектирования упала раз 5 и более. И это не косаемо багов и сурового наноэлектровского интерфейса. И это еще не про BIM.

Сергей812 · 17.01.2023, 09:38

Цитата:

Сообщение от gizmo_zx

Мы проработали год в электро.
Точность спецификации возросла ( все трубы , гайки и пр. закладываешь сразу и забываешь (что гуд) )
Но вот типовые операции, весь (или часть) такой то кабель (светильники, розетки) , заменить на другой (боль, слезы и истерика)
Невозможность прокладки лотков под углом к горизонту _/\_ (до сих пор не умеет). Скорость проектирования упала раз 5 и более. И это не косаемо багов и сурового наноэлектровского интерфейса. И это еще не про BIM.

ну если представитель нано не обиделся на вашу формулировку "Очень хочется седло и педали приделать к этому велосипеду"

и API к надстройке "электро" действительно нет - а на электро только точность спецификации возросла, то может в чистом нано опробовать организовать работу? На него то API есть.

19.11.2014, 12:20		#1
Как программно получить свойства прокси объекта zvyagaaa Регистрация: 11.08.2011 Сообщений: 41 Есть в файле прокси объекты стороннего приложения. В автокадовском окне "свойства" нужные мне свойства отображаются. Подскажите, как можно программно их получать? Желательно на VBA. Куда копать?
Просмотров: 9841

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как получить свойства layout	луки	Программирование	2	23.06.2009 10:50
Как получить свойства 3dSolid Box в VB...	99garry	Программирование	8	22.06.2009 20:58
ADT. Программно получить значение храктеристики.	игорёк	Программирование	10	25.08.2008 10:39
как получить из примитива его свойства	paradoxvaha	Программирование	5	24.07.2007 22:24
Можно ли получить список реакторов объекта?	kos	Программирование	1	13.01.2005 13:28