SolidWorks二次开发中导入TXT文档生成曲线

qqqq1wwww · 发表于 2010-10-16 01:09:10

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

想请教下我在SolidWorks中利用宏生成了个按钮，单击后弹出我用VB制作的程序，程序的界面上有个按钮，我想实现的是：单机这个按钮后SolidWorks将读取指定的TXT文档中的数自动生成曲线。
这个功能在菜单插入→曲线→通过X Y Z点的曲线..
应该如何对这个按钮进行编程啊。
或者告诉我在哪里查询这些命令。。
求助
十万火急啊。。也可以联系我指点下。本人QQ343024961

gneful · 发表于 2010-10-16 08:58:39

http://www.3dportal.cn/discuz/viewthread.php?tid=142162
一个老帖，可能对你有帮助

qqqq1wwww · 发表于 2010-10-16 19:55:25

不对的。。我想实现的用读取文本里的点来输入曲线的二次开发。。

rkxrkx · 发表于 2010-10-16 20:52:56

楼主关注一下迈迪的三维设计工具集吧，马上发布的新版本中就有你需要的这个功能，可以任意生成你指定坐标的空间曲线。

yjyeming · 发表于 2010-10-17 09:56:36

'funkce pro nastaveni parametru modelu, pouziva MAP.INI ulozeny i modelu
Public Function SetModelParams(oDoc As ModelDoc2, sDataFile As String, sMapFile As String, sSection As String, sPostFix As String) As Boolean
  SetModelParams = False
  Dim sDimName(1000) As String 'pole stringu promennych a jejich hodnot z textoveho souboru
  Dim dDimValue(1000) As Double
  Dim i As Integer, j As Integer

  Dim sVarName As String
  Dim dValue As Double
  Dim oDim As Dimension
  Dim iRet As Integer
  Dim lRet As Long
  Dim bRet As Boolean

  Dim sXBOMX As String

  'nacteni promennych (nazev a hodnota) do pole
  Dim iHandle As Integer
  Dim sFileRow As String

  On Error Resume Next

  iHandle = FreeFile()
  Open sDataFile For Input As #iHandle
  i = 1
  Do While Not EOF(iHandle)
Line Input #iHandle, sFileRow
sDimName(i) = GetNStr(sFileRow, 1) '取第一个参数
If sDimName(i) = "XBOMX" Then sXBOMX = Mid(sFileRow, 7)
dDimValue(i) = GetN(sFileRow, 2) '取第二个参数
i = i + 1
  Loop
  Close (iHandle)
  'zjisteni, jestli se jedna o sestavu a naplneni lokalniho postfixu (pridat ke jmenu parametru/koty v modelu)
  Dim lDocType As Long, sLocalPostFix As String, sFullName As String
  Dim pos1 As Long, pos2 As Long
  lDocType = oDoc.GetType()
  If lDocType = 2 Then
If sPostFix = "XXX" Then
   'musim dohledat ze jmena assembly pri obcerstveni podsestavy
   sFullName = oDoc.GetPathName()
   pos1 = InStrRev(sFullName, ".")
   pos2 = InStrRev(sFullName, "_")
   If pos1 > 0 And pos2 > 0 Then
      sLocalPostFix = Mid(sFullName, pos2 - 3, pos1 - pos2 + 3) & ".Part"
   End If
Else
   sLocalPostFix = "_" & ModelUnits & sPostFix & ".Part"
End If
  Else
sLocalPostFix = ""
  End If

  Dim Check As Boolean
  Dim sDimString As String, sValNameFromXLS As String, sModelDimName As String
  Dim dModelDimValue As Double
  'naplneni parametru v modelu
  i = 1
  Check = True '检查
  Do
