[paradoxvaha]

День добрый! такой вопрос - есть на листе несколько объектов, не получается их програмно сдвинуть в сторону
вот такой код

(setq p1 )
(setq p2 )
(setq p3 )
(setq p4 ) ; организовал рамку

(command "_move" "_CP" p1 p2 p3 p4 "" "")


Вобщем рамка получается, и дальше просит указать базовую точку и точку до которой двигать надо. а как их ввести в функцию move я незнаю..

[VVA]

Код:

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

(setq p1 (getpoint "\n1-я точка рамки: "))
(setq p2 (getpoint p1 "\n2-я точка рамки: ")) 
(setq p3 (getpoint p2 "\n3-я точка рамки: ")) 
(setq p4 (getpoint p3 "\n4-я точка рамки: ")) 

(initget 1)
(setq pn (getpoint "\nБазовая точка: "))
(initget 1)
(setq pk (getpoint pn "\nКонечная точка: "))
(if (setq ss (ssget "_CP" (list p1 p2 p3 p4)))
  (progn
    ;Что-то выбрали
    (command "_move" ss "" pn pk)
    )
  )

;или так

(if (setq ss (ssget "_CP" (list p1 p2 p3 p4)))
  (progn
    ;Что-то выбрали
    (command "_move" ss "" pn pause)
    )
  )

[paradoxvaha]

Спасибо большое, вроде все работает!