• cadhelp
  • Восстановленный участник
  • На форуме с 24 февраля 2004г.
  • Сообщений: 231
  • Спасибо: 0

Тема: Как провести линию под углом 45 град.?

или под любым другим углом
(command "_.LINE" (getpoint) "<45")
; error: Function cancelled
???

  • Пастух
  • Восстановленный участник
  • На форуме с 12 января 2005г.
  • Сообщений: 461
  • Спасибо: 0

Re: Как провести линию под углом 45 град.?

А что это - "<45" ?

  • cadhelp
  • Восстановленный участник
  • На форуме с 24 февраля 2004г.
  • Сообщений: 231
  • Спасибо: 0

Re: Как провести линию под углом 45 град.?

угол 45
options of command line

  • algol
  • Восстановленный участник
  • На форуме с 5 февраля 2005г.
  • Сообщений: 27
  • Спасибо: 0

Re: Как провести линию под углом 45 град.?

(setq p1(getpoint"\nНачальная(.) отрезка")p2(polar p1(/ pi 4)(getdist"\nДлина отрезка")))
(command "_.LINE" p1 p2 "")

  • Откуда: Москва
  • На форуме с 2 июля 2004г.
  • Сообщений: 2,538
  • Спасибо: 10

Re: Как провести линию под углом 45 град.?

Пожалуй, так тоже можно...

 (defun line<45 ( / GR LST PT)
  (setq    lst (entget
          (entmakex
        (list
          '(0 . "LINE")
          (cons 8 (getvar "CLAYER"))
          (cons 10 (setq pt (getpoint "\n Укажите первую точку  ")))
          (cons 11 pt)
        ) ;_  конец функции list
          ) ;_  конец функции entmakex
        ) ;_  конец функции entget
  ) ;_  конец функции setq
  (princ "\n Укажите вторую точку  ")
  (while (and (setq gr (grread 5)) (= (car gr) 5))
    (entmod (subst
          (cons 11 (polar pt (/ pi 4) (distance pt (cadr gr))))
          (assoc 11 lst)
          lst
        ) ;_  конец функции subst
    ) ;_  конец функции entmod
    (entupd (cdr (assoc -1 lst)))
  ) ;_  конец функции while
)

  • Alan
  • Активный участник
  • Откуда: Украина / Киев
  • На форуме с 2 апреля 2002г.
  • Сообщений: 1,345
  • Спасибо: 15

Re: Как провести линию под углом 45 град.?

> >cadhelp
Неверен формат команды LINE
(command "_.LINE" (getpoint "Введите точку" ) "@100<45" ""), где 100 - длина; 45 - угол в град. Эти параметры можно конечно задать через getdist & getangle, но это уже другая история.

  • Vova
  • Активный участник
  • На форуме с 12 июля 2002г.
  • Сообщений: 636
  • Спасибо: 9

Re: Как провести линию под углом 45 град.?

https://www.caduser.ru/forum/topic7386.html
Всевозможные варианты

  • cadhelp
  • Восстановленный участник
  • На форуме с 24 февраля 2004г.
  • Сообщений: 231
  • Спасибо: 0

Re: Как провести линию под углом 45 град.?

> Евгений
Спасибо, идея ясна
2 Alan
в момент создания линии длина еще неизвестна

  • algol
  • Восстановленный участник
  • На форуме с 5 февраля 2005г.
  • Сообщений: 27
  • Спасибо: 0

Re: Как провести линию под углом 45 град.?

> cadhelp
(setq p1(getpoint"\n(.) на линии"))
(command "_.XLINE" "A" 45 p1"")

  • cadhelp
  • Восстановленный участник
  • На форуме с 24 февраля 2004г.
  • Сообщений: 231
  • Спасибо: 0

Re: Как провести линию под углом 45 град.?

Thanks man,
Я даже и не знал что такая команда есть:(
К сожалению резултат не совсем тот что мне нужен.
Все что мне надо это
Command: Specify first point:
юзер кликает где угодно ->

P1. Угол заранее установлен -> ANG
Command: Specify next point:
юзер видит резиновую линию, которая начинается в P1 и растягивается в обе стороны но только под углом ANG. Кроме того, пользователь имеет возможность указать длину линии как для обычной линии.

если нажать Esc то остаётся линия нулевой длинны, что КРАЙНЕ не желательно

  • OLeg(jr.)
  • Восстановленный участник
  • На форуме с 26 февраля 2005г.
  • Сообщений: 66
  • Спасибо: 0

Re: Как провести линию под углом 45 град.?

> cadhelp
(setvar "polaraddang" "0;45;90;135;180 ..и т.д.") или что-то вроде не решит твою проблему?

  • sah-has
  • Восстановленный участник
  • На форуме с 20 февраля 2005г.
  • Сообщений: 17
  • Спасибо: 0

Re: Как провести линию под углом 45 град.?

Тебе поможет это:
(command "_.lengthen" "_DY" имя_линии_0.00001_мм_под_углом "" конечная_точка_этой линии pause "")
Ищи в форуме сочетание "резиновая линия"

  • янус
  • Восстановленный участник
  • На форуме с 29 ноября 2004г.
  • Сообщений: 19
  • Спасибо: 0

Re: Как провести линию под углом 45 град.?

народ !!!!
а как сделать чтобы я мог взять готовую  (начерченную) линию или текст выделить и она повернулась на 45 градусов (привязав кадовскую кнопку)
Это очень удобно для построения схем,
если кто-то творит такие штуки в акаде (круто было если бы еще и в русском)
Был бы очень благодарен!!!!