《晋书》一百三十卷，包括帝纪十卷，志二十卷，列传七十卷，载记三十卷，记载了从司马懿开始到晋恭帝元熙二年为止，包括西晋和东晋的历史，并用“载记”的形式兼述了十六国割据政权的兴亡。
唐太宗是一位有所作为的君主，他非常重视史书的撰修工作，而在唐太宗以前，有关晋代的史料，没有一家令人满意的。唐太宗在修晋书诏中对各家史著逐一进行了批评。撰写一部系统、完整、旨趣较高的晋史，是唐太宗的一大心愿。贞观二十年他下诏让房玄龄、褚遂良、许敬宗担任监修，组织编写《晋书》。
众人撰写《晋书》，从受命到成书，仅历时两三年。成书时间之所以较短，主要有两个原因，一是《晋书》由于有政府作后盾，人力、物力、财力和图书档案资料都有保证，这些条件，是私人修史无法比拟的。
二是有多种晋史著述可供参考。
由于有蓝本作为依据，成书自然较为容易。
月度归档： 2024 年 7 月
AutoCAD 的块(Block)
‘绑定 AutoCAD
Dim I As Integer, J As Integer
Dim oAutoCAD As Object
Call BindAutoCAD(True)
‘打开并绑定文件 D:/Test.dwg
Dim oDraw As Object ‘AutoCAD 多文档之一
Set oDraw = oAutoCAD.Application.Documents.Open(“D:/Test.dwg”)
‘ 生成块定义
Dim oBlockDef As Object
Dim insertionPnt(0 To 2) As Double
insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
Set oBlockDef = oDraw.Blocks.Add(insertionPnt, “TestBlock”)
‘ 块内添加圆
Dim oCircle As Object
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 0: center(1) = 0: center(2) = 0
radius = 12
Set oCircle = oBlockDef.AddCircle(center, radius)
Debug.Print “Entity Name: ” & oCircle.EntityName
Debug.Print oCircle.Handle
‘ 块内添加单行文字
Dim startPoint(0 To 2) As Double
Dim height As Double
Dim textString As String
Dim oText As Object
startPoint(0) = 15
startPoint(1) = 5
startPoint(2) = 0
height = 6
textString = “A block demo.”
Set oText = oBlockDef.AddText(textString, startPoint, height)
Debug.Print “Entity Name: ” & oText.EntityName
Debug.Print oText.Handle
‘ 插入块(块的实例化)
Dim oBlockRef As Object
insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
Set oBlockRef = oDraw.ModelSpace.InsertBlock(insertionPnt, “TestBlock”, 1#, 1#, 1#, 0)
‘ 缩放块实例
Dim basePoint(0 To 2) As Double
Dim scaleFactor As Double
basePoint(0) = 0#
basePoint(1) = 0#
basePoint(2) = 0#
scaleFactor = 10#
Call oBlockRef.ScaleEntity(basePoint, scaleFactor)
‘ 旋转块实例
Dim rotationAngle As Double
basePoint(0) = 0#
basePoint(1) = 0#
basePoint(2) = 0#
rotationAngle = 1.57 ‘弧度
Call oBlockRef.Rotate(basePoint, rotationAngle)
‘ 分解块实例
Dim oSet As Variant
oSet = oBlockRef.Explode()
For I = LBound(oSet) To UBound(oSet)
Debug.Print “Entity Name: ” & oSet(I).EntityName
Debug.Print oSet(I).Handle
Next
‘ 执行 AutoCAD 命令 Zoomextents
oAutoCAD.Zoomextents
二十四史简介——三国志
《三国志》，六十五卷，包括《魏书》三十卷，《蜀书》十五卷，《吴书》二十卷，主要记载魏、蜀、吴三国鼎立时期的历史。
作者陈寿，字承祚，巴西安汉人，生于汉后主刘禅建兴十一年，死于晋惠帝元康七年。他在蜀汉做过官，三十岁时，蜀汉政权灭亡，入晋后做过晋平令、著作郎。
陈寿写《三国志》以前，已出现一些有关魏、吴的史作，如王沈的《魏书》，鱼豢（换）的《魏略》，韦昭的《吴书》等。《三国志》中的《魏书》、《吴书》，主要取材于这些史书。蜀政权没有设置史官，无专人负责搜集材料，编写蜀史。《蜀书》的材料是由陈寿采集和编次的。陈寿写书的时代靠近三国，可资利用的他人成果并不多，加上他是私人著述，没有条件获得大量的文献档案。我们阅读《三国志》时，就会发现陈寿有史料不足的困难，内容显得不够充实。陈寿没有编写志。我们要了解三国时代的典章制度，只好借助于《晋书》。
《三国志》善于叙事，文笔简洁，剪裁得当，当时就受到赞许。与陈寿同时的夏侯湛写作《魏书》，看到《三国志》，认为没有另写新史的必要，就毁弃了自己的著作。后人更是推崇备至，认为在记载三国历史的史书中，独有陈书可以同《史记》、《汉书》相媲美。因此，其他各家的三国史相继泯灭无闻，只有《三国志》一直流传到现在。