Перейти к публикации

Построение точек по абсолютным координатам


ingenerkons

Рекомендованные сообщения

3 минуты назад, ILL сказал:

Чё то Ютуб отказывается у меня видео показывать..

Это из-за блокировки телеги, юзайти днс или впн.

Ссылка на сообщение
Поделиться на других сайтах


1 минуту назад, ILL сказал:

Я с телефона сижу..

На рабочем компе Ютуб давно заблокирован..

Рекомендации для тела и компа теже. Ещё можно турбо включить в браузере, если есть такая фича у него.

Ссылка на сообщение
Поделиться на других сайтах
4 минуты назад, SilaMusli сказал:

Ещё можно турбо включить в браузере, если есть такая фича у него.

 

В Хроме нету.. Оперу ставить не охота..

Ссылка на сообщение
Поделиться на других сайтах
6 минут назад, ILL сказал:

 

В Хроме нету.. Оперу ставить не охота..

В хром поставте холу.

Ссылка на сообщение
Поделиться на других сайтах
  • 3 года спустя...
15.02.2016 в 15:12, artem_cad сказал:

Можете воспользоваться этим макросом: https://cloud.centralinnovation.com.au/sharpcode/index?article=Import-Points-from-CSV-to-Sket

Добрый день. Ссылка не работает. Вы не могли бы её обновить?

Ссылка на сообщение
Поделиться на других сайтах
On 6/2/2021 at 2:01 PM, Марочка said:

Добрый день. Ссылка не работает. Вы не могли бы её обновить?

Вот аналогичный макрос: https://www.codestack.net/solidworks-api/document/sketch/csv-import-points/

Ссылка на сообщение
Поделиться на других сайтах
03.06.2021 в 16:31, artem_cad сказал:

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

macro delimiter.jpg

Ссылка на сообщение
Поделиться на других сайтах
02.06.2021 в 07:01, Марочка сказал:

Вы не могли бы её обновить?

 

03.06.2021 в 16:31, artem_cad сказал:

Вот аналогичный макрос

Вроде можно штатными инструментами втянуть текстовый файл с точками через инструмент ScanTo3D:

...

Файлы PointCloud (*.xyz; *.txt; *.asc; *.vda; *.igs; *.ibl)

...

http://help.solidworks.com/2010/russian/solidworks/scanto3d/legacyhelp/scanto3d/topics/scanto3d_overview.htm

 

1 час назад, Kir95 сказал:

Для кривой по точкам тоже, вроде бы, текстовый файл для импорта с пробелами между координатами точек должен быть

Да, прнимает текстовый файл с пробелмами между значениями (вероятно такие же требования к файлу для варианту через ScanTo3D): 

...

Формат файлов должен быть следующий - исключительно список координат X, Y и Z в трех столбцах, разделенных символом пробела или табуляции. Не включайте заголовков столбцов, например, X, Y и Z или каких-либо других данных.

...

http://help.solidworks.com/2010/russian/solidworks/sldworks/legacyhelp/sldworks/curves/HIDD_CURVE_IN_FILE.htm

 

 

Изменено пользователем Kelny
Ссылка на сообщение
Поделиться на других сайтах
1 час назад, Kelny сказал:

Вроде можно штатными инструментами втянуть текстовый файл с точками через инструмент ScanTo3D

Да, только вместо редактируемого эскиза получается нередактируемое "облако точек"

point cloud.jpg

 

У Артёма есть макрос и для экспорта координат точек в файл

VBA macro to export sketch point coordinates to CSV file (codestack.net)

Ссылка на сообщение
Поделиться на других сайтах
  • 11 месяцев спустя...

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

Прошу перевыложить макрос.  Источник заблокирован.

https://cloud.centralinnovation.com.au/sharpcode/index?article=Import-Points-from-CSV-to-Sket

Ссылка на сообщение
Поделиться на других сайтах
18 часов назад, CadIntruder сказал:

Прошу перевыложить макрос.  Источник заблокирован.

https://web.archive.org/web/20211123175744/https://www.codestack.net/solidworks-api/document/sketch/export-point-coordinates/

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

VBA macro to export sketch point coordinates to CSV file

Share    
More 'Goodies'
 

 

Sketch points in the selected sketch Sketch points in the selected sketch

 

This VBA macro allows to export the coordinates of all sketch points from the selected sketch into the CSV file.

CSV file can be opened in Excel

 

Sketch points coordinates opened in Excel Sketch points coordinates opened in Excel

 

Macro has an option to export coordinates in the sketch space (XY for 2D sketch) or in the model space (XYZ). Macro has an option to convert the points coordinates to system units (meters) or user units, currently assigned to the model.

Configure the macro by changing the constants below.

Copy code to clipboard

