Здесь вы можете скачать документацию и программы для САПР AutoCAD, PCAD, 3DS, Inventor, Pro/E, Solidworks и других CAD CAM CAE EDA GIS

Установить высоту всех текстовых стилей в 0

;;; tsh0.LSP ver 1.0
;;; Установка высоты всех текстовых стилей в 0
;;; By Jimmy Bergmark
;;; Copyright (C) 2008 JTB World, All Rights Reserved
;;;
;;; Проверено на AutoCAD 2009
;;; Функция должна работать на более ранних и более поздних версиях AutoCAD

(defun C:TSH0 (/ ad style oldcmdecho)
  (vl-load-com)
  (setq ad (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (princ "Listed text style's height have been set to 0:")
  (vlax-for style (vla-get-TextStyles ad)
    (if (and (/= (wcmatch (vla-get-Name style) "*|*") T) (/= (vla-get-Height style) 0.0))
      (progn
       (vla-put-Height style 0.0)
       (princ "\n")
       (princ (vla-get-Name style))
      )
    )
  )
  (setq oldcmdecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "._regenall")
  (setvar "cmdecho" oldcmdecho)
  (princ)
)

(princ "\nВведите команду TSH0")
(princ)