[игорёк]

Подскажите как начертить линию вторую и третью точку указав в полярных координатах, без пересчета координат. просто указать первую точку, а вторую построить по R(радиус ) f(угол в град или рад.)

[Кочетков Андрей]

Specify next point or [Undo]: @100<45

где 100 - радиус, 45 - угол.

[игорёк]

Да склавиатуры то я могу ввести...
Как написать это на lisp "@ 100, 45"

[VVA]

Все возможные варианты указаня углов можешь посмотреть, набрав в ком. строке _units. В угловых единицах перебираешь форматы (Десятичные градусы, грады, радианы), и в поле пример смотришь образец, типа 3<0.785r,0
Независимо от установок Автокаду в ответ на заврос угла можно задать:
1. 38.25 - 38.25 градуса
2. 38d25'15.8" - 38 градусов 25 минут 15.8 секунды
3. 0.872665r - 0.872665 радиан (50 градусов)
4. 55.556g - 55.556 градов (50 градусов)и т. д. см. _units
Если в относительных полярных координатах, то
_pline
указываем точку
@120<55.556g (120 - радиус 55.556g - угол в градах)
...

Help

AutoCAD использует следующие соглашения относительно угловых единиц измерения: градусы представляются в виде десятичных чисел; грады — с суффиксом g, радианы — с суффиксом r. В формате градусы/минуты/секунды после значения градусов следует буква d, после минут — знак ', после секунд — знак ", например: 123d45'56.7" В топографическом формате сначала ставится символ N или S, обозначающий базовое направление отсчета румбов (север или юг), затем численное значение румба, и далее — символ E или W (восток или запад), указывающий квадрант, в котором находится румб, например: N 45d0'0" E Угол здесь всегда меньше 90 градусов и выводится в формате градусы/минуты/секунды. Если угол совпадает с одним из географических направлений (север, юг, восток или запад), он представляется только соответствующей буквой

[VVA]

Как написать это на lisp "@ 100, 45"

Так и написать
(command "_.pline" "0,0" "@120<55.556g" "")

[игорёк]

C числами все получается, но в проге надо использовать переменные а с ними не получается....
(command "_.pline" "0,0" "@t1<t2 g" "")
не работает....

[VVA]

А так

Код:

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

(setq R 120)     ;_Радуис
(setq Ug 55.556) ;угол в градах
(command "_.pline"
	 "0,0"
	 (strcat "@"
		 (VL-PRINC-TO-STRING R)
		 "<"
		 (VL-PRINC-TO-STRING UG)
		 "g"
	 )
	 ""
)

[игорёк]

Я сделал тоже, но думал есть пути по короче...


command "_.pline" "0,0" (strcat "@" (rtos t1) "<" (rtos t2) ) "")

[VVA]

Если ug- угол в радианах, то можно

Код:

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

(setq R 120)     ;_Радуис 
(setq Ug (/ PI 4)) ;угол в радианах (45 градусов)
(command "_pline" "0,0" (polar (getvar "LASTPOINT") ug R) "")

[игорёк]

На выходных сам наткнулся на функцию "polar". Как раз то что нужно в данном случае.
Все равно спасибо за совет!