[Unreal_2007]

Здраствуйте!
Подскажите как выполнить действия на координатами.
Получаю базовую точку getpoint(), а как ее сместить и\или выпольнить програмную прорисовку фигуры в итносительных коодинатах. Ищу 3й день . Помогите пожалуйста!!! :cry:

[den001]

Вы про Lisp или про VBA? И не совсем понятна суть проблемы. Выполнить действия над точкой, (в VBA) - ничего нет проще:

Код:

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

Dim pnt As ACAD_POINT
pnt = ThisDrawing.Utility.GetPoint

Получаете массив из 3-х элементов, и делать с ним можно что угодно
Можно использовать как точку для другого метода, напр.:

Код:

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

 
rad = 10
ThisDrawing.ModelSpace.AddCircle pnt, rad

или

Код:

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

Dim cobj As AcadCircle
cobj = ThisDrawing.ModelSpace.AddCircle(pnt, rad)

Или я не о том?
Если интересует преобразование из одной системы координат в другую, то

Код:

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

pnt = ThisDrawing.Utility.TranslateCoordinates(pnt, acWorld, acUCS, 0)

или

Код:

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

pnt = ThisDrawing.Utility.TranslateCoordinates(pnt, acUCS, acWorld, 0)

А если интересует Lisp - то это не ко мне

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

Я не понял вопроса. Ну, получена точка. Так что, надо вокруг этой точки выполнить отрисовку? К примеру, есть список точек вершин отрезков типа
'(((-2. -2.) (2. 2.)) ((-2. 2.) (2. -2.)))
Тогда будет нечто типа:

Код:

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

_$ (setq lst '(((-2. -2.) (2. 2.)) ((-2. 2.) (2. -2.))))
(((-2.0 -2.0) (2.0 2.0)) ((-2.0 2.0) (2.0 -2.0)))
_$ (setq pt (GETPOINT))
(232.284 196.397 0.0)
(mapcar '(LAMBDA(b) (mapcar '(LAMBDA(a) (mapcar '+ a pt)) b)) lst)
(((230.284 194.397) (234.284 198.397)) ((230.284 198.397) (234.284 194.397)))

===
Добавлено:
Отрисовку можно сделать в общем-то и так:

Код:

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

(mapcar '(LAMBDA(b / tmp) (setq tmp (mapcar '(LAMBDA(a) (mapcar '+ a pt)) b)) (entmakex (list (cons 0 "LINE")(cons 10 (car tmp)) (cons 11 (cadr tmp))))
) lst)

[Unreal_2007]

Например получил точку, как сместить ее на 100 "точек" вверх или вниз. Примерчик, если можно!!!

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

(mapcar '+ pt '(100. 100.))
Где pt - твои координаты точек

[Александр Ривилис]

Сообщение от Кулик Алексей aka kpblc (mapcar '+ pt '(100. 100.)) Где pt - твои координаты точек

Это по диагонали!
(setq pt1 (mapcar '+ pt '(0.0 100.0 0.0))) ; А это по вертикали вверх!

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

> Александр Ривилис : ессно Неверно прочитал вопрос... Сорри.