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

[SilaMusli 328]

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

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

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

[ILL 241]

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

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

[SilaMusli 328]

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

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

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

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

[ILL 241]

4 минуты назад, SilaMusli сказал:

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

 

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

[SilaMusli 328]

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

 

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

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

[ILL 241]

7 часов назад, SilaMusli сказал:

холу

Wtf??

[SilaMusli 328]

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

Wtf??

https://hola.org/?utm_source=holaext

[Марочка 0]

15.02.2016 в 15:12, artem_cad сказал:

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

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

[artem_cad 89]

On 6/2/2021 at 2:01 PM, Марочка said:

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

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

[Kir95 951]

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

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

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

[Kelny 1 332]

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

 

 

Изменено 9 июня 2021 пользователем Kelny

[Kir95 951]

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

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

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

 

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

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

[CadIntruder 0]

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

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

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

[Kelny 1 332]

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

Edit Article

Share    

More 'Goodies'

---

 

 

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

 

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.

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

 

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