Создать в чертеже - таблицу точек проводников ПП...

[SERoz 201]

streamdown

Спасибо за разъяснения - а то копаюсь в этом всём, а толку нуль...

С таблицей отв., вышел небольшой прокол - она вишли берёт только круглые кромки, а куски от отв. не хочет...

И вааще не понятно, почему разрабы не смогли сделать в ней (табл.отв.) переключатель грань\точка - ведь выводятся те же точки (только центральные)???

Пробовал через DXF посмотреть координаты - опять же, копаться нужно очень долго...

Пробовал через компас сделать - делает по одной точке, но заморочек с обработкой результатов ещё больше...

Попробую всё же освоить макрос - может чего и вытяну из него...

Может ssv22 чем поможет, он вроде обмолвился (пару лет назад), что у него был такой макрос...

Вообщем - всем ответившим спасибо!!!

Буду копать дальшее и глубжее (если получится) ....

[SERoz 201]

Макрос показывает все значения в окошечке снизу "Immediate".

Шипко извиняюсь , но что это за окошко (вроде никада не попадалось или просто слепой)??

Сколько не всматривался, так и не увидел никаких окошков или выводимого текста...

Ещё раз пардон-с - ещё мааленький вопросик...

Вот, в тех макросах (по ссылкам), ssv22 пишет, что можно добавить несколько строк для вывода в файл - где это можно подсмотреть (с инглишом туго, а искать незнамо что - сложно)..

[VOleg 228]

А если действительно отрисовать все точки кружочками и получит их координаты (через табл.отв.) - во как...

/quote]

Точки не надо отрисовывать кружочками - достаточно создать массив по эскизу с точками...

[SERoz 201]

Точки не надо отрисовывать кружочками - достаточно создать массив по эскизу с точками...

Массив низя, т.к. все расстояния разные...

Впрочем - попробую и этот вариант...

Вот для примера простейший вариант платы, видимые дуги - это есть куча отрезков (причём по разным радиусам), по вершинам которых и надо получить координаты...

С кружками (отв.) не прошло, т.к. (по странному стечению мысли разрабов) внешние контуры проводников совпадают с контуром платы и получаются не полные кружочки, а такое СВ не понимает (почему-то )

[GOLF_stream 297]

Вот для примера простейший вариант платы, видимые дуги - это есть куча отрезков (причём по разным радиусам)

Что это такое?

Зачем это?

[JohnsonN 50]

Массив низя, т.к. все расстояния разные...

Для массива, управляемого эскизом (или таблицей) это не имеет значения.

[VOleg 228]

Для массива, управляемого эскизом (или таблицей) это не имеет значения.

Мы сначала по координатам в таблице строим массив - и из него получаем таблицу координат... Занятно!

[SERoz 201]

Что это такое?

Зачем это?

Это напылённая плата для ГГц диапазона (только пример, т.с. для понимания)...

Это для зарплаты

Для массива, управляемого эскизом (или таблицей) это не имеет значения.

Занятно!

Именно - занятно (что было первым - яйцо или курица??)...

Мне как раз не хватает таблицы координат, которую и хочу получить по уже готовой модели ...

[streamdown 1 565]

SERoz

Я тут порылся))) и нашёл вам подходящий макро

работает как на 3D так и на 2D эскизах.

Sub main()

 Dim swApp As SldWorks.SldWorks

 Dim doc As SldWorks.ModelDoc2

 Dim part As SldWorks.PartDoc

 Dim sm As SldWorks.SelectionMgr

 Dim feat As SldWorks.Feature

 Dim sketch As SldWorks.sketch

 Dim v As Variant

 Dim i As Long

 Dim sseg As SldWorks.SketchSegment

 Dim sline As SldWorks.SketchLine

 Dim sp As SldWorks.SketchPoint

 Dim ep As SldWorks.SketchPoint

 Dim s As String

  

 Dim exApp As Excel.Application

 Dim sheet As Excel.Worksheet

  

  Set exApp = New Excel.Application

  If Not exApp Is Nothing Then

   exApp.Visible = True

   If Not exApp Is Nothing Then

	exApp.Workbooks.Add

	Set sheet = exApp.ActiveSheet

	If Not sheet Is Nothing Then

	 sheet.Cells(1, 5).Value = "Job Number"

	 sheet.Cells(1, 6).Value = "=NOW()"

	 sheet.Cells(2, 2).Value = "X"

	 sheet.Cells(2, 3).Value = "Y"

	 sheet.Cells(2, 4).Value = "Z"

	End If

   End If

  End If

  

  Set swApp = GetObject(, "sldworks.application")

  If Not swApp Is Nothing Then

   Set doc = swApp.ActiveDoc

   If Not doc Is Nothing Then

	If doc.GetType = swDocPART Then

	 Set part = doc

	 Set sm = doc.SelectionManager

	 If Not part Is Nothing And Not sm Is Nothing Then

	  If sm.GetSelectedObjectType2(1) = swSelSKETCHES Then

	   Set feat = sm.GetSelectedObject4(1)

	   Set sketch = feat.GetSpecificFeature

	   If Not sketch Is Nothing Then

		v = sketch.GetSketchPoints

		For i = LBound(v) To UBound(v)

		 Set sp = v(i)

		 If Not sp Is Nothing And Not sheet Is Nothing And Not exApp Is Nothing Then

		  sheet.Cells(3 + i, 1).Value = "Pt. " & i + 1

		  sheet.Cells(3 + i, 2).Value = Round(sp.X * 1000 / 1, 3)

		  sheet.Cells(3 + i, 3).Value = Round(sp.Y * 1000 / 1, 3)

		  sheet.Cells(3 + i, 4).Value = Round(sp.Z * 1000 / 1, 3)

		  exApp.Columns.AutoFit

		 End If

		Next i

	   End If

	  End If

	 End If

	End If

   End If

  End If

 End Sub

В библиотеках не забыть подключить Microsoft Excel Object library

Есть ограничения:

' Create a 3dSketch in that part file

' 3d skecth cannot have any coincident relations to other points or else there will be double coordinates in the table

' Select that 3dsketch and run macro

' Modify excel file with appropriate format and additional text and save

' File can now be inserted into Solidworks drawing file

[SERoz 201]

ОГРОМНЕЙШЕЕ СПАСИБО!!

Щас прибегу на работу попробую...

[SERoz 201]

streamdown

Ещё раз спасибо - всё работает и то что надо...

Только немного странно, за нулевую точку почему-то берется не 0,0, а верхний\правый угол эскиза (т.е. - Pt. 1 не 0,0)???

Но сортировкой в экселе это решаемо...

Может чего-то ещё недопонял, буду копать далее...

[SERoz 201]

Скрытый текст: 1

Прошу сильно не пинать - в связи с концом света, мозг отказывается нормально работать...

При первом запуске макроса (по тексту приведённому streamdown ) - всё прошло нормально и без вопросов...
А вот при повторном формировании макроса (первоначальный потерялся и пришлось формировать заново), чего-то никак не могу получить правильную таблицу в Экселе...
Т.е. файл экселя открывается (библиотеку Экселя прописал в Солиде), формируется шапка таблицы (XYZ) - и всё ???

Насколько помню, при первом формировании макроса ничего сложного не делал, только прописал библиотеку Экселя - щас сделал тоже самое и всё по-нулям...
Макрос запускаю в эскизе, да и на чертеже пробовал - фиг-вам

Можно ли как-то повлиять на макрос, что бы он выдал нормальну таблицу???

Говорил же, что день не тот - перепутал работу макроса и таблицы отверстий (не точно чего-то будет - напюсь наверное )