七七影院色七七_免费观看欧美a一级黄片_亚洲综合久久久久久中文字幕_国产999999在线视频免费观看,国产小视频无码,国产精品亚洲日日摸夜夜添,女人高潮潮叫免费网站,久久影院国产精品,日韩成人在线影院,欧美囗交XX×BBB视频,色在线综合高清

機械社區(qū)

標題: 關于圖號分離 宏代碼 問題 [打印本頁]
作者: jiajiang951    時間: 2018-9-22 13:28
標題: 關于圖號分離 宏代碼 問題
如下  是圖號分離 宏代碼    圖號在前 名稱在后  用此宏可以    一鍵   分離 到自定義屬性上面去,，問題來了  我現(xiàn)在調(diào)用的  3D制造云標準件 都是名稱在前  代號再后  這個宏  得更改一下了    誰會  幫我改改,。

'從這里開始復制:

'定義solidwork

Dim swApp As Object

Dim Part As Object

Dim SelMgr As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Dim Feature As Object

Dim a As Integer

Dim b As String

Dim m As String

Dim e As String

Dim k As String

Dim t As String

Dim c As String

Dim j As Integer

Dim strmat As String

Dim tempvalue As String

Sub main()

'link solidworks

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Set SelMgr = Part.SelectionManager

swApp.ActiveDoc.ActiveView.FrameState = 1

'設定變量

c = swApp.ActiveDoc.GetTitle() '零件名

strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)

blnretval = Part.DeleteCustomInfo2("", "代號")

blnretval = Part.DeleteCustomInfo2("", "名稱")



a = InStr(c, " ") - 1      '重點：分隔標識符，這里是一個空格

If a > 0 Then

    k = Left(c, a)

    t = Left(LTrim(e), 3)

    If t = "GBT" Then

        e = "GB/T" + Mid(k, 4)

    Else

        e = k

    End If

    b = Mid(c, a + 2)

    t = Right(c, 7)

    If t = ".SLDPRT" Or t = ".SLDASM" Then

        j = Len(b) - 7

    Else

        j = Len(b)

    End If

    m = Left(b, j)

End If

blnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)  '代號

blnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱

blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, " ")

End Sub


作者: wx_vdZmJi97    時間: 2018-9-22 13:40
倒數(shù)三四行把代號和名稱換一下就行了,。
作者: jiajiang951    時間: 2018-9-22 14:21
wx_vdZmJi97 發(fā)表于 2018-9-22 13:40
倒數(shù)三四行把代號和名稱換一下就行了,。

(, 下載次數(shù): 113)   厲害   再問下 有時候  分離出來的  怎么 把文件的 擴展名 也弄過來了    這代碼還要完善下吧？
作者: wx_vdZmJi97    時間: 2018-9-22 16:50
jiajiang951 發(fā)表于 2018-9-22 14:21
厲害   再問下 有時候  分離出來的  怎么 把文件的 擴展名 也弄過來了    這代碼還要完善下吧？

你要把擴展名隱藏掉才行
作者: jiajiang951    時間: 2018-9-22 17:41
wx_vdZmJi97 發(fā)表于 2018-9-22 16:50
你要把擴展名隱藏掉才行


    If t = ".SLDPRT" Or t = ".SLDASM" Then

        j = Len(b) - 7

    Else

        j = Len(b) 他這里有個判斷  我出現(xiàn)這個問題有時候出現(xiàn) 有時候沒出現(xiàn) 應該是 還要加幾句吧

作者: wx_vdZmJi97    時間: 2018-9-22 17:49
jiajiang951 發(fā)表于 2018-9-22 17:41
If t = ".SLDPRT" Or t = ".SLDASM" Then

        j = Len(b) - 7

對啊,，這句代碼已經(jīng)把后面的后綴給去掉了啊,，為什么還會出現(xiàn)，隱不隱藏都沒關系的了,。
作者: 眸上有傷痕    時間: 2018-9-27 17:12
我想知道這個宏是怎么用的,？

作者: fuyi8cn    時間: 2021-12-23 07:09
mark
作者: 想減肥    時間: 2021-12-23 07:54
我也研究一下，感覺挺好用的,。
作者: jiajiang951    時間: 2022-7-18 17:20
wx_vdZmJi97 發(fā)表于 2018-9-22 17:49
對啊,，這句代碼已經(jīng)把后面的后綴給去掉了啊，為什么還會出現(xiàn),，隱不隱藏都沒關系的了,。

If t = ".SLDPRT" Or t = ".SLDASM"  Or t = ".sldasm"  Or t = ".sldprt" Then

        j = Len(b) - 7
作者: tuotuo    時間: 2023-10-26 17:54
用Ucase 或者 Lcase轉換大小寫是不是方便點
作者: tuotuo    時間: 2023-10-26 17:56
本帖最后由 tuotuo 于 2023-10-26 18:00 編輯

Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name)
是不是要加一句這個改配置屬性
作者: zzy953671038    時間: 2023-10-27 22:45
mark
作者: machel77    時間: 2023-10-28 07:49
用這個后，模型存檔名稱是什么樣式的,？能貼圖看看嗎



歡迎光臨 機械社區(qū) (http://97307.cn/) Powered by Discuz! X3.4