Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → VBA → Как программно получить значение Scale?
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Как в ADT2006/2007 получить значение Scale, которое находится в Drawing window status bar(расположен над командной строкой)?
Там могут быть значения от 1:1 до 1:5000 или custom.
Попасть в этот же список можно через Format-Drawing Setup, вкладка Scale. Текущее значение подсвечено.
история вопроса:
В модели стоит Scale 1:100.
При попытке в программе установить значение Lineweight=0.5 возникает ошибка.
Присваиваю Lineweight=50 - все нормально, после завершения программы смотрю Property объекта, там отображается Lineweight=0.5.
Т.е. для программного присваивания Lineweight надо требемое значение умножить на Scale (0.5*100=50).
> Anatoly
Это показывает незнание вопроса. И не более того.
[F1] -> search -> lineweight property
Lineweight Property
Specifies the lineweight of an individual object or the default lineweight for the drawing.
Signatureobject.Lineweightobject All Drawing objects; DatabasePreferences, Layer
The object or objects this property applies to.
Lineweight
acLineWeight enum; read-write
acLnWtByLayer
acLnWtByBlock
acLnWtByLwDefault
acLnWt000
acLnWt005
acLnWt009
acLnWt013
acLnWt015
acLnWt018
acLnWt020
acLnWt025
acLnWt030
acLnWt035
acLnWt040
acLnWt050
acLnWt053
acLnWt060
acLnWt070
acLnWt080
acLnWt090
acLnWt100
acLnWt106
acLnWt120
acLnWt140
acLnWt158
acLnWt200
acLnWt211
А теперь возьми в vbaide в Immediate Panel вколоти:
? acLnWt020
Чего получаешь?
А если поменять "масштаб"?
Спасибо,
действительно, использование acLnWt050 при любом Scale дает значение 50 и соответственно 0.50 в свойствах объекта.
Но все же интересно получить значение Scale, подозреваю, что понадобится для других целей.
ThisDrawing.GetVariable "DimScale"
ЯТД.
Спасибо еще раз.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → VBA → Как программно получить значение Scale?
Форум работает на PunBB, при поддержке Informer Technologies, Inc
