《元史》是系统记载元朝兴亡过程的一部纪传体史书，成书于明朝初年。
明太祖洪武元年（公元1368年），元朝灭亡，朱元璋下令编修《元史》。
洪武二年，以宋濂、王为裁、汪克宽等十六人为纂修，开史局于南京天界寺，进行编写。从洪武二年二月到八月，用一百八十八天的时间，修成顺帝以前各朝的历史，共一百五十九卷。接着，明朝政府派欧阳佑持等十二人到全国各地征集顺帝一朝的资料。洪武三年二月重开史局，仍由宋濂、王任总裁，但纂修人员作了大幅度的调整，这一次纂修共十五人，只有赵埙曾参与第一次工作，其余都是新人。八月书成，共五十三卷，历时一百四十三天。前后两次修成的文稿经过统一加工，共二百一十卷，内本纪四十七卷，志五十八卷，表八卷，列传九十七卷。两次开局共历时三百三十一天。
朱元璋在建国之初，立即着手组织《元史》的编纂，而且在很短的期间成书，主要出于政治上的需要。他的意图是以此来说明元朝的灭亡和明朝的兴起都出于“天命”，而他自己则是“奉天承运”的真命天子。
清代著名学者钱大昕说：“古今史成之速，未有如《元史》者；而文之陋劣，亦无如《元史》者。”《元史》问世后，很多学者对它表示了不满，钱大昕则是不满者中持激烈否定态度的一个。对于《元史》的批评，主要认为它的编纂工作过于草率，没有认真的融合贯通，基本上都是利用已有的文献资料，略加删削修改而成。但是，尽管存在这样那样的问题，《元史》仍是我们今天了解、研究元代历史的极其珍贵的文献。它是最早的全面、系统记述元代历史的著作。
作者： 老王
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) |
二十四史简介——金史
《金史》撰成于元代，全书一百三十五卷，其中本纪十九卷，志三十九卷，表四卷，列传七十三卷，是反映女真族所建金朝的兴衰始末的重要史籍。
《金史》是元修三史之一，最早议修于元世祖中统二年（公元1261年），以后在至元元年、十六年，以及仁宗朝、文宗朝都分别议论过修史的事，都因义例难定未付诸实行，直到元顺帝至正三年（公元1343年），才决定“各与正统”，《辽》、《金》、《宋》三史分别撰修。翌年十一月，《金史》告成，前后用了不到一年的时间。修三史的都总裁官是右丞相脱脱，参加修《金史》的有铁木尔塔识、张起岩、欧阳玄、王沂、杨宗瑞等，其中欧阳玄的贡献最为突出，他制订《金史》撰修的发凡举例，书中的论、赞、表、奏皆他属笔。
使用递归方法，遍历指定目录
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
二十四史简介——辽史
《辽史》撰成于元代，全书一百一十六卷，包括本纪三十卷，志三十二卷，表八卷，列传四十五卷，国语解一卷。
本书较系统地记载了我国古代契丹族建立的辽朝二百多年的历史，并兼载辽立国以前契丹的状况，以及辽灭亡后耶律大石所建西辽的概况，是研究辽和契丹、西辽的重要史籍。
辽太祖耶律阿保机建国之初，依仿汉人制度，设立监修国史官，并且仿照中原的做法，撰修《起居注》、《日历》、《实录》等。辽代曾先后四次撰修实录。
金朝建立后，很注意总结前朝的兴衰得失，着力修撰《辽史》，前后撰成两部《辽史》。第一次是熙宗皇统年间（公元1141–1149年），耶律固主持修纂，最后由萧永祺完成，此《辽史》有纪三十卷，志五卷，传四十卷，但未曾刊行。
第二次撰修《辽史》，由廉惠山海牙、王沂、陈绎曾分撰，从至正三年四月开始撰写，四年三月即告脱稿，仅仅用了十一个月的时间。这是因为前人所撰《辽史》和实录提供了良好的基础。
一般人认为，元修《辽史》失之简略，但不应否定它特有的长处。《辽史》的志、表多有特色，其中一些志、表是其它正史所没有的。