Заменить блок с атрибутами в нескольких чертежах с помощью переопределения

Olga94

Здравствуйте Уважаемые специалисты NanoCAD!

Подскажите пожалуйста, как разом переопределить блок в нескольких чертежах?

*если через "Обозреватель файлов", то это по одному.

Olga94

-INSERT
C:\имя_блока.dwg=
(COMMAND \E "RESUME")
-QSAVE

Таким скриптом не сработало

Olga94

Через vba можно так (кому интересно):

Sub RedefineBlock()

Dim blockFile As String

Dim blockName As String

Dim blk As AcadBlockReference


blockFile = "пример.dwg"

blockName = "имя_блока"


Dim pt1(0 To 2) As Double

pt1(0) = 1#: pt1(1) = 1#: pt1(2) = 0#


Set blk = ThisDrawing.ModelSpace.InsertBlock(pt1, blockName, 1#, 1#, 1#, 0#)

blk.Update


MsgBox "Переопределенное имя блока= " & blk.Name


Set blk = ThisDrawing.ModelSpace.InsertBlock(pt1, blockFile, 1#, 1#, 1#, 0#)

blk.Update


MsgBox "Переопределенное имя блока= " & blk.Name


blk.Delete


ThisDrawing.Regen acActiveViewport

End Sub

Bucho

С динаимческими блоками нанокада как работать? Больше одного параметра видимости отрабатывает криво.

Bucho

От следующих параметров видимости

ничего не меняется

Bucho

Разобрался:

Для следующего параметра видимости геометрию создавать после создания параметра видимости

Bucho

Нифига

Все равно криво

Olga94

Код проверялся только на простых блоках с атрибутами и не сложных динамических

Bucho

А какая разница пользователю системой?

Я день убил на борьбу с этими параметрами видимости.

Обидно что нанодев много чего рекламирует, но реально доделывает только то, за что можно срубить деньги

Olga94

Появилась версия 24.1.7769

Интересно, что в ней нового?

doctorRAZ

https://forum.nanocad.ru/discussion/comment/2630#Comment_2630

судя по анонсу, не так уж много((

качаю

Olga94

В обновленной версии NanoCAD падение стиля печати (после перехода на именнованную обратно на цветозавис) не исправлено.