[99garry]

Здравствуйте! Столкнулся с такой проблеммой:
Нужно написать приложение на VB в котором бы отображались высота, ширина и длина выбраного обьекта, при условии, что этот объект 3dSolid Box и свободно ориентирован в пространстве.
Что у меня получилось, так это определить, что выбраный обьект это 3dsolid и его тип Box.
Другими словами. Если нарисовать обьект box, а затем его выделить, нажать правую кнопку мыши, и в выпавшем меню выбрать пункт Properties, то появится окно в котором будут указаны свойствы обьекта, в числе которых и искомые ширина, длина и высота.
Многочасовой поиск в Help файле не дал результатов.
Спасибо за советы и любые способы решения данной( для специалистов, наверное маленькой) проблеммммммы.

[Дима_]

Для VBA не знаю, но через DXF:

Код:

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

(defun getboxparametr (obj)
(if (and
obj 
(= (type obj) 'ename)
(= (cdr (assoc 0 (entget obj))) "3DSOLID")
(setq obj (cdr (assoc 350 (entget obj))))
(setq obj (cdr (assoc 360 (entget obj))))
(setq obj (cdr (assoc 360 (entget obj))))
(= (cdr (assoc 0 (entget obj))) "ACSH_BOX_CLASS")
);end of and
(setq 	obj (member (cons 100 "AcDbShBox") (entget obj))
	obj (mapcar 'cdr (list (assoc 40 obj) (assoc 41 obj) (assoc 42 obj)))
);end of setq
);end of if
);end of getboxparametr

Пример:

Код:

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

(getboxparametr (entlast))

[99garry]

Сообщение от Дима_ Для VBA не знаю, но через DXF: Код: [Выделить все] (defun getboxparametr (obj) (if (and obj (= (type obj) 'ename) (= (cdr (assoc 0 (entget obj))) "3DSOLID") (setq obj (cdr (assoc 350 (entget obj)))) (setq obj (cdr (assoc 360 (entget obj)))) (setq obj (cdr (assoc 360 (entget obj)))) (= (cdr (assoc 0 (entget obj))) "ACSH_BOX_CLASS") );end of and (setq obj (member (cons 100 "AcDbShBox") (entget obj)) obj (mapcar 'cdr (list (assoc 40 obj) (assoc 41 obj) (assoc 42 obj))) );end of setq );end of if );end of getboxparametr Пример: Код: [Выделить все] (getboxparametr (entlast))

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

[Дима_]

Сообщение от 99garry ... Посоветуйте с чего начать знакомство с DXF... Просто, возможно лучше направить свои усилия на изучение ObjectARX?

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

[Скулачёв А.]

Дима_ , что вернёт твоя функция?

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

Дима_, далеко не всегда DXF не нужен в программировании под AutoCAD. Иногда без него не обойтись.

[Дима_]

Сообщение от Скулачёв А. Дима_ , что вернёт твоя функция?

(getboxparametr (car (entsel)))
Если указать на ящик созднной командой _box начиная с 2007 версии и старше - вернет список из длинны, ширины и высоты.
То Крыс - спору нет, яж и говорю - как ассемблер - теоритически вытащить можно все что угодно - правда, в непростых случаях,придеться немало формул из курса высшей математики вспомнить и в лисп их перевести, а это у большинства из нас вряд-ли лучше автодеска получиться - get-volume например, но если готовой команды нет, то без вариантов - dxf only.

[Евгений А.]

Может не в тему, но выскажусь. На ассемблер прошу не наезжать, он умрёт только вместе с компьютерами. Что касается DXF - это не язык программирования! а просто способ полного текстового представление файла dwg. Вывод отсюда такой - информация есть вся, но работать с ней получается медленно. А пример с get-volume не в тему - она не вытаскивает инфу из файла, а просто туповычисляет объём тела.

[99garry]

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