[granit201z]

Код проги следующий:

Код:

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

 (defun c:rr (/ t2x t2y t3x t3y tet)
 
  (setq actdoc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq obj (vla-get-ModelSpace actdoc))

(setq t2x 14.1)
(setq t2y 13.2)

(setq t3x 11.0)
(setq t3y 18.7)

(setq tet (angle '(t2x t2y) '(t3x t3y)))

(setq tet (rtos tet 2 2))

    (vla-AddMText obj (vlax-3D-point 0 0 0.0) 0 tet)
)

ВЫДАЕТ ОШИБКУ
__________________________________________________

Команда: RR
; ошибка: неверный тип аргумента: 2D/3D точка: (T2X T2Y)
__________________________________________________

В ТО ВРЕМЯ КАК ТОЖЕ САМОЕ НО ЗАПИСАННОЕ ТАК:

Код:

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

 (defun c:rr (/ tet)
 
  (setq actdoc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq obj (vla-get-ModelSpace actdoc))

(setq tet (angle '(14.1 13.2) '(11.0 18.7)))

(setq tet (rtos tet 2 2))

    (vla-AddMText obj (vlax-3D-point 0 0 0.0) 0 tet)
)

РИСУЕТ ТО ЧТО ТРЕБУЕТСЯ, НО МНЕ ТО НАДО ЧТОБЫ КООРДИНАТЫ ТОЧЕК (T2X...T3Y) ОПРЕДЕЛЯЛИСЬ ЧЕРЕЗ ПЕРЕМЕННЫЕ, А НЕ ЧЕРЕЗ ЦИФРЫ. ПОМОГИТЕ ПОЖАЛУЙСТА

[gomer]

Вместо ' используй list