Итак, у меня есть этот код:
(setq ss (ssget "X" '((0 . "LWPOLYLINE") (90 . 4) (-4 . "&=") (70 . 1) )))
;Selecteaza toate Polyline-urile cu 4 colturi, si care sunt inchise.
(setq n 0
var (getpoint "Select where to order rentagles")
)
(repeat (sslength ss) ;Parcurge setul de selectie
(setq tent (entget (ssname ss n))
telem (assoc 10 tent)
listvar(cons 10 var))
(setq
tent(subst listvar telem tent)
)
(entmod tent)
(setq n (1+ n))
)
(princ)
)
Хотя что он делает, так это то, что он перемещает только верхний левый угол любых прямоугольников в указанную мной точку. Как я могу сделать то же самое для ВСЕГО прямоугольника или как я могу изменить другие углы, используя коды dxf? Заранее спасибо!
РЕДАКТИРОВАТЬ: я прочитал это «10 координат вершин (в OCS), несколько записей; одна запись для каждой вершины DXF: значение X; APP: 2D-точка» Как я могу использовать другие записи вершин?