Тема: LISP. Масштабирование узлов с размерами в пространстве модели.
;**************** overdimscale.lsp ********************************
; Масштабирование в пространстве модели образмеренных
; объектов с сохранением величины размера.
; Автор Владимир Громов.
;
(defun C:OVERDIMSCALE ( / tn tk ss1 ss ssn1 n pp pp1 ssn dim text skl)
(princ "\n Выбор объектов.")
(setq tn (getpoint "\ Первый угол рамки: "))
(setq tk (getcorner tn "\n Второй угол рамки: "))
(vl-cmdf "_.UNDO" "_be")
(setq ss1 (ssget "_W" tn tk))
(if ss1
(progn
(setq ss (ssadd))
(setq ssn1 (sslength ss1) n 0)
(repeat ssn1
(setq pp (ssname ss1 n))
(setq pp1 (entget pp))
(cond
((= (cdr (assoc 0 pp1)) "DIMENSION") (ssadd pp ss)
))
(setq n (+ n 1))
) ; repeat
(if ss
(progn
(setq ssn (sslength ss) n 0)
(repeat ssn
(setq dim (ssname ss n))
(setq dim (entget dim))
(setq text (cdr (assoc 42 dim)))
(setq text (rtos text))
(setq dim (subst (cons 1 text) (assoc 1 dim) dim))
(entmod dim)
(setq n (+ n 1))
) ; repeat
(princ "\n Перезаписано ") (princ ssn) (princ " размеров.")
) ; progn
) ; if
(initget 6)
(setq skl (getreal "\n Масштаб (Enter-Отказ): "))
(if skl
(progn
(princ "\n Базовая точка: ")
(command "_scale" ss1 "" pause skl)
) ; progn
) ; if
) ; progn
(princ "\n Ничего не выбрано.")
) ; if
(vl-cmdf "_.UNDO" "_e")
(princ)
)
