pblock16.mnl.20070204

Информация

Проект: Pblock

Файл: pblock16.mnl

Язык: AutoLISP

Версия от 4 февраля 2007

Код

(autoload "pblock.vlx" '("pblock"))
 
(vl-load-com)
 
;; учитывать при отрисовке в Модели значение DIMSCALE текущего размерного стиля
;; nil  - не учитывать
;; T - учитывать
(vl-bb-set 'vk_pblock_dimscale t) ;_ учитывать DIMSCALE
 
;; коэффициент увеличения высоты текста и отступов относительно текущего значения DIMTXT и DIMGAP
;; аргумент - вещественное (REAL) положительное или nil
;; если задано nil или тип аргумента отличается от REAL положительного - эквивалентно 1.0
(vl-bb-set 'vk_pblock_hmul 1.4) ;_ высота текста = 1.4 * DIMTXT (как он выглядит на листе)
 
;; заданный фиксированый диаметр окружности
;; аргумент - вещественное (REAL) положительное
;; если задано nil или тип аргумента отличается от REAL положительного - автоматический подбор диаметра
(vl-bb-set 'vk_pblock_diafix 12.0) ;_ диаметр окружности 12.0 (как она выглядит на листе)
 
;; задержка чтения файла описания диалога в миллисекундах
;; рекомендуется подобрать при сбоях или отсутствии окна диалога при редактировании
;; аргумент -  целое положительное или nil (нет задержки)
;; для Windows 98 - чаще всего nil (не требуется)
;; для Windows 2000  - при глюках оптимально 50 (минимум 15), иногда nil (не требуется)
;; для Windows XP - в случае отсутствия диалога увеличить до 500 или выше
(vl-bb-set 'vk_pblock_delay 50) ;_ 50 миллисекунд
 
;; цвет текста - соответствует 62 группе DXF
(vl-bb-set 'vk_pblock_tcolor 5) ;_ 0=BYBLOCK
 
;; имя слоя текста - соответствует 8 группе DXF
(vl-bb-set 'vk_pblock_tlayer "1") 
 
;; цвет линий - соответствует 62 группе DXF
(vl-bb-set 'vk_pblock_lcolor 5) ;_ 0=BYBLOCK
 
;; имя слоя линий - соответствует 8 группе DXF
(vl-bb-set 'vk_pblock_llayer "1") 
 
;; режим отладки
;; T - отладка
;; nil - рабочий режим
(vl-bb-set 'vk_pblock_debug nil) ;_ рабочий режим