Hello Everyone!
Please help to understand the script.
In my script does not work with the export settings options.
Function DXFSettings()
DXFSettings = Null
Dim str1,str2,str3,str4,str5,str6,str7,str8,str9,str10
Dim str11,str12,str13,str14,str15,str16,str17,str18,str19,str20,str21,str22,str23,str24,str25,str26,str27
Dim strComb
str1 = "_ExportScheme=_CAMMetric "
str2 = "_CurrentOption=_0.05 "
str3 = "_AcadVersion=_14 "
str4 = "_MinPointDistance=_1e-06 "
str5 = "_UseMaxAngle=y "
str6 = "_UseChordHeight=y "
str7 = "_PackTextures=_No "
str8 = "_UseSegmentLength=n "
str9 = "_MaxAngle=_10 "
str10 = "_ChordHeight=0.01 "
str11 = "_SegmentLength=1 "
str12 = "_WriteMeshesAs=6 "
str13 = "_WriteSurfacesAs=5 "
str14 = "_WriteLinesAs=0 "
str15 = "_WriteArcsAs=1 "
str16 = "_WriteSplinesAs=3 "
str17 = "_WritePolylinesAs=3 "
str18 = "_WritePolycurvesAs=4"
str19 = "_Flatten=0 "
str20 = "_SplitPolycurves=n "
str21 = "_SplitSplines=n "
str22 = "_Simplify=n "
str23 = "_NoDxfHeader=n "
str24 = "_FullLayerPath=y "
str25 = "_ColorMethod=1 "
str26 = "_PreserveArcNormals=n "
str27 = "_Enter _Enter"
strComb = str1 & str2 & str3 & str4 & str5 & str6 & str7 & str8 & str9 & str10
strComb = strComb & str11 & str12 & str13 & str14 & str15 & str16 & str17 & str18 & str19 & str22 & str21 & str22 & str23 & str24 & str25 & str26 & str27
DXFSettings = strComb
End Function
Call ExportDXF()
Sub ExportDXF()
Dim arrObjs,strCurrDP,strCurrDN,strSaveDN,strFileName,strSett,filt
arrObjs = Rhino.GetObjects("Select objects to export as .dxf",, True, True)
If Not IsArray(arrObjs) Then Exit Sub
strCurrDP = Rhino.DocumentPath()
strCurrDN = Rhino.DocumentName()
filt = "DXF Files (*.dxf)|*.dxf||"
If Not IsNull(strCurrDN) Then
strSaveDN = Left(strCurrDN, Len(strCurrDN) - 3) & "dxf"
strFileName = Rhino.SaveFileName("Export DXF", filt, strCurrDP, strSaveDN)
Else
strFileName = Rhino.SaveFileName("Export DXF", filt)
End If
If IsNull(strFilename) Then Exit Sub
strSett = DXFSettings() 'gets your settings from the function below
If IsNull(strSett) Then
Call Rhino.Print("Unable to get export settings")
Exit Sub
End If
Call Rhino.SelectObjects(arrObjs) 'selects your objects
'runs the export using the file name/path and your settings
Call Rhino.Command("-_Export " & chr(34) & strFileName & chr(34) & " " & strSett, False)
End Sub
Function DXFSettings()
DXFSettings = Null
Dim str1,str2,str3,str4,str5,str6,str7,str8,str9,str10
Dim str11,str12,str13,str14,str15,str16,str17,str18,str19,str20,str21,str22,str23,str24,str25,str26,str27
Dim strComb
str1 = "_ExportScheme=_CAM Metric "
str2 = "_CurrentOption=_0.05 "
str3 = "_AcadVersion=_14 "
str4 = "_MinPointDistance=_1e-06 "
str5 = "_UseMaxAngle=y "
str6 = "_UseChordHeight=y "
str7 = "_PackTextures=_No "
str8 = "_UseSegmentLength=n "
str9 = "_MaxAngle=_10 "
str10 = "_ChordHeight=0.01 "
str11 = "_SegmentLength=1 "
str12 = "_WriteMeshesAs=6 "
str13 = "_WriteSurfacesAs=5 "
str14 = "_WriteLinesAs=0 "
str15 = "_WriteArcsAs=1 "
str16 = "_WriteSplinesAs=3 "
str17 = "_WritePolylinesAs=3 "
str18 = "_WritePolycurvesAs=4"
str19 = "_Flatten=0 "
str20 = "_SplitPolycurves=n "
str21 = "_SplitSplines=n "
str22 = "_Simplify=n "
str23 = "_NoDxfHeader=n "
str24 = "_FullLayerPath=y "
str25 = "_ColorMethod=1 "
str26 = "_PreserveArcNormals=n "
str27 = "_Enter _Enter"
strComb = str1 & str2 & str3 & str4 & str5 & str6 & str7 & str8 & str9 & str10
strComb = strComb & str11 & str12 & str13 & str14 & str15 & str16 & str17 & str18 & str19 & str22 & str21 & str22 & str23 & str24 & str25 & str26 & str27
DXFSettings = strComb
End Function