dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Справочник команд > INSUNITS (Системная переменная)

INSUNITS (Системная переменная)

Версия для печати
 
Ответ
Опции темы Поиск в этой теме
Непрочитано 28.10.2008, 13:08 #1
INSUNITS (Системная переменная)
VVA
 
Инженер LISP
 
Минск
Регистрация: 11.05.2005
Сообщений: 6,675
Отправить сообщение для VVA с помощью ICQ Отправить сообщение для VVA с помощью Skype™

VVA вне форума Вставить имя

Доступно в Автокад 2000-2009
Из справки Автокада 2006 Рус
Тип: целый
Сохранен в: рисунок
Начальное значение: 1

Указывает значение в единицах рисунка для автоматического масштабирования блоков, изображений или вставленных или прикрепленных к рисунку внешних ссылок .




0 - Не заданы
1 - Дюймы
2 - Футы
3 - Мили
4 - Миллиметры
5 - Сантиметры
6 - Метры
7 - Километры
8 - Микродюймы
9 - Милы
10 - Ярды
11 - Ангстремы
12 - Нанометры
13 - Микроны
14 - Дециметры
15 - Декаметры
16 - Гектометры
17 - Гигаметры
18 - Астрономические единицы
19 - Световые годы
20 - Парсеки

Существующие блоки можно обработать командой из этой темы
Код:
[Выделить все]
(defun C:BLKXYZ ( / adoc el ssnab en item lays lay lock pell ptcen axss prop)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq lays (vla-get-layers adoc))
  (vla-startundomark adoc)
  (setq axss (vla-get-activeselectionset adoc))
  (vla-clear axss)
  (vla-select
    axss
    acselectionsetall
    nil
    nil
    (vlax-safearray-fill
      (vlax-make-safearray vlax-vbinteger '(0 . 0)) '(0))
    (vlax-safearray-fill
      (vlax-make-safearray vlax-vbvariant '(0 . 0)) '("INSERT"))
  ) ;_ end of vla-select
  (vlax-for item axss
    (setq lay (vla-item lays (vla-get-layer item)))
    (if (= (vla-get-lock lay) :vlax-true)
      (progn (vla-put-lock lay :vlax-false) (setq lock (cons lay lock))))
    (setq prop (mapcar
		 '(LAMBDA (x)
		    (if (vlax-property-available-p item x)
		      (vlax-get-property item x)
		      1
		      ))
		 '(XEffectiveScaleFactor YEffectiveScaleFactor ZEffectiveScaleFactor)
		 )
	  )
    (setvar "INSUNITS" 0)
    (mapcar '(lambda (x)
	       (if (vlax-property-available-p item x)
	       (vlax-put-property item x 1)))
		'(XEffectiveScaleFactor XScaleFactor YEffectiveScaleFactor YScaleFactor ZEffectiveScaleFactor ZScaleFactor)
	    )
        (mapcar '(lambda (x y)
	       (if (vlax-property-available-p item x)
	       (vlax-put-property item x y)))
   	      '(XScaleFactor YScaleFactor ZScaleFactor)
	       prop
	    )

    )
  (if lock
    (foreach x lock (vla-put-lock x :vlax-true)))
 (vla-endundomark adoc)
 (vla-clear axss) 
 (vla-delete axss) 
 (vlax-release-object axss)
 (vlax-release-object lays)
 (vlax-release-object adoc)
 (princ) 
)
(princ "\nНаберите в ком. строке BLKXYZ")
Просмотров: 7664
 
Непрочитано 01.11.2008, 08:24
#2
Makswell

Инженер-строитель
 
Регистрация: 15.08.2007
Киров
Сообщений: 2,252


Из справки по 2008-му
Цитата:
Примечание: При вставке в чертеж блоков annotative переменная INSUNITS игнорируется.
annotative - значит что свойству "Аннотативный" блока присвоено значение "Да"
Makswell вне форума вставить имя Обратить внимание модератора на это сообщение  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Справочник команд > INSUNITS (Системная переменная)

НАНОКАД 10 лет
Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
MEASUREINIT (Системная переменная) VVA Справочник команд 4 27.02.2016 09:41
QAFLAGS (Системная переменная) VVA Справочник команд 5 21.11.2012 20:55
AREA (Системная переменная) Ddjo Справочник команд 6 15.07.2008 10:52
MTEXTED (Системная переменная) Shoorup Справочник команд 9 10.07.2008 17:19
какая системная переменная отвечает за "вырисовку" Gaa AutoCAD 3 23.02.2006 14:41

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||