sDimString = SpacesSZ(128) '建缓存器
sVarName = Str(i)
iRet = GetPrivateProfileString(sSection, sVarName, "", sDimString, 127, sMapFile)
sDimString = Left(sDimString, iRet)
If sDimString <> "" Then
   'test na to jestli je string, kterej nuti prebuildit model
   If UCase(sDimString) = "REBUILD" Then
      bRet = oDoc.EditRebuild3()
      GoTo 999
   End If
   'prazdna smycka
   If UCase(sDimString) = "NOP" Then GoTo 999

   'existuje prirazeni, naplnim hodnotou kotu v modelu
   sValNameFromXLS = GetNStr(sDimString, 1) '分割第一
   sModelDimName = GetNStr(sDimString, 2) '分割第二

   'dohledam hodnotu z pole hodnot nactenych z textoveho souboru
   j = 1
   Do
      If UCase(sDimName(j)) = UCase(sValNameFromXLS) Then 'txt比较ini查找
      dModelDimValue = dDimValue(j) '值
      Exit Do
      End If
      j = j + 1
   Loop Until j >= 1000
   'zjistim, jestli ji nemusim opravit
   sDimString = SpacesSZ(128)
   iRet = GetPrivateProfileString(sSection, sValNameFromXLS, "", sDimString, 127, sMapFile)
   sDimString = Left(sDimString, iRet)
   If sDimString <> "" Then
      'nasel jsem a musim opravit hodnotu
      If dModelDimValue = GetN(sDimString, 1) Then dModelDimValue = GetN(sDimString, 2)
      If dModelDimValue = GetN(sDimString, 3) Then dModelDimValue = GetN(sDimString, 4)
      If dModelDimValue = GetN(sDimString, 5) Then dModelDimValue = GetN(sDimString, 6)
   End If
   sModelDimName = sModelDimName & sLocalPostFix
   'zmena parametru v modelu
   Set oDim = oDoc.IParameter(sModelDimName)
   If oDim <> vbEmpty Then 'vbEmpty 未初始化（默认）
      lRet = oDim.SetValue2(dModelDimValue, 0) '在指定的配置中设定大小的数值。swSetValue_UseCurrentSetting=0
   End If
Else
   'neexistuje jiz zadny parametr pro zmenu
   Check = False
End If
999:
i = i + 1
  Loop Until Check = False
  'Call oDoc.Rebuild(&H1)       'swRebuildAll = &H00000001

  'nastaveni BOM info
  If oDoc.GetType() = 1 Then
'jedna se o part, muzu nastavit primo BOM atributy
bRet = FillBOM(oDoc, sXBOMX)
  Else
'zkontroluji, jestli se jedna o sestavu (pro jistotu)
If oDoc.GetType() = 2 Then
   'je to sestava, musim kazdej part zvlast
   Dim oPartDoc As PartDoc
   Dim oAsmDoc As AssemblyDoc
   Dim oSelMgr As SelectionMgr
   Dim lCount As Long
   Set oAsmDoc = oDoc
   Dim oRootComp As Component2
   Dim oCfg As configuration
   Set oCfg = oAsmDoc.GetActiveConfiguration()
   Set oRootComp = oCfg.GetRootComponent()

   Dim oChildren As Variant
   oChildren = oRootComp.GetChildren()
   lCount = UBound(oChildren)

   Dim oCompx As Component2
   Dim oCompDocx As ModelDoc2

   'kopie jednotlivych souboru
   For i = 0 To lCount
      Set oCompx = oChildren(i)
      Set oCompDocx = oCompx.GetModelDoc()
      'vyplneni jednotlivych BOM atributu
      bRet = FillBOM(oCompDocx, sXBOMX)
   Next i
End If
  End If

  bRet = oDoc.EditRebuild3() '重建
  SetModelParams = True
End Function

qqqq1wwww · 发表于 2010-10-17 19:58:14

感谢楼上几位，我得好好研究下这段代码。。。

		自动登录	找回密码
密码			注册

通知

[求助] SolidWorks二次开发中导入TXT文档生成曲线

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。