[solo]

Перестала работать часть лиспов, в частности, такой:
(defun c:sp ()
(setvar "clayer" "dim")
(setq dim (entsel)
dim_data (entget (car dim))
st (cdr (assoc 13 dim_data))
en (cdr (assoc 14 dim_data))
ang (cdr (assoc 50 dim_data))
in (cdr (assoc 10 dim_data))
an (/ (* ang 180) pi)
pt1 (getpoint "\nPick additional point:")
);setq
(entdel (car dim))
(command "dim" "rotated" an st pt1 in "" "continue" en "" "exit")
(princ)
)
В чем причина? (Правда, лиспы древние, написаны еще для 12 версии...)

[Profan]

Возможно, у вас русская версия. В английской версии AutoCAD 2005 программа работает, в русской вылетает аварийно. Вариант программы, работающий в русской версии:

Код:

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

(defun c:sp ( / echo lay dim dim_data st en ang in an pt1)
(setq echo (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq lay (getvar "clayer"))
(setvar "clayer" "dim") 
(setq dim (entsel) 
dim_data (entget (car dim)) 
st (cdr (assoc 13 dim_data)) 
en (cdr (assoc 14 dim_data)) 
ang (cdr (assoc 50 dim_data)) 
in (cdr (assoc 10 dim_data)) 
an (/ (* ang 180) pi) 
pt1 (getpoint "\nУкажите дополнительную точку:") 
);setq 
(entdel (car dim)) 
(command "_dim" "_rotated" an st pt1 in "" "_continue" en "" "_exit")
(setvar "cmdecho" echo)
(setvar "clayer" lay)
(princ) 
)

[solo]

Нет. у меня англ. версия. Что-то происходит во время использования временных клавиш. Пока не могу понять

[Profan]

Для solo.
А при чем здесь временные клавиши?

[Геннадий aka PG]

Может просто слоя "DIM" нет в чертеже?

[Profan]

Слой "dim" должен присутствовать, более того, на нем должен быть отрисован какой-нибудь размер.
Для solo.
Проверил сейчас на AutoCAD 2006 ENG. Все работает, и ваша программа, и мой вариант. Интересная программа сама по себе. Можно ее использовать в своих целях?

[solo]

Да, конечно! Мне будет очень приятно, что вам пригодилась моя писанина 100летней давности... :roll:
Буду проверять дальше... Дело в том, что после загрузки автокада сначала все ок, но вдруг в какой-то момент после испоьзования временных кнопок что-то происходит. И лисп не срабатывает.