一起来学VB.net(4,调用net调用com对象）

huaxiamengqing

如果你添加了一个字体样式，那么查遍它所有的属性，并没有发现其对宽度因子的设置，那么只有调用VBA方法喽，下面是示例代码

2. 引用：net接口
   
3.       C:\Program Files\Autodesk\AutoCAD 2012 - Simplified Chinese\acdbmgd.dll
   
4.       C:\Program Files\Autodesk\AutoCAD 2012 - Simplified Chinese\acmgd.dll
   
5.       com接口
   
6.       C:\Program Files\Common Files\Autodesk Shared\axdb18enu.tlb
   
7.       C:\Program Files\Common Files\Autodesk Shared\acax18enu.tlb
   
8. 配置：.netframework 4.0  CAD2012   VS2010
   
9. 
   
10. 
    
11. Imports Autodesk.AutoCAD.Runtime
    
12. Imports Autodesk.AutoCAD.ApplicationServices
    
13. Imports Autodesk.AutoCAD.DatabaseServices
    
14. Imports Autodesk.AutoCAD.EditorInput
    
15. Imports Autodesk.AutoCAD.Geometry
    
16. Imports Autodesk.AutoCAD.Interop.Common
    
17. Imports Autodesk.AutoCAD.Interop
    
18. 
    
19. 
    
20. Public Class class1
    
21. <CommandMethod("aaaa")> _
    
22.     Public Sub UpdateTextFont()
    
23.         Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
    
24.         Dim acCurDb As Database = acDoc.Database
    
25.         Dim Mztilist As New List(Of String)
    
26.         Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
    
27.            '以net的访问方式判断是否存在已知字体样式
    
28.             Dim Mtexttable As TextStyleTable = acTrans.GetObject(acCurDb.TextStyleTableId, OpenMode.ForRead)
    
29.             For Each Id As ObjectId In Mtexttable
    
30.                 Dim TblRec As TextStyleTableRecord = acTrans.GetObject(Id, OpenMode.ForRead)
    
31.                 Mztilist.Add(TblRec.Name)
    
32.             Next
    
33.             '以com对象的方法添加字体样式
    
34.             If Not Mztilist.Contains("JHZX") Then
    
35.                 ' Dim Mjhst As New TextStyleTableRecord
    
36.                 'Mjhst.Name = "JHZXaa"
    
37.                 'Mjhst.BigFontFileName = "hztxt.shx"
    
38.                 'Mjhst.FileName = "ros.shx"
    
39.                 Dim thisdrawing As AcadDocument = CType(acDoc.AcadDocument, AcadDocument)
    
40.                 Dim Mcomtext As AcadTextStyle = thisdrawing.TextStyles.Add("JHZXaa")
    
41.                 Mcomtext.BigFontFile = "hztxt.shx"
    
42.                 Mcomtext.fontFile = "ros.shx"
    
43.                 Mcomtext.Width = 0.75
    
44.                 thisdrawing.ActiveTextStyle = Mcomtext
    
45.                 thisdrawing.Regen(AcRegenType.acActiveViewport)
    
46.                 'Mtexttable.UpgradeOpen()
    
47.                 'Mtexttable.Add(Mjhst)
    
48.                 'acTrans.AddNewlyCreatedDBObject(Mjhst, True)
    
49.             End If
    
50.             'acCurDb.Textstyle = Mtexttable("JHZX")
    
51.             'Application.SetSystemVariable("TEXTSTYLE", "JHZX")
    
52.             ' HostApplicationServices.Current.FindFile("bigfont.shx", acCurDb, FindFileHint.FontFile)
    
53.             acTrans.Commit()
    
54.         End Using
    
55.     End Sub
    
56. end class

引用：net接口<br />       C:\Program Files\Autodesk\<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> 2012 - Simplified Chinese\acdbmgd.dll<br />       C:\Program Files\Autodesk\AutoCAD 2012 - Simplified Chinese\acmgd.dll<br />       com接口<br />       C:\Program Files\Common Files\Autodesk Shared\axdb18enu.tlb<br />       C:\Program Files\Common Files\Autodesk Shared\acax18enu.tlb<br /> 配置：.netframework 4.0  CAD2012   VS2010<br /> <br /> <br /> Imports Autodesk.AutoCAD.Runtime<br /> Imports Autodesk.AutoCAD.ApplicationServices<br /> Imports Autodesk.AutoCAD.DatabaseServices<br /> Imports Autodesk.AutoCAD.EditorInput<br /> Imports Autodesk.AutoCAD.Geometry<br /> Imports Autodesk.AutoCAD.Interop.Common<br /> Imports Autodesk.AutoCAD.Interop<br /> <br /> <br /> Public Class class1<br /> <CommandMethod("aaaa")> _<br />     Public Sub UpdateTextFont()<br />         Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument<br />         Dim acCurDb As Database = acDoc.Database<br />         Dim Mztilist As New List(Of String)<br />         Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()<br />            '以net的访问方式判断是否存在已知字体样式<br />             Dim Mtexttable As TextStyleTable = acTrans.GetObject(acCurDb.TextStyleTableId, OpenMode.ForRead)<br />             For Each Id As ObjectId In Mtexttable<br />                 Dim TblRec As TextStyleTableRecord = acTrans.GetObject(Id, OpenMode.ForRead)<br />                 Mztilist.Add(TblRec.Name)<br />             Next<br />             '以com对象的方法添加字体样式<br />             If Not Mztilist.Contains("JHZX") Then<br />                 ' Dim Mjhst As New TextStyleTableRecord<br />                 'Mjhst.Name = "JHZXaa"<br />                 'Mjhst.BigFontFileName = "hztxt.shx"<br />                 'Mjhst.FileName = "ros.shx"<br />                 Dim thisdrawing As AcadDocument = CType(acDoc.AcadDocument, AcadDocument)<br />                 Dim Mcomtext As AcadTextStyle = thisdrawing.TextStyles.Add("JHZXaa")<br />                 Mcomtext.BigFontFile = "hztxt.shx"<br />                 Mcomtext.fontFile = "ros.shx"<br />                 Mcomtext.Width = 0.75<br />                 thisdrawing.ActiveTextStyle = Mcomtext<br />                 thisdrawing.Regen(AcRegenType.acActiveViewport)<br />                 'Mtexttable.UpgradeOpen()<br />                 'Mtexttable.Add(Mjhst)<br />                 'acTrans.AddNewlyCreatedDBObject(Mjhst, True)<br />             End If<br />             'acCurDb.Textstyle = Mtexttable("JHZX")<br />             'Application.SetSystemVariable("TEXTSTYLE", "JHZX")<br />             ' HostApplicationServices.Current.FindFile("bigfont.shx", acCurDb, FindFileHint.FontFile)<br />             acTrans.Commit()<br />         End Using<br />     End Sub<br /> end class

魔子幻灭

收藏了，期待你的的下一讲！