групповое изменение едениц измерения

[deonisiy2004]

здравствуйте!

есть папка, в ней много файлов деталей. все они имеют единицы измерения - дюймы. как осуществить групповое изменение единиц измерения в файлах?

заранее спасибо.

[niksasa]

---

deonisiy2004 написано:

здравствуйте!

есть папка, в ней много файлов деталей. все они имеют единицы измерения - дюймы. как осуществить групповое изменение единиц измерения в файлах?

заранее спасибо.

---

Создаете новую сборку, в нее вставляте нужные вам детали и с помощью макроса или правила ilogic обходите все компоненты и меняете в них едиицы измерения

[deonisiy2004]

Спасибо. А существует ли способ сделать это через планировщик? Файлов реально много.

[niksasa]

deonisiy2004 написано:

Файлов реально много.

---

Много - это сколько? В сборку файлы можно вставить все сразу из указанной папки.

[deonisiy2004]

около 1000

[niksasa · Accepted solution]

---

deonisiy2004 написано:

около 1000

---

Ничего страшного:

 - поместите все нужные детали в одну папку или в несколько папок,

- создайте новую сборку,

- вставьте все компоненты в сборку (зажмите клавишу shift, укажите первую деталь и последнюю в папке),

- создайте новое правило ilogic и туда вставьте код:

Dim sDoc As AssemblyDocument
sDoc = ThisApplication.ActiveDocument
Dim oOccurrence As ComponentOccurrence
For Each oOccurrence In sDoc.ComponentDefinition.Occurrences
    Dim oDoc As Document
    oDoc = oOccurrence.Definition.Document
    units=oDoc.unitsofmeasure.lengthunits
	'дюймы в мм
If units=11272 Then
oDoc.unitsofmeasure.lengthunits=11269
End If 
Next

 - нажмите ok, чтобы выполнить правило.

- откройте любую деталь из сборки и увидите, что единицы измерения поменялись.