[Dmitriyele]

Как с помощью Activex копировать примитив со смещением? Можно подсказать как пользоваться обычной командой command_.Copy?

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

Так с помощью ActiveX или командой?
Если ActiveX, то сначала vla-copy, а потом vla-move.

[Dmitriyele]

(setq Vol (vlax-ename->vla-object (car (entsel))))
(setq V (vla-Copy Vol))

как сделать так чтобы сместить копию относительно оригинала?


Как командой _.command сделать копию напишите пример пожалуйста

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

(setq Vol (vlax-ename->vla-object (car (entsel))))
(setq V (vla-Copy Vol))
(vla-move v (vlax-3d-point (getpoint "\nBase point")) (vlax-3d-point (getpoint "\nFinal point")))

Сообщение от Dmitriyele Как командой _.command сделать копию напишите пример пожалуйста

(setq vol (car (entsel)))
(if (vl-cmdf "_.copy" vol "" pause pause)
(setq res (entlast))
)

[Dmitriyele]

Спасибо большое буду пробовать.


Стационарно точки забить так можно?
(vla-move v (vlax-3d-point (list 0.0 1320.0 0.0))
(vlax-3d-point (list 230.0 1330.0 0.0)))