|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
10.10.2003, 14:26 | #1 | |
Как извлекать переменные которые считает MASSPROP в LISPe?
Регистрация: 10.10.2003
Сообщений: 2
|
||
Просмотров: 4943
|
|
||||
Регистрация: 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) ) все удачи |
|||