社区 › AutoCAD.net/VB.net/C# 编程技术 › 请教两个问题

cq_starsea 发表于 2014-6-19 10:27:47

请教两个问题

环境浩辰CAD机械2014，vs2010 vb.net

1、我修改明细栏的块属性：
atts = mGEntity.getAttributes
      For i = LBound(atts) To UBound(atts)
            att = atts(i)
            If Not att Is Nothing Then
                If dic.ContainsKey(att.TagString) Then
                  att.TextString = dic.Item(att.TagString)
                End If
            End If
      Next
      mGEntity.Update()

当原来属性值不为空时，修改后属性显示字体和系统字体一致，为空时修改，字体就变宽了。

2、我在图中拖动一个序号，自动生成序号元素，并生成明细栏列表。用修改块属性的方法可以修改明细栏，但是不能修改序号元素的属性，就造成序号元素和明细栏属性不一致。因为不是块，getAttributes方法不能获取东西。请问怎么修改。
   Dim ent As GcadEntity
      Dim sonEnt As GcadEntity
      Dim app As GcadApplication = GetObject(, m_GcadVer)
      For Each ent In app.ActiveDocument.ModelSpace
            If ent.ObjectName = "HC_XuHaoEntity" Then
                MsgBox(ent.ObjectName)
                'Dim db As ent.dab
                'Dim frm As New FormAttributes(ent)
                'frm.ShowDialog()
            End If
      Next
    End Sub

查看完整版本: 请教两个问题