[Викторр1985]

Подскажите пожалуйста можно ли в команде отрезок поменять местами
очередность ввода угла и длинны т.е с начало задать длину отрезка (с клавиатуры)а потом угол(мышкой)?

[E-degtyarev]

Любую команду можно переопределить, но только чем тебя стандартная не устраивает?

[Елпанов Евгений]

Согласен. Достаточно нарисовать отрезок нужной длинны и после сразу запустить поворот, для ввода угла или указания этого угла на экране...

Это можно реализовать как программно, так и макросом в меню или на кнопке.

[Викторр1985]

Сообщение от E-degtyarev Любую команду можно переопределить, но только чем тебя стандартная не устраивает?

Очередность ввода угла и длинны.

[Krieger]

Используй дин. ввод. Там можно сначала длину задать.

[E-degtyarev]

Ну, если очень уж хочется помести эту lisp-мазню в автозагрузку или
в acad****.lsp и будет команда ot.

Код:

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

(defun c:ot ()
  (setq dlina (getreal "\nДлина отрезка:"))
  (setq pt1 (getpoint "\nНачальная точка:"))
  (setq ugol (getangle pt1 "\nУгол поворота:"))
  (setq pt2 (polar pt1 ugol dlina))
  (command "_.line" pt1 pt2 "")
)

[Викторр1985]

Спасибо E-degtyarev за lisp.

На работе с человеком еще поковырялись вот че получилось

(defun c:ot ()

  (setq pt1 (getpoint "\nНачальная точка:"))
  (setq dlina (getdist "\nдлинна отрезка: " pt1))

  (setq ugol (getangle pt1 "\nУгол поворота:"))
  (setq pt2 (polar pt1 ugol dlina))
  (command "_.line" pt1 pt2 "")
)

[Викторр1985]

А как сделать так чтобы лисп был зациклен и начинал строить следующую линию от конца прошлой?

[E-degtyarev]

Ну, примерно так:

Код:

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

(defun c:ot ()
(while
  (setq pt1 (getpoint "\nНачальная точка:"))
  (setq dlina (getdist "\nдлинна отрезка: " pt1))
  (setq ugol (getangle pt1 "\nУгол поворота:"))
  (setq pt2 (polar pt1 ugol dlina))
  (command "_.line" pt1 pt2 "")
  )
)

Если включить привязку к конточке.

[Буджум]

Тогда уж так

Код:

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

(defun c:ot ( / cmd osm pt1 dlina ugol pt2)

 (defun *error*(msg) 
    (princ msg)
    (if cmd  (setvar "cmdecho" cmd))
    (if osm (setvar "osmode" osm))
  )

 (setq cmd   (getvar "cmdecho")
       osm   (getvar "osmode")
       dlina t
       ugol  t
       pt1   (getpoint "\nÍà÷àëüíàÿ òî÷êà:")
 )

 (setvar "osmode" (logior osm 16384))
 (setvar "cmdecho" 0)

   (while (and dlina ugol) 
      (setq dlina (getdist pt1 "\nÄëèíà îòðåçêà <âûõîä>: "))
      (if dlina
         (progn
       (setq ugol (getangle pt1 "\nÓãîë ïîâîðîòà <âûõîä>:"))
              (if ugol
        (progn
          (setq pt2 (polar pt1 ugol dlina))
                  (vl-cmdf "_.line" pt1 pt2 "")
                  (setq pt1 pt2)
            );progn
          );if
         );progn
      );if
   );while
  
 (setvar "OSMODE" osm)
 (setvar "cmdecho" cmd)
 (princ)
  
)