[shokilele]

Добрый день! Подскажите пожалуйста, как можно получить ID атрибута внутри динамического блока без привязки к его тегу (просто кликом по атрибуту).

[Кулик Алексей aka kpblc]

ID - это хендл, что ли? Так он у каждого вхождения атрибута будет свой и капитально отличаться от хендла описания атрибута

[name02]

Может более раскрытое описание цели данного действия позволит нам найти решение?

[shokilele]

Сейчас у меня есть вот такой динамический блок "Ведомость деталей" в котором несколько видимостей: П-шка, Г-шка и тд. Для каждой видимости, например Г-шка, как на скриншоте, существуют атрибуты, отвечающие за длины сторон этой гнутой детали. В одном из атрибутов собирается суммарная длина гнутой детали посредством поля. Поскольку для каждой видимости атрибут с суммарной длиной гнутой детали свой, то необходимо получать ObjectId конкретного атрибута, в зависимости от видимости.

Все это я хочу сделать для связи спецификации и блока ведомости детали.

[shokilele]

Ранее использовал такой код, для получения значения МТекста в виде связанного поля

Код:

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

 ve(defun C:ID ( / obj ID)  
 	(setq obj (car (entsel "\nВыберите объект для определения его ID:")))
	(if obj 
		(setq ID (Get-ObjectID-x86-x64 obj)) 
		(princ "\nОбъект не выбран.") 
	) 
	(if ID  
		(progn 
			(copyToclipboard (strcat "%<\\AcObjProp Object(%<\\_ObjId " ID ">%).TextString>%")) ;;; 
			(princ (strcat "\n%<\\AcObjProp Object(%<\\_ObjId " ID ">%).TextString>%")) 
		) 
		(princ "\nID не определен.") 
	) 
	(princ) 

) 
(vl-load-com)
(defun Get-ObjectID-x86-x64 (obj / util)
  (setq util (vla-get-Utility (vla-get-activedocument (vlax-get-acad-object))))
  (if (= (type obj) 'ENAME)(setq obj (vlax-ename->vla-object obj)))
  (if (= (type obj) 'VLA-OBJECT)
     (if (> (vl-string-search "x64" (getvar "platform")) 0)
       (vlax-invoke-method util "GetObjectIdString" obj :vlax-False)
       (rtos (vla-get-objectid obj) 2 0)
     )
  )
)
(defun copyToclipboard ( text / htmlfile result)
 (setq result
        (vlax-invoke
            (vlax-get
                (vlax-get
                    (setq htmlfile (vlax-create-object "htmlfile"))
                   'ParentWindow
                )
               'ClipBoardData
            )
           'SetData
            "Text"
            text
        )
    )

    (vlax-release-object htmlfile)
    result
)

(princ "C:ID2CLP")
(princ)

[koMon]

ну так nentsel выберет атрибут если по нему кликнуть.
(setq obj (car (nentsel "\nВыберите объект для определения его ID:")))

[name02]

Сообщение от shokilele Все это я хочу сделать для связи спецификации и блока ведомости детали.

Ты собираешься спецификацию собирать как - вручную тыкать в каждый атрибуты с длинами?

[shokilele]

koMon, спасибо! Это действительно помогло!

----- добавлено через ~2 мин. -----
name02, да, пока машинально ручками тыкать собирался. Со временем постараюсь изучить способы для автоматизации этого процесса. Не подскажите идейку в какую сторону двигаться?

[name02]

В какую сторону двигаться - чисто по удобству твоего использования.
Для себя я решил таким образом:
Так как у меня много листов с разным оборудованием, то решил действовать через блоки.
В блоке организовал атрибуты с идентификатором оборудования, количеством K (в метрах например) и количеством в штуках N (для случаев, если нужно учесть например 6 отрезков трубы длиной 4 м каждый)
В программе я выделяю необходимые блоки (фильтр по имени блока, имени слоя) и далее суммируется количество оборудования по идентификатору.
В итоге я получаю список из идентификатора оборудования и суммарного количества.
На основании списка формируется таблица и вручную указывается точка вставки с таблицей спецификации. Т.е. автоматического обновления таблицы по изменению данных в блоках нет. Для меня это слишком сложно, да и не нужно, как оказалось.

Для меня такой подход оказался удобным и его я смог реализовать.

[shokilele]

koMon, Это действительно решило мою проблему! Спасибо большое!