|
Тема |
моля да бъда извинен [re: Pin] |
|
Автор | StSt (Нерегистриран) | |
Публикувано | 26.05.06 23:11 |
|
|
Pin е прав.
Затова моля за извинение.
Решението е в първия ред на програмата да се запише
(command "UCS" "W")
а на последния
(command "UCS" "P")
това решава проблема с координатната система - ще дава текста на друго място.
Резултатите не се влияят от координатната система - функция entget на AutoLISP връща координатите на точките в световна координатна система.
За да се избегне деленето на нула предлагам
(IF (/= (CAR dpt)0.0)(SETQ result (/ (cadr dpt)(* 10.0 (car dpt))))(SETQ result (EXPT 10.0 10)))
Всъщност това беше и идеята ми да пусна тази тема - обмен на идеи
Благодаря на Pin
|
| |
|
|
|