你的序号编制本身就有问题，或者说根本没必要编制，因为不管是零件图号或者零件名称之类，在国家标准或行业惯例中都有涉及，但零件序号本身就是在明细表起个标注明细表行位置的作用，所以才有1234的排列。你玩个1-2 1-3没任何意思。

在压力容器制图，总图是1，2，3，部件图是1-1，1-2，1-3都是这种排列。
大型装配图总图，部件图都是1-1,1-2排列。

Private Sub ll1()
   Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
      Set SwApp = Application.SldWorks
      Set SwModel = SwApp.ActiveDoc
   Dim SwSelMgr As SelectionMgr, Str
      Set SwSelMgr = SwModel.SelectionManager
   Dim SwNote As Note
      Set SwNote = SwSelMgr.GetSelectedObject5(1)
      Debug.Print SwNote.GetName, SwNote.GetText
      'SwModel.EditBalloonProperties swBS_Underline, swBF_Tightest, swDetailingNoteTextCustom, "3-" & SwNote.GetText, swDetailingNoteTextItemNumber, "1"
      Str = "3-" & SwNote.GetText
      Str = ""
      'SwModel.EditBalloonProperties swBS_Underline, swBF_Tightest, 0, Str, swDetailingNoteTextItemNumber, "1"
     ' SwModel.EditBalloonProperties swBS_FlagTriangle, swBF_Tightest, swDetailingNoteTextQuantity, Str, swDetailingNoteTextItemNumber, "1"
      SwModel.EditBalloonProperties swBS_Underline, swBF_Tightest, swDetailingNoteTextItemNumber, Str, swDetailingNoteTextItemNumber, "1"
     'SwModel.EditBalloonProperties 10, 0, 0, "3-2", 2, "1"
End Sub

复制代码
数字+字母-零件序号问题


aa.zip (117.83 KB, 下载次数: 163)

2015-12-31 18:45 上传

点击文件名下载附件
下载积分: 金币 -1

你这是标准做法吗？我怎么看不大懂呀？