[Positron]

Надо шоб линия строилась от центра, я же зделал постоение как всегда но потом командой move хватаясь за midpoint линии перемещаем на 1 точку с которой начинали линию малевать "p1"
Делаю макрос:
^C^C_line;\(setq p1(getvar "lastpoint"));\;move;l;;(setq p2(getpoint "midpoint");!p2;\!p1;

Красным выделил то шо нада получить...незнаю как в коде
(незнаю как "midpoint" получить)

[Profan]

Словами описал бы, что ли, что надо.

[Positron]

Щас проверил ручное указание средней точки линии, макросом:

^C^C_line;\(setq p1(getvar "lastpoint"));\;move;l;;midpoint;\!p1;

Работает, но нада шоб автоматом находило, как описать в коде незнаю...

[Profan]

Надо шоб линия строилась от центра, я же зделал постоение как всегда но потом командой move хватаясь за midpoint линии перемещаем на 1 точку с которой начинали линию малевать "p1"

Это называется "описал словами"? Признайся - русский язык не родной твой? От меня смысл написанного ускользает...

[Positron]

Сообщение от Profan Это называется "описал словами"? Признайся - русский язык не родной твой? От меня смысл написанного ускользает...

невыспался вот и упускаю детали ...
А язык мой Украинский родной
Вот так пойдёт?:
Надо после посторения линии перемистить её хватаясь за центр в 1-вую точку линии...


тут ручной макрос склЁпал, незнаю как зделать чтоб координату середины линии автоматом вбивало

Сообщение от Positron Щас проверил ручное указание средней точки линии, макросом: ^C^C_line;\(setq p1(getvar "lastpoint"));\;move;l;;midpoint;\!p1; Работает, но нада шоб автоматом находило, как описать в коде незнаю...

[Profan]

Может, программа на AutoLisp сгодится?

Код:

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

(defun C:MOVEL ( / pt1 pt2 )
(setq pt1 (getpoint  "\n Первая точка: "))
(setq pt2 (getpoint pt1 "\n Вторая точка: "))
(command "_line" "_none" pt1 "_none" pt2 "")
(command "_move" "_l" "" "_m2p" pt1 pt2 pt1)
(princ)
)

Если код будет сохранен в файле movel.lsp, то макрос для кнопки может иметь вид:

Код:

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

 
^C^C(if (not C:MOVEL) (load "movel")) MOVEL

[Positron]

спасибО!
мучал голову с макросом, а про лисп забыл...
...
А возможно для прямоугольника тоже самое?
^C^C_rectang;\D;\\\
а середина из прямой по оси Х

На фотке Х это середина прямоугольника,
а красный квадрат начальная точка,
стороны вручную или мышкой вводим