《金史》撰成于元代，全书一百三十五卷，其中本纪十九卷，志三十九卷，表四卷，列传七十三卷，是反映女真族所建金朝的兴衰始末的重要史籍。
《金史》是元修三史之一，最早议修于元世祖中统二年（公元1261年），以后在至元元年、十六年，以及仁宗朝、文宗朝都分别议论过修史的事，都因义例难定未付诸实行，直到元顺帝至正三年（公元1343年），才决定“各与正统”，《辽》、《金》、《宋》三史分别撰修。翌年十一月，《金史》告成，前后用了不到一年的时间。修三史的都总裁官是右丞相脱脱，参加修《金史》的有铁木尔塔识、张起岩、欧阳玄、王沂、杨宗瑞等，其中欧阳玄的贡献最为突出，他制订《金史》撰修的发凡举例，书中的论、赞、表、奏皆他属笔。
标签： 科普
与知识性、常识性、实用性普及为目的等相关的文章。
AutoCAD 的图纸 DXF 组码
| -1 = 图元名称 (Entity Name) | 0 = 图元类型 (Entity Type) |
| 5 = 图元句柄 (Handle) | 6 = 线型 (Line Type) |
| 8 = 图层名称 (Layer Name) | 48 = 线型比例 (Line Type Scale) |
| 62 = 颜色号码 (Color Number) | 67 = 绘图空间 (1 = 图纸空间) |
弧 (ARC)
| 10 = 圆心点 | 40 = 半径 | 50 = 起点角度 | 51 = 终点角度 |
圆 (CIRCLE)
| 10 = 圆心点 | 40 = 半径 |
注标 (DIMENSION)
| 1 = 注标文字 | 2 = 图块名称 | 3 = 文字字型 | 10 = 定义点坐标 |
| 11 = 文字中间点坐标 | 13 = 第1定义点坐标 | 14 = 第2定义点坐标 | 15 = 第3定义点坐标 |
| 50 = 注标线旋转角度 | 53 = 文字旋转角度 | 70 = 注标形式 |
(0=线性 1=对齐式 2=角度 3=直径 4=半径 6=坐标式 70=坐标式 128=文字巳被修改)
椭圆 (ELLIPSE)
| 10 = 圆心点 | 11 = 长轴端点相对于圆心的相对坐标 | 40 = 长短轴百份比 |
| 41 = 椭圆弧起点角度 | 42 = 椭圆弧终点角度 |
填涂 (HATCH)
| 2 = 图样名称 | 41 = 填涂比例 | 5 = 角度 | 71 = 是否为关系型 |
插入图块 (INSERT)
| 2 = 图块名称 | 10 = 插入点 | 41 = X方向比例 | 42 = Y方向比例 |
| 43 = Z方向比例 | 44 = 行间距 | 45 = 列间距 | 50 = 旋转角度 |
| 70 = 行数量 | 72 = 列数量 |
引线 (LEADER)
| 3 = 形式名称 | 7 = 字型 | 10 = 箭头起点坐标 | 40 = 文字高度 |
| 41 = 文字宽度 | 76 = 引线顶点数目 |
73 = 文字字型 (0=一般 1=公差 2=图块 3=没有)
线 (LINE)
| 10 = 起点 | 11 = 终点 |
细聚合线 (LWPOLYLINE)
| 10 = 顶点坐标 | 40 = 区段起点宽度 | 11 = 区段终点宽度 |
| 42 = 弯曲系数(即凸度,直线为0) | 43 = 是否单一线宽 | 70 = 断续线模式 |
| 90 = 顶点数目 |
(SOLID)
| 10 = 第1点坐标 | 11 = 第2点坐标 | 12 = 第3点坐标 | 14 = 第4点坐标 |
文字 (TEXT)
| 1 = 文字内容 | 7 = 字型 | 10 = 插入点 | 11 = 对齐点 |
| 40 = 文字高度 | 50 = 旋转角度 | 41 = X方向比例系数 | 51 = 倾斜角度 |
71 = 显示模式 (1=正常 2=左右颠倒 3=上下颠倒)
72 = 水平对齐模式 (0=靠左 1=中央 2=靠右 3=Align 4=Middle 5=Fit)
73 = 垂直对齐模式 (0=基线 1=底部 2=中央 3=顶部)
非图形常用DXF群码
共享DXF群码
| -1 = 图元名称 | 0 = 图元类型 | 5 = 图元句柄 | 70 = 位旗标 |
图块 (BLOCK)
| 1 = 外部参考路径 | 2 = 图块名称 | 10 = 插入点 | 70 = 旗标 |
(1=匿名 2=外部从属 4=外部参考 16=巳并入外部参考 32=巳贴附外部参考 64=巳参考)
图层 (LAYER)
| 2 = 图层名称 | 6 = 线型名称 | 62 = 颜色号号 | 70 = 旗标 (1=冻结 4=锁护) |
线型 (LINETYPE)
| 2 = 线型名称 | 3 = 描述文句 | 40 = 图样总长度 | 73 =图样元素数目 |
74 = 模式 (0=一般 2=包含文字 4=包含造形)
文字样式 (STYLE)
| 2 = 样式名称 | 3 = 英文字檔名 | 4 = 大字体文件名 | 42 = 宽度系数 |
| 50 = 倾斜角度 |
| 40 = 高度模式 (0=指定 1=不指定) | 71 = 显示模式 (0=正常 2=左右颠倒 4=上下颠倒 |
用户坐标系 (UCS)
| 2 = UCS名称 | 10 = 原点坐标(WCS) | 11 = X轴方向(WCS) | 12 = Y轴方向(WCS) |
二十四史简介——辽史
《辽史》撰成于元代，全书一百一十六卷，包括本纪三十卷，志三十二卷，表八卷，列传四十五卷，国语解一卷。
本书较系统地记载了我国古代契丹族建立的辽朝二百多年的历史，并兼载辽立国以前契丹的状况，以及辽灭亡后耶律大石所建西辽的概况，是研究辽和契丹、西辽的重要史籍。
辽太祖耶律阿保机建国之初，依仿汉人制度，设立监修国史官，并且仿照中原的做法，撰修《起居注》、《日历》、《实录》等。辽代曾先后四次撰修实录。
金朝建立后，很注意总结前朝的兴衰得失，着力修撰《辽史》，前后撰成两部《辽史》。第一次是熙宗皇统年间（公元1141–1149年），耶律固主持修纂，最后由萧永祺完成，此《辽史》有纪三十卷，志五卷，传四十卷，但未曾刊行。
第二次撰修《辽史》，由廉惠山海牙、王沂、陈绎曾分撰，从至正三年四月开始撰写，四年三月即告脱稿，仅仅用了十一个月的时间。这是因为前人所撰《辽史》和实录提供了良好的基础。
一般人认为，元修《辽史》失之简略，但不应否定它特有的长处。《辽史》的志、表多有特色，其中一些志、表是其它正史所没有的。
使用递归方法，遍历指定目录
Dim FolderArray(), FileArray() As String ‘全名
Dim FolderCount, FileCount As Integer
Dim I, J As Integer
SearchFiles “E:\”, “*”, True ‘查找所有文件
If IsEmptyArray(FileArray) Then Exit Sub
For I = LBound(FolderArray) To UBound(FolderArray)
Debug.Print FolderArray(I)
Next I
Debug.Print FolderCount; “Folders”
For I = LBound(FileArray) To UBound(FileArray)
Debug.Print FileArray(I)
Next I
Debug.Print FileCount; “Files”
‘调用示例(支持通配符)
‘SearchFiles “C:\Program Files\WinRAR\”, “” ‘查找所有文件 ‘SearchFiles “C:\Program Files\WinRAR\”, “.exe” ‘查找所有exe文件
‘SearchFiles “C:\Program Files\WinRAR\”, “in.exe” ‘查找文件名中包含有 in 的exe文件
Private Function SearchFiles(sTargetPath As String, sPartialName As String, Optional bAllPaths As Boolean = True)
Dim I, J As Integer
Dim SubFolderCount As Long
Dim SubFolderArray() As String ‘子文件夹全名
Dim sPath As String ‘文件名或子文件夹短名
If Right(sTargetPath, 1) <> “\” Then sTargetPath = sTargetPath & “\”
FolderCount = FolderCount + 1
ReDim Preserve FolderArray(1 To FolderCount)
FolderArray(FolderCount) = sTargetPath
sPath = Dir(GetFullName(sTargetPath, sPartialName)) ‘查找第一个文件
Do While Len(sPath) ‘循环到没有文件为止
FileCount = FileCount + 1
ReDim Preserve FileArray(1 To FileCount)
FileArray(FileCount) = sTargetPath & sPath ‘将文件目录和文件名组合,并存放到数组中
sPath = Dir ‘查找下一个文件
DoEvents ‘让出控制权
Loop
If Not bAllPaths Then Exit Function
sPath = Dir(sTargetPath, vbDirectory) ‘查找第一个文件夹
Do While Len(sPath) ‘循环到没有文件夹为止
If Left(sPath, 1) <> “.” Then ‘为了防止重复查找
If GetAttr(GetFullName(sTargetPath, sPath)) And vbDirectory Then ‘如果是文件夹则… …
SubFolderCount = SubFolderCount + 1
ReDim Preserve SubFolderArray(1 To SubFolderCount)
SubFolderArray(SubFolderCount) = GetFullName(sTargetPath, sPath) & “\” ‘将目录和文件夹名称组合形成新的目录,并存放到数组中
End If
End If
sPath = Dir ‘查找下一个文件夹
DoEvents ‘让出控制权
Loop
For I = 1 To SubFolderCount ‘使用递归方法，遍历所有目录
SearchFiles SubFolderArray(I), sPartialName
Next
End Function
二十四史简介——宋史
《宋史》撰修于元朝末年，全书有本纪四十七卷，志一百六十二卷，表三十二卷，列传二百五十五卷，共计四百九十六卷，约五百万字，是二十五史中篇幅最庞大的一部官修史书。
早在元初，元世祖忽必烈就曾诏修宋史，因体例未定而未能成书。元朝末年，丞相脱脱主张分别撰修宋、辽、金三史，各自独立，这一意见得到元顺帝的同意，于至正三年（公元1343年）三月开局，三史同时修撰。
经过二年半时间，至正五年（公元1567年）十月，《宋史》匆匆成书。
《宋史》是在原宋《国史》的基础上删削而成的。两宋时期，史官组织完备，雕版印刷术广泛应用，书籍流传和保存都较为便利，积累了大量史料。这就为元修《宋史》提供了良好的基础。但是由于《宋史》修撰者匆匆急就，在史料的裁剪、史实的考订、文字的修饰、全书体例等方面存在不少缺点，如一人两传，无传而说有传，一事数见，有目无文，纪与传，传与传，表与传，传文与传论之间互相抵牾等，这使它在二十五史中有繁芜杂乱之称。
尽管《宋史》存在不少缺点，但是它卷帙浩繁，仅《列传》就有二千多人，比《旧唐书·列传》多出一倍；叙事详尽，就史料的学术价值而言详胜于略。同时《宋史》的主要材料是宋代的国史、实录、日历等书，这些史籍现在几乎全部佚失了，而《宋史》是保存宋代官方和私家史料最有系统的一部书。