Архитектору и проектировщику|Тепло- и звукоизоляция URSA.RU
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как извлекать переменные которые считает MASSPROP в LISPe?

Как извлекать переменные которые считает MASSPROP в LISPe?

Ответ
Поиск в этой теме
Непрочитано 10.10.2003, 14:26 #1
Как извлекать переменные которые считает MASSPROP в LISPe?
Денис
 
Регистрация: 10.10.2003
Сообщений: 2

Подскажите пожалуйста, очень нужно для расчетов!
Как извлекать переменные которые считает MASSPROP в LISPe?
Есть ли какие-нибудь системные переменные?
Короче, надо подсчитать объемы кучи нарисованных 3D-тел.
Просмотров: 3805
 
Непрочитано 13.10.2003, 12:20 Re
#2
Andrew


 
Регистрация: 13.10.2003
Сообщений: 1


Лиспик старый, корявый, но работает.
file: mas-sp.lsp
(defun c:mas-sp()
(setq old (getvar "osmode"))
(setvar "osmode" 0)
(setq eh (getvar "cmdecho"))
(setvar "cmdecho" 0)


(if (= po nil) (setq po 0.00000785))
;(while ((setq ob1 (car (entsel "Выбери объект: ")))))
(setq ob1 (ssget))
(command "_massprop" ob1 "" "y" "tmpp")
(setq a1 (findfile "tmpp.mpr" ))
(setq a (open a1 "r"))
(repeat 4
(setq ttxx (read-line a))

)
(close a)
(setq text3 (substr ttxx 25 100))
(setq text4 (* (atof text3) po))


(setq slen (strlen text3))
(setvar "cmdecho" eh )
(setvar "osmode" old)
(princ "\nМатериал-Сталь")
(princ "\nМасса объекта: ")
(princ text4)
(princ " кг")
(princ)
)

все удачи
Andrew вне форума  
 
Автор темы   Непрочитано 13.10.2003, 12:55 Re: Re
#3
Денис


 
Регистрация: 10.10.2003
Сообщений: 2


Огромное СПАСИБО, получил!
Денис вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как извлекать переменные которые считает MASSPROP в LISPe?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск