Новая версия сайта, доступна здесь.
Радиус дуги
arc-radius.gif (233 Кб)
;; arc-radius.lsp (defun arc-radius (/ GR LST PT) ;| ***************************************************************************************** by ElpanovEvgeniy Демонстрационная учебная программа. Программа позволяет выбрать дугу и динамически изменять ее диаметр, сохраняя начальный и конечный угол, а так же центр. В программе используется прямое редактирование DXF кодов дуги. Дата создания 03.22.2005 последняя редакция --- ***************************************************************************************** Demonstration, educational code The program allows to choose an arc and dynamically to change its diameter, Saving an initial and final angle, and centre point. In the program direct editing DXF of codes of an arc. Date of creation 03.22.2005 Last edition --- (arc-radius) ***************************************************************************************** |; (setq lst (entget (car (entsel "\n Select an arc "))) pt (cdr (assoc 10 lst)) ) ;_ setq (princ "\n Select new radius ") (while (and (setq gr (grread 5)) (= (car gr) 5)) (entmod (subst (cons 40 (distance pt (cadr gr))) (assoc 40 lst) lst)) (entupd (cdr (assoc -1 lst))) ) ;_ while ) ;_ defun ;|«Visual LISP© Format Options» (80 1 2 2 T " " 80 60 0 0 0 nil nil nil T) ;*** DO NOT add text below the comment! ***|;