关于工程图标题栏问题

dreamytj · 发表于 2007-7-5 14:04:09

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

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

x

DFT工程图,自己做的模板.怎么才会让标题栏自动填入相关信息.比如:比例,名称等

我现在知道的是材料: %{材料|R1}
名称: %{文件名(无扩展名)|R1}
现在不知道的是"比例"和"图号"等.大家有知道的就贴上来吧.谢谢

[ 本帖最后由 dreamytj 于 2007-7-6 10:33 编辑 ]

dreamytj · 发表于 2007-7-5 14:05:07

自己顶自己先,麻烦大家不吝赐教.

chinades · 发表于 2007-7-5 14:18:56

图号先写在模型文件属性的文档编号上，就能自动显示出来了 %{文档编号|R1}

sxbd1974 · 发表于 2007-7-5 19:35:17

还可以这样操作呀,我从教程上找不到

assassin_007 · 发表于 2007-7-6 15:11:01

比例的问题需要做二次开发。在V19的安装目录下面有一个Custom文件夹，其中有一个文件夹叫DraftSpell还是什么的，是用于在工程图中检查拼写错误的。大家可以模仿那个例子自己做一个。
主要功能实现的代码：
Option Strict Off
Option Explicit On

Imports System.Runtime.InteropServices
Imports System.Windows.Forms
Imports SolidEdgeFileProperties
Imports Microsoft.VisualBasic
Imports SolidEdgeFramework
Imports System
Imports System.Collections.ArrayList
Imports SolidEdgeDraft

Module SolidEdge
Public Const CATID_SolidEdgeAddIn As String = "{26B1D2D1-2B03-11d2-B589-080036E8B802}"
Public Const CATID_SEPart As String = "{26618396-09D6-11d1-BA07-080036230602}"
Public Const CATID_SEAssembly As String = "{26618395-09D6-11d1-BA07-080036230602}"
Public Const CATID_SESheetMetal As String = "{26618398-09D6-11D1-BA07-080036230602}"
Public Const CATID_SEDraft As String = "{08244193-B78D-11D2-9216-00C04F79BE98}"
Public Const CATID_SEWeldment As String = "{7313526A-276F-11D4-B64E-00C04F79B2BF}"

'Public objSheets As SolidEdgeDraft.Sheets
'Public objSheet As SolidEdgeDraft.Sheet
'Public objTextboxes As SolidEdgeFrameworkSupport.TextBoxes
'Public objTextBox As SolidEdgeFrameworkSupport.TextBox
'Public objBalloons As SolidEdgeFrameworkSupport.Balloons
'Public objBalloon As SolidEdgeFrameworkSupport.Balloon
'Public objDimensions As SolidEdgeFrameworkSupport.Dimensions
'Public objDimension As SolidEdgeFrameworkSupport.Dimension
Public objSEApp As SolidEdgeFramework.Application
'Public objDraftDoc As SolidEdgeDraft.DraftDocument
'Public strTextStringToBeChecked As String
'Public strTextStringCorrected As String
'Public MSWord As New Word.Application
'Public WordType As Type
'Public suggestions As System.Collections.ArrayList, w As Object
Public FillDraftPropForm As Form
'Public strParsedString As String
'Public strLinkedFileName As String
'Public SEFilePropertiesType As Type

'Public propertySets As PropertySetsClass
Public objAddin As SolidEdgeFramework.AddIn  'Modified for VS 2005 and V19

Public objSEDraftDoc As SolidEdgeDraft.DraftDocument
Public objPropSets As SolidEdgeFramework.PropertySets
Public objProps As SolidEdgeFramework.Properties
Public objprop As SolidEdgeFramework.Property

Public objSEDraftSheets As SolidEdgeDraft.Sheets
Public objSEDraftSheet As SolidEdgeDraft.Sheet
Public objSEDraftBackgrouds As SolidEdgeDraft.Sheets
Public objsedraftbackgroud As SolidEdgeDraft.Sheet
Public objSEDraftSheetSetup As SolidEdgeDraft.SheetSetup

Public drawingview As SolidEdgeDraft.DrawingView

