[HooDRooK]

не могу понять что за такое!...пытаюсь грузить функцию, начинается так...
(defun C:TR (/ p1 D1 L4 p2 D5 L3 p3 L5 D2 p4 zil_b zil_b2 zil_b3 p5 D3 L44 zil_b4 D4 L1 zil_b5)
ну и т.д.

При вводе (С:TR) акад выдаёт

; ошибка: no function definition: C:TR

в чём может быть косяк?

[Profan]

А ты бы еще так описал функцию:
(defun C:TR
ну и т.д.
В чем косяк?
А вообще, при таком определении функции надо вводить просто TR.

[Makswell]

При вводе (С:TR) у тебя "С" - из русской раскладки.

Если посмотреть твой пост в шестнадцатеричной системе, то будет видно, что С у тебя идёт под ascii-кодом D1, а должен быть код 43, что соответствует C латинской.

И ещё, если вводишь в командной строке Автокада (а не в консоли лиспа), то достаточно набрать просто TR.

[HooDRooK]

Код такой...

Код:

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

(defun C:TR (/ p1 D1 L4 p2 D5 L3 p3 L5 D2 p4 zil_b zil_b2 zil_b3 p5 D3 L44 zil_b4 D4 L1 zil_b5)
(setq p1 (getpoint "\nУкажите центр детали"));получение размеров нижнего циллиндра
(setq D1 (getdist p1 "\nУкажите D1/2"))
(setq L4 (getdist p1 "\nУкажите L1-L2"))
(setq p2 (list (car p1) (cadr p1) L4)); получение координат центра верхнего основания цилиндра
(command "_circle" p1 D1);отрисовка окружности
(command "_extrude" (entlast) "" L4);выдавливание 1 цилиндра (вверх)
(setq zil_b (entlast));запомнить 1 цилиндр для последующего вычитания
  (setq D5 (getdist p2 "\nУкажите D5/2"));получение размеров второго циллиндра (далее аналогично для всех циллиндров в детали)
(setq L3 (getdist p2 "\nУкажите L3"))
(setq p3 (list (car p1) (cadr p1) (+ L4 L3)))
  (command "_circle" p2 D5)
(command "_extrude" (entlast) "" L3)
(setq zil_b2 (entlast))
  (setq D2 (getdist p3 "\nУкажите D2/2"))
(setq L5 (getdist p3 "\nУкажите L2-L3"))
(setq p4 (list (car p1) (cadr p1) (+ L4  L5 L3)))
  (command "_circle" p3 D2)
(command "_extrude" (entlast) "" L5)
(setq zil_b3 (entlast))
(setq D3 (getdist p4 "\nУкажите D3/2"));получение координат внутренниж циллиндров
(setq L44 (getdist p4 "\nУкажите L4"))
  (command "_circle" p4 D3)
(command "_extrude" (entlast) "" (- L44));выдавливание цилиндра (вниз)
(setq zil_b4 (entlast))
(setq D4 (getdist p4 "\nУкажите D4/2"))
  (command "_circle" p4 D4)
(command "_extrude" (entlast) "" (- (+ L4 L5 L3))
(setq zil_b5 (entlast))
)

Так вот даже при вводе (TR) и замене С с русского на английский всё равно выдаёт такую ошибку...

[CB]

Не хватает скобки...

Код:

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

 
.....................................
(command "_circle" p4 D4)
(command "_extrude" (entlast) "" (- (+ L4 L5 L3)) )
(setq zil_b5 (entlast))
)

[HooDRooK]

Спасибо заработало..)))