> 1 <

Автор Сообщение

Паша

Members


Статус

1 сообщений

Где: Russia
Род занятий:
Возраст:

#7409   2014-07-30 12:04 GMT+3 часа(ов)      
Лисп написан 100 лет назад. но когда команду нажимаем появляется ошибка. error: no function definition: G
макрос на команду ^C^C$i=ACAD.image_spk $i=ACAD.*
сам лисп
( defun c:svar ()
(setq osm (getvar "osmode"))
(setvar "osmode" 0)
(setq a1 (getpoint "\nУкажите сварной шов : >")
a2 (getpoint a1 "\nНаправление стрелки : >")
ang (angle a1 a2)
ang1 (g 10.62)
ang2 (+ ang ang1)
a3 (polar a1 ang (* 20 sd))
a4 (polar a1 ang2 (* 8.14 sd))
a5 (polar a1 ang (* 6 sd ))
)
(command "line" a1 a3 ""
"line" a1 a4 a5 "")
(setvar "osmode" osm)
)

gomer

Members


Статус

23 сообщений

Где: Ukraine
Род занятий:
Возраст:

#7411   2014-08-17 06:10 GMT+3 часа(ов)      
ang1 (g 10.62)
ошибка здесь, глубинный смысл сего лично мне не понятен, возможно функция описана в другом файле, который не загружен. либо это опечатка. Если функция переводит градусы в радианы, то можно поискать замену, например DTR, это не встроенная функция, но найти ее не сложно
> 1 <


Онлайн :

0 пользователь(ей), 25 гость(ей) :




Реклама на сайте: