[Айнар]

Задача заключается в редактировании средствами LISP общих вершин в поле 3DFace. Существует ли такая возможность?

[Айнар]

Придумал вот это:

Код:

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

(setq pt (getpoint "\nFirst point: "))
(vl-cmdf "._stretch"
	 "c"
	 (list (+ (car pt) 1.0) (+ (cadr pt) 1.0) (caddr pt))
	 (list (- (car pt) 1.0) (- (cadr pt) 1.0) (caddr pt))
	 ""
)

но нет ли возможности решить задачу без команды Autocad?

[Do$]

Пример чертежа бы с этим 3DFace, да еще чтоб в 2006 акаде открылся, может быть что-нибудь и смог бы подсказать...

[Айнар]

Сообщение от Do$ Пример чертежа бы с этим 3DFace, да еще чтоб в 2006 акаде открылся, может быть что-нибудь и смог бы подсказать...

Да в общем чертежик совсем простой

[Do$]

Вроде бы несложно.
1. Указываем вершину для перемещения (getpoint)
2. Составляем набор из 3DFace, проходящих через указанную точку (ssget)
3. Указываем новое положение вершины (getpoint)
4. В каждом объекте набора ищем вершину, которая совпадает с указанной точкой и задаем ей новое значение (repeat, ssname, entget, entmode...)

Но у меня возникла сложность со вторым пунктом. По описанию, ssget может создавать набор из примитивов, проходящих через указанную точку. Но на практике, почему-то, при указании общей вершины 4-х 3DFace в набор попадает только одна

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

Попробуй делать ssget с опцией _w и указанием диапазона точности плюс-минус 1е-3 по всем измерениям.
Правда, как это будет работать при, например, изометрическом изображении, не представляю

[Елпанов Евгений]

Сообщение от Do$ Но у меня возникла сложность со вторым пунктом. По описанию, ssget может создавать набор из примитивов, проходящих через указанную точку. Но на практике, почему-то, при указании общей вершины 4-х 3DFace в набор попадает только одна

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

[VVA]

Айнар, Ответил здесь