Public Function ProcessActivePartDocument() As Boolean
      objSEApp = Marshal.GetActiveObject("SolidEdge.Application")

      objSEDraftDoc = objSEApp.ActiveDocument
      objPropSets = objSEDraftDoc.Properties
      objProps = objPropSets.Item("custom")

      objSEDraftSheets = objSEDraftDoc.Sheets

      FillDraftPropForm = New Form1

      FillDraftPropForm.ShowDialog()

End Function

End Module

assassin_007 · 发表于 2007-7-6 15:14:17

窗体的定义    'Button1
      '
      Me.Button1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
      Me.Button1.Location = New System.Drawing.Point(96, 228)
      Me.Button1.Name = "Button1"
      Me.Button1.TabIndex = 0
      Me.Button1.Text = "应用"
      '
      'Button2
      '
      Me.Button2.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
      Me.Button2.Location = New System.Drawing.Point(296, 228)
      Me.Button2.Name = "Button2"
      Me.Button2.TabIndex = 1
      Me.Button2.Text = "退出"
      '
      'Label1
      '
      Me.Label1.Font = New System.Drawing.Font("黑体", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
      Me.Label1.Location = New System.Drawing.Point(141, 17)
      Me.Label1.Name = "Label1"
      Me.Label1.Size = New System.Drawing.Size(184, 23)
      Me.Label1.TabIndex = 3
      Me.Label1.Text = "工程图纸属性表单"
      Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
      '
      'Button3
      '
      Me.Button3.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
      Me.Button3.Location = New System.Drawing.Point(200, 228)
      Me.Button3.Name = "Button3"
      Me.Button3.TabIndex = 2
      Me.Button3.Text = "重置"
      '
      'Label2
      '
      Me.Label2.AutoSize = True
      Me.Label2.Location = New System.Drawing.Point(31, 57)
      Me.Label2.Name = "Label2"
      Me.Label2.Size = New System.Drawing.Size(34, 19)
      Me.Label2.TabIndex = 4
      Me.Label2.Text = "图幅"
      Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
      '
      'Label3
      '
      Me.Label3.Location = New System.Drawing.Point(223, 57)
      Me.Label3.Name = "Label3"
      Me.Label3.Size = New System.Drawing.Size(34, 19)
      Me.Label3.TabIndex = 5
      Me.Label3.Text = "图框"
      Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
      '
      'Label4
      '
      Me.Label4.Location = New System.Drawing.Point(31, 101)
      Me.Label4.Name = "Label4"
      Me.Label4.Size = New System.Drawing.Size(34, 19)
      Me.Label4.TabIndex = 6
      Me.Label4.Text = "尺寸"
      Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
      '
      'Label5
      '
      Me.Label5.Location = New System.Drawing.Point(31, 145)
      Me.Label5.Name = "Label5"
      Me.Label5.Size = New System.Drawing.Size(34, 19)
      Me.Label5.TabIndex = 7
      Me.Label5.Text = "比例"
      Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
      '
      'PaperSizeComboBox
      '
      Me.PaperSizeComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
      Me.PaperSizeComboBox.Items.AddRange(New Object() {"A0", "A1", "A2", "A3", "A4", "自定义"})
      Me.PaperSizeComboBox.Location = New System.Drawing.Point(87, 55)
      Me.PaperSizeComboBox.Name = "PaperSizeComboBox"
      Me.PaperSizeComboBox.Size = New System.Drawing.Size(121, 22)
      Me.PaperSizeComboBox.TabIndex = 8
      '
      'ComboBox1
      '
      Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
      Me.ComboBox1.Location = New System.Drawing.Point(279, 57)
      Me.ComboBox1.Name = "ComboBox1"
      Me.ComboBox1.Size = New System.Drawing.Size(121, 22)
      Me.ComboBox1.TabIndex = 9
      '
      'WidthTextBox
      '
      Me.WidthTextBox.Location = New System.Drawing.Point(87, 99)
      Me.WidthTextBox.Name = "WidthTextBox"
      Me.WidthTextBox.Size = New System.Drawing.Size(121, 23)
      Me.WidthTextBox.TabIndex = 10
      Me.WidthTextBox.Text = ""
      '
      'Label6
      '
      Me.Label6.AutoSize = True
      Me.Label6.Location = New System.Drawing.Point(223, 101)
      Me.Label6.Name = "Label6"
      Me.Label6.Size = New System.Drawing.Size(20, 19)
      Me.Label6.TabIndex = 11
      Me.Label6.Text = "mm"
      Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
      '
      'HeightTextBox
      '
      Me.HeightTextBox.Location = New System.Drawing.Point(279, 99)
      Me.HeightTextBox.Name = "HeightTextBox"
      Me.HeightTextBox.Size = New System.Drawing.Size(121, 23)
      Me.HeightTextBox.TabIndex = 12
      Me.HeightTextBox.Text = ""
      '
      'Label7
      '
      Me.Label7.AutoSize = True
      Me.Label7.Location = New System.Drawing.Point(415, 101)
      Me.Label7.Name = "Label7"
      Me.Label7.Size = New System.Drawing.Size(20, 19)
      Me.Label7.TabIndex = 13
      Me.Label7.Text = "mm"
      Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
      '
      'ScaleFactor1
      '
      Me.ScaleFactor1.Location = New System.Drawing.Point(87, 145)
      Me.ScaleFactor1.Name = "ScaleFactor1"
      Me.ScaleFactor1.Size = New System.Drawing.Size(121, 23)
      Me.ScaleFactor1.TabIndex = 14
      Me.ScaleFactor1.Text = ""
      '
      'Label8
      '
      Me.Label8.AutoSize = True
      Me.Label8.Location = New System.Drawing.Point(239, 145)
      Me.Label8.Name = "Label8"
      Me.Label8.Size = New System.Drawing.Size(12, 19)
      Me.Label8.TabIndex = 15
      Me.Label8.Text = ":"
      Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
      '
      'ScaleFactor2
      '
      Me.ScaleFactor2.Location = New System.Drawing.Point(279, 145)
      Me.ScaleFactor2.Name = "ScaleFactor2"
      Me.ScaleFactor2.Size = New System.Drawing.Size(121, 23)
      Me.ScaleFactor2.TabIndex = 16
      Me.ScaleFactor2.Text = ""
      '
      'Label9
      '
      Me.Label9.AutoSize = True
      Me.Label9.Font = New System.Drawing.Font("Verdana", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
      Me.Label9.Location = New System.Drawing.Point(255, 100)
      Me.Label9.Name = "Label9"
      Me.Label9.Size = New System.Drawing.Size(14, 21)
      Me.Label9.TabIndex = 17
      Me.Label9.Text = "x"
      Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
      '
      'Label10
      '
      Me.Label10.AutoSize = True
      Me.Label10.ForeColor = System.Drawing.Color.Red
      Me.Label10.Location = New System.Drawing.Point(32, 192)
      Me.Label10.Name = "Label10"
      Me.Label10.Size = New System.Drawing.Size(423, 19)
      Me.Label10.TabIndex = 18
      Me.Label10.Text = "注意：自定义图幅时需要自定义图页背景，然后再设置背景图框！"
      Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
      '
      'Form1
      '
      Me.AutoScale = False
      Me.AutoScaleBaseSize = New System.Drawing.Size(7, 16)
      Me.ClientSize = New System.Drawing.Size(466, 272)
      Me.Controls.Add(Me.Label10)
      Me.Controls.Add(Me.Label9)
      Me.Controls.Add(Me.ScaleFactor2)
      Me.Controls.Add(Me.Label8)
      Me.Controls.Add(Me.ScaleFactor1)
      Me.Controls.Add(Me.Label7)
      Me.Controls.Add(Me.HeightTextBox)
      Me.Controls.Add(Me.Label6)
      Me.Controls.Add(Me.WidthTextBox)
      Me.Controls.Add(Me.ComboBox1)
      Me.Controls.Add(Me.PaperSizeComboBox)
      Me.Controls.Add(Me.Label5)
      Me.Controls.Add(Me.Label4)
      Me.Controls.Add(Me.Label3)
      Me.Controls.Add(Me.Label2)
      Me.Controls.Add(Me.Label1)
      Me.Controls.Add(Me.Button3)
      Me.Controls.Add(Me.Button2)
      Me.Controls.Add(Me.Button1)
      Me.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
      Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
      Me.MaximizeBox = False
      Me.MinimizeBox = False
      Me.Name = "Form1"
      Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
      Me.Text = "工程图纸属性表单"
      Me.ResumeLayout(False)

End Sub

assassin_007 · 发表于 2007-7-6 15:15:01

窗体显示：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim scale As String
      Dim factor() As String
      Dim i As Integer
      Dim paper As String
      ComboBox1.Items.Clear()

      For i = 1 To objSEDraftSheets.Count
         objSEDraftSheet = objSEDraftSheets.Item(i)
         If objSEDraftSheet.SectionType = SheetSectionTypeConstants.igBackgroundSection Then
            ComboBox1.Items.Add(objSEDraftSheet.Name)
         End If
      Next

      scale = objProps.Item("scale").Value
      factor = scale.Split(":")

      ScaleFactor1.Text = factor(0)
      ScaleFactor2.Text = factor(1)
      'MsgBox("b2")
      HeightTextBox.Text = objProps.Item("height").Value
      'MsgBox("b3")

      WidthTextBox.Text = objProps.Item("width").Value

      'MsgBox("b9")

      paper = objProps.Item("papersize").Value
      'MsgBox(paper)
      If ((paper = "A0") Or (paper = "A1") Or (paper = "A2") Or (paper = "A3") Or (paper = "A4")) Then
         PaperSizeComboBox.Text = objProps.Item("papersize").Value
         HeightTextBox.Enabled = False
         WidthTextBox.Enabled = False
         Label4.Visible = False
         ComboBox1.Enabled = False
      Else
         PaperSizeComboBox.Text = "自定义"
         HeightTextBox.Enabled = True
         WidthTextBox.Enabled = True
         Label4.Visible = True
         ComboBox1.Enabled = True

      End If

      ComboBox1.Text = objProps.Item("backgroud").Value


End Sub

assassin_007 · 发表于 2007-7-6 15:15:41

单击应用按钮
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim s As Double
      Dim d As Integer

      objProps.Add("scale", ScaleFactor1.Text & ":" & ScaleFactor2.Text)
      objProps.Add("height", HeightTextBox.Text)

      objProps.Add("width", WidthTextBox.Text)

      If PaperSizeComboBox.Text = "自定义" Then
         d = Val(WidthTextBox.Text) * Val(HeightTextBox.Text) / (297 * 210)
         If d = 1 Then
            objProps.Add("papersize", "A4")
         Else
            objProps.Add("papersize", d & "A4")
         End If

      Else
         objProps.Add("papersize", PaperSizeComboBox.Text)
      End If

      objSEDraftSheet = objSEDraftSheets.Item(1)

      objProps.Add("backgroud", ComboBox1.Text)

      s = Val(ScaleFactor1.Text) / Val(ScaleFactor2.Text)

      objSEDraftSheet = objSEDraftSheets.Item(1)

      If objSEDraftSheet.DrawingViews.Count = 0 Then
      Else
         DrawingView = objSEDraftSheet.DrawingViews.Item(1)

         DrawingView.ScaleFactor = s
      End If

      objSEDraftSheetSetup = objSEDraftSheet.SheetSetup
      objSEDraftSheetSetup.SheetHeight = Val(HeightTextBox.Text) / 1000
      objSEDraftSheetSetup.SheetWidth = Val(WidthTextBox.Text) / 1000

      objSEDraftSheet.Background = objSEDraftSheets.Item(ComboBox1.Text)

      Me.Close()

End Sub

assassin_007 · 发表于 2007-7-6 15:17:23

这个代码需要集大家的努力，继续修改到完善。目前，只能管第一页的比例显示。所以，还是要大家继续努力。代码是VB，对于V19，应该使用Visual Studio2005。

dreamytj · 发表于 2007-7-9 10:07:54

谢谢你的帮助,可是我看不懂也不会弄二次开发啊.有没有简单的方法啊.
或者说明下你上面写的东西怎么用. 我现在用的是V18,能不能用?

htm525868 · 发表于 2007-7-10 08:23:45

good 还厉害了，看到那么一堆程序头就大了．

huaxin68 · 发表于 2008-12-27 08:16:35

明细表的设置已没问题，标题栏中的名称和材料即属于自定义的属性没问题，问题是如何关联内部属性，比如：比例，总重量图号等等。

yinxinyou · 发表于 2009-1-6 08:46:19

很专业，要加紧学

heyantian · 发表于 2009-1-6 13:03:00

你看本版置顶的模版制作方法的帖子了吗？

lucienjay · 发表于 2009-1-16 12:49:25

厉害，看到一堆程序头就大

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

通知

[讨论] 关于工程图标题栏问题

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

回复 assassin_007

浏览过的版块