[valerik88]

В окне редактирования блока в свойствах можно установить "Одинаковый масштаб", тогда масштаб по всем осям всегда будет один и тот же.

При установки этого свойства, в дампе блока меняется свойство
ScaleFactors/UniformScale (type: double) (LocalName: Масштаб) = 1.000000

Пытаюсь изменить его двумя способами, через vlax-put-property и через setpropertyvalue ни один не работает:

Код:

[Выделить все]

 (setq entBlockDefinition (tblobjname "block" "мой блок"))   
 (setq objBlockDefinition (vlax-ename->vla-object entBlockDefinition))
    
 (vlax-put-property objBlockDefinition "ScaleFactors/UniformScale" 1)
 (setpropertyvalue entBlockDefinition "ScaleFactors/UniformScale" 1)

[koMon]

определение блока и его вхождение это не одно и то же. как-то масштаба не должно быть в определении блока по логике.

[valerik88]

Может свойство как-то по другому называется... Может это не ScaleFactors/UniformScale, а что-то другое. В свойствах при редактировании блока ведь оно есть.

[kacugu]

Сообщение от valerik88 Может свойство как-то по другому называется

Поищите

Код:

[Выделить все]

 (vla-put-BlockScaling block acUniform)

[Vladimir_Sergeevich]

может (vla-put-BlockScaling <blkDefObj> :vlax-true) поможет?
Хотя может и не :vlax-true, а 1. А может надо напрямую писать (vla-put-BlockScaling <blkDefObj> acUniform)

[koMon]

[valerik88]

Сообщение от kacugu Поищите Код: [Выделить все] (vla-put-BlockScaling block acUniform)

Чёт не работает у меня эта команда, выдаёт ошибку
; ошибка: ActiveX Server возвратил ошибку: неизвестное имя: BlockScaling
Autocad 2021

А, нет, всё супер. Всё работает. Просто определение блока не так получал. Так правильно:

Код:

[Выделить все]

 (setq ent (car (entsel)))
;; get the block definition ename
(setq block (cdr (assoc 330 (entget (tblobjname "block" (cdr (assoc 2 (entget ent))))))))
;; convert the ename into a vla-object
(setq block (vlax-ename->vla-object block))
;; set the BlockScaling of the block definition
(vla-put-BlockScaling block acUniform)