|
Тема |
Re: за сравнение [re: пporpaмиcт] |
|
Автор | StSt (Нерегистриран) | |
Публикувано | 04.06.06 19:59 |
|
|
Имаше въпроси за ефективността и перспективността на LISP. Затова давам същата програма написана на LISP.
;променя DIMSCALE
(DEFUN chdScale (direction / dScale nab)
(setq nab (ssget "x" '((0 . "DIMENSION")))
dScale (GETVAR "DIMSCALE"))
(COND
((AND direction (< dScale 1.0))(SETQ dScale (* dScale 2.0)))
((AND direction (> dScale 1.0))(SETQ dScale (1+ dScale )))
((AND direction (> dScale 2.0))(SETQ dScale (1- dScale )))
(T (SETQ dScale (/ dScale 2.0)))
);COND
(SETVAR "DIMSCALE" dScale)
(COMMAND "DIM1")
(COMMAND "UPDATE" NAB "")
);chdScale
При създаване на бутони за увеличаване и намаляване на DIMSCALE в "Macro associated in this button" трябва да се запише
(chdScale T) - за увеличаване
(chdScale nil) - за намаляване
Увеличение на скоростта на обработка при варианта на LISP програмата ще се усети при чертежи с много чертожни елементи.
|
| |
|
|
|