Const CONVERT_TO_USER_UNIT As Boolean = True 'True to use the current model units, False to use system units (meters)
Const CONVERT_TO_MODEL_SPACE As Boolean = True 'For 2D Sketches, True to export coordinates in the sketch space, False to convert coordinates to the model space
Const OUT_PATH As String = "D:\points.csv" 'Full path to the output file

 

Edit SnippetCopy code to clipboard

Const CONVERT_TO_USER_UNIT As Boolean = True
Const CONVERT_TO_MODEL_SPACE As Boolean = True
Const OUT_PATH As String = "D:\points.csv"

Dim swApp As SldWorks.SldWorks

Sub main()

    Set swApp = Application.SldWorks
    
    Dim swModel As SldWorks.ModelDoc2
    
try_:
    On Error GoTo catch_
    
    Set swModel = swApp.ActiveDoc
    
    If swModel Is Nothing Then
        Err.Raise vbError, "", "Please open model"
    End If
    
    Dim swSelMgr As SldWorks.SelectionMgr
    
    Set swSelMgr = swModel.SelectionManager
    
    Dim swSketchFeat As SldWorks.Feature
    
    Set swSketchFeat = swSelMgr.GetSelectedObject6(1, -1)
    
    Dim swSketch As SldWorks.sketch
    
    If Not swSketchFeat Is Nothing Then
        Set swSketch = swSketchFeat.GetSpecificFeature2
    End If
    
    If swSketch Is Nothing Then
        Err.Raise vbError, "", "Please select sketch"
    End If
    
    Dim vPts As Variant
    vPts = ExtractPoints(swModel, swSketch, CONVERT_TO_MODEL_SPACE, CONVERT_TO_USER_UNIT)
    
    WritePointsToCsvFile OUT_PATH, vPts
    
    GoTo finally_
        
catch_:
    swApp.SendMsgToUser2 Err.Description, swMessageBoxIcon_e.swMbStop, swMessageBoxBtn_e.swMbOk
finally_:

End Sub

Function ExtractPoints(model As SldWorks.ModelDoc2, sketch As SldWorks.sketch, convertCoordsToModelSpace As Boolean, convertCoordsToUserUnits As Boolean) As Variant
    
    Dim vSkPts As Variant
    vSkPts = sketch.GetSketchPoints2()
    
    Dim i As Integer
    
    If IsEmpty(vSkPts) Then
        Err.Raise vbError, "", "Sketch contains no points"
    End If
    
    Dim vPts() As Variant
    ReDim vPts(UBound(vSkPts))
    
    For i = 0 To UBound(vSkPts)
        
        Dim swSkPt As SldWorks.SketchPoint
        Set swSkPt = vSkPts(i)
        
        Dim dPt(2) As Double
        dPt(0) = swSkPt.X: dPt(1) = swSkPt.Y: dPt(2) = swSkPt.Z
        
        Dim vPt As Variant
        vPt = dPt
        
        If convertCoordsToModelSpace Then
            vPt = ConvertPointLocation(vPt, sketch.ModelToSketchTransform.Inverse())
        End If
        
        If convertCoordsToUserUnits Then
            vPt = ConvertToUserUnits(vPt, model)
        End If
        
        vPts(i) = vPt
        
    Next
    
    ExtractPoints = vPts
    
End Function

Function ConvertPointLocation(pt As Variant, transform As SldWorks.MathTransform) As Variant
    
    Dim swMathUtils As SldWorks.MathUtility
    Set swMathUtils = swApp.GetMathUtility
    
    Dim swMathPt As SldWorks.MathPoint
    Set swMathPt = swMathUtils.CreatePoint(pt)
    
    Set swMathPt = swMathPt.MultiplyTransform(transform)
    
    ConvertPointLocation = swMathPt.ArrayData
    
End Function

Function ConvertToUserUnits(pt As Variant, model As SldWorks.ModelDoc2) As Variant
    
    Dim swUserUnits As SldWorks.UserUnit
    Set swUserUnits = model.GetUserUnit(swUserUnitsType_e.swLengthUnit)
    
    Dim convFactor As Double
    convFactor = swUserUnits.GetConversionFactor
     
    Dim dPt(2) As Double
    
    dPt(0) = pt(0) * convFactor
    dPt(1) = pt(1) * convFactor
    dPt(2) = pt(2) * convFactor
    
    ConvertToUserUnits = dPt
    
End Function

Sub WritePointsToCsvFile(filePath As String, vPts As Variant)
    
    Dim fileNmb As Integer
    fileNmb = FreeFile
    
    Open filePath For Output As #fileNmb
    
    Dim i As Integer
    
    For i = 0 To UBound(vPts)
        
        Print #fileNmb, vPts(i)(0) & "," & vPts(i)(1) & "," & vPts(i)(2)
        
    Next
    
    Close #fileNmb
    
End Sub

 

Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.



×
×
  • Создать...