AutoCAD 环境设置

Dim oAutoCAD As Object
Call BindAutoCAD(True)

Dim sLayerName As String
Dim iColor As Integer
Dim sTextStyle As String
Dim iMode As Integer

sLayerName = “平面”
iColor = 1 ‘Red
sTextStyle = “汉字”
iMode = 519 ‘端点 1 + 中点 2 + 圆心 4 + 最近点 512

Call AddLayer(sLayerName, iColor)
Call AddTextStyle(sTextStyleName)
Call SetOSMode(iMode)

Public Sub AddLayer(sLayerName As String, iColor As Integer) ‘增加图层
Dim oLayer As Object
Set oLayer = oAutoCAD.ActiveDocument.Layers.Add(sLayerName)
oLayer.Color = iColor
oAutoCAD.ActiveDocument.ActiveLayer = oLayer
End Function

Public Sub AddTextStyle(sTextStyleName As String) ‘添加或修改字体
Dim oTextStyle As Object
Set oTextStyle = oAutoCAD.ActiveDocument.TextStyles.Add(sTextStyleName)
oTextStyle.BigFontFile = “hztxt.shx”
oTextStyle.FontFile = “romans.shx”
oTextStyle.Height = 8
oTextStyle.Width = 0.6
oAutoCAD.ActiveDocument.ActiveTextStyle = oTextStyle
End Function

Public Sub SetOSMode(ByVal iMode As Integer) ‘设置对象捕捉模式
oDraw.SetVariable “OSMODE”, iMode
‘使用以下位码设置“对象捕捉”的模式(OSNAP mode):
‘0 NON (无)
‘1 END(端点)
‘2 MID(中点)
‘4 CEN (圆心)
‘8 NOD (节点)
’16 QUA (象限点)
’32 INT(交点)
’64 INS (插入点)
‘128 PER (垂足)
‘256 Tan (切点)
‘512 NEA (最近点)
‘1024 QUI (快速)
‘2048 App (外观交点)
‘4096 EXT (尺寸线)
‘8192 PAR (平行)
‘要指定多个对象捕捉方式,请输入各个位码值之和。
End Sub

濊貊

一、濊貊族

濊貊是中国东北南部地区和汉四郡故地的古老的地区部族,又称貉、貉貊或藏貊,古文献称之为“亳人”或“发人”。濊貊是由濊人和貊人汇合而成,虽然曾经吸收了一部分游牧民族的成员,但主体还是不能算做游牧民族。濊貊族在夏商之际广泛分布于南起朝鲜半岛北至松花江流域中游的广大地区,濊貊主体在东北,周灭商后小部分逐渐迁至其他东部地区,一小部分濊貊人迁至朝鲜半岛,后来被汉四郡故地女真人所同化,成为了女真民族的组成部分。

濊貊族早在西周时代,就是周王朝的臣属国。春秋时期,齐桓公曾经发动过对濊貊的战争。战国时期,濊貊族从事农业和渔猎业,黍成为濊貊人的主要食粮。此时的濊貊族进入原始社会晚期,过著定居生活。后来在东北地区建立政权的夫余和高句丽,就是在融合濊貊等东北区域民族的基础上形成,发展起来的。

二、扶余国

古国名,亦作夫余,是居住在中国东北部的古老民族扶余人所建立的东北亚国家。扶余人聚居于今日中国东北,那里谷物丰盛,余粮颇多。扶余国从前2世纪立国到494年东扶余国被高句丽灭国为止,历时约700年。后世的高句丽,百济都是扶余国的延续。扶余人是今天韩国人/朝鲜人的先民之一。此外,沃沮、东濊都是扶余的兄弟民族。美国一位人类学家贾德·戴蒙认为夫余就是布里亚特人,前四、五世纪从贝加尔湖移居东北。扶余一名最早出现在逸周书,名凫庾,是九夷之一。松嫩平原上有一种树,树上有种盐可食用,古代部分越人到了松嫩平原,他们把食用这种盐的人叫扶余。

东明是传说中的夫余始祖。夫余国最强盛之时,疆域达到万里长城以北,南达高句丽、东达挹娄、西接鲜卑,方圆约二千里。夫余国与中原王朝关系密切:汉时归玄菟郡统辖;魏时臣服于辽东公孙氏政权;晋时又常去中原朝贡。夫余国是一个历史悠久的民族国家,由橐离国王子东明南下所建。一部分居民东迁并成立了东夫余国(后为高句丽所灭),立世约700年。

扶余国最早在史书出现的地方是《史记》,在卫满朝鲜于公元前107年被灭国时就已存在。后来在解夫娄时,宰相阿兰弗假借“天帝”的话而篡位,解夫娄东迁。为分辨这两个扶余,史书一般称前者为“北扶余”,东迁后的为“东扶余”。因而才将北夫余、东夫余都视为夫余的别称。至西汉时期,被划入玄菟郡。汉武帝年,扶余开始向汉朝进贡。汉顺帝永和元年(136年),扶余王曾来到洛阳。之后到了三国时代,辽东半岛被公孙氏支配。后来扶余受到鲜卑的攻击,慢慢步向衰亡。

五世纪末,勿吉人强大起来。北魏初,勿吉越过张广才岭向西发展,开始进攻夫余,占领了原夫余的大片土地。北魏孝文帝时勿吉驱逐夫余,夫余王被迫“携妻擎南逃”,于高句丽文咨明王三年(494年),投降了高句丽。至此,夫余国在我国东北存在七百多年后消失了。

三、百济

百济是古代中国东北的扶余人南下在朝鲜半岛西南部原马韩地区建立起来的国家,东汉末由扶余人贵族南下侵占建立,660年被唐与新罗联军灭亡。统治范围在朝鲜半岛西南部。后与高句丽接壤,东与新罗为邻。都城居拔城,也叫固麻城。此外还有五个别都,中间的叫古沙城,东面的叫得安城,南面的叫久知下城,西面的叫刀先城,北面的叫熊津城。

百济的统治阶层与高句丽统治阶层同属于扶余人而不同于其下层百姓三韩人。朝鲜半岛南部的的三韩人是不同于扶余人另一个民族。百济是夫余王尉仇台于东汉后期带方一带(可能位于汉江南岸)创建。东汉后期, 百济统治下层的马韩部落。建立百济的是一部分东北的扶余人。扶余人入侵朝鲜半岛南部后构成上层,而与之语言文化完全不同另一民族马韩则是国家中的下层。

百济国王给北魏皇帝的表文说:臣与高丽先出夫余。百济的鼎盛时期疆土涵括西朝鲜半岛(除了平安北道和平安南道)的绝大部分。最北曾到平壤。百济是海上的强国,通过海路与中国和日本进行政治和贸易往来。4世纪之后,随着三国(高句丽、新罗、百济)间,中国及倭的联系的加深,也逐渐吸收了新罗人、高句丽人、倭人和中国人。541年,百济向梁武帝“请《涅盘》等经义、《毛诗》博士并工匠、画师等”,表明了百济同南朝间的密切文化联系。

《隋书》中提到东明的后代有个叫仇台的在带方的地方建立自己的国家,汉代辽东太守公孙度把自己的女儿嫁给他做妻子,他的国家逐渐强盛成为东夷中强国。国王以每年的四仲之月祭天,又每年四次祭祀他的始祖仇台的庙宇于国都。开国之初,尉仇台在东汉末年统治马韩。古尔王(234年-286年)的统治时期巩固了国家的制度。近肖古王(346年-375年)通过与高句丽的战争向北扩展了疆土,在战争中,杀死了高句丽王(即故国原王),同时向南消灭了残存的马韩部落,达到全盛期。

公元660年,百济被唐朝和新罗的联军灭亡。灭亡后的三年里,百济曾展开过轰轰烈烈的复兴运动,但最终失败。

四、高句丽

高句丽(公元前37年-公元668年) 是公元前一世纪至公元七世纪在我国东北地区和朝鲜半岛存在的一个民族政权,其人民主要是濊貊和扶馀人,后又吸收些靺鞨人、古朝鲜遗民及三韩人。

公元前37年,扶余王子朱蒙因与其他王子不和,逃离扶余国到卒本扶余,建立高句丽。高句丽太祖王时期,高句丽从早期的几个濊貉部落国家很快扩张到汉江流域。公元53年,高句丽太祖王,将高句丽分散的5个部落设为5个省,实行集权化统制。56年,太祖王吞并东沃沮。后又吞并东濊一部分领土。随后,高句丽又对乐浪郡,玄菟郡和辽东发动攻势。完全摆脱汉朝的控制。高句丽的扩张与集权化,导致了与汉朝的直接武力冲突。汉朝军事压力迫使高句丽迁都到丸都城。

汉朝灭亡后,辽东郡被好战的地方土豪控制。 高句丽主动与刚刚成立的曹魏联盟攻打辽东郡。曹魏攻下辽东后,高句丽终止了与曹魏的合作并发兵袭击了辽东西部。244年曹魏反击,摧毁了丸都城。高句丽东川王逃到沃沮。曹魏摧毁了丸都城后以为高句丽灭亡了,所以很快就撤离了。不过仅仅70年,高句丽就重建了丸都城,并开始袭击辽东,乐浪和玄菟。随着高句丽对辽东半岛的挺进,313年,高句丽美川王吞并原汉四郡的最后一郡,乐浪郡。高句丽从东北地区进入并控制了朝鲜半岛北部大部地区,开始与百济与新罗处于激烈的军事对峙之中。朝鲜人称这一段历史时期为朝鲜历史上的“三国时代”。

高句丽小兽林王继位后,开始加强高句丽国内的稳定和统一。5世纪末时,从高句丽好太王继位起,高句丽开始进入鼎盛时期。后来好太王兼并了北部的扶余国和靺鞨部落;在军事上对百济形成了绝对优势地位;并在新罗与百济,伽倻和倭的战争中迫使新罗屈服。413年,高句丽长寿王登基。由于百济和新罗的对抗,427年,长寿王迁都到平壤以加强对百济和新罗的控制。长寿王延续了其父好太王的扩张政策。5世纪末,长寿王又吞并了一些扶余,靺鞨和契丹部落;与北魏交锋;并保持了对新罗的控制。

高句丽在6世纪达到鼎盛后,开始逐渐地衰落。高句丽安藏王被刺杀后,其兄安原王继位。551年,百济和新罗为摆脱被高句丽奴役的地位而开始联合攻打高句丽。

612年,隋的百万大军从陆路和海上攻打高句丽,一路破城四五十余座,后来由于隋军前线将领的指挥不当,造成渡过辽河进攻的30万大军几乎全军覆没。613年隋炀帝亲征高句丽,但因杨玄感的反叛,造成此次战役取消。614年隋炀帝再次亲征高句丽,因为高句丽连年战事造成国内弊端甚多,而且兵力严重不足,高元闻隋大军已突破重重防线,高元大惧,乃遣使请降谢罪,并交还叛逃的隋将斛斯政,隋炀帝许之,遂班师回朝

贞观十七年(六百四十三年年),新罗遣使入朝,述说百济攻占其40余城,并与高句丽图谋断绝其唐朝的通路。唐太宗李世民派人出使高句丽,命其停止争战,遭高句丽权臣、莫离支泉盖苏文拒绝,唐太宗遂决定发兵东征高丽。攻占辽东等十城,获七万余户,斩杀高丽兵4万余人,唐军阵亡数千人,战马损失十之七八。以后,唐军采取了对高句丽发动骚扰性攻击的策略。

公元666年,在泉盖苏文死后,世子男生代为莫离支,但为二弟男建所逼,降于唐,造成高句丽内乱。唐高宗见状派契毖何力、庞同善等击高句丽,援救泉男生。不久,唐高宗以李绩为辽东道行军大总管,统帅诸军,分道合击高句丽。九月十二日,高句丽僧信诚打开城门,唐军冲进城中,俘男建,高句丽全部平定。唐平高句丽后,分其境为九都督府、四十二州、一百县,并于平壤设安东都护府以统之,任命右威卫大将军薛仁贵为检校安东都护,领兵二万镇守其地。高句丽第27代国王宝藏王高藏被唐朝俘虏,高句丽贵族及大部分富户与数十万百姓被迁入中原各地,融入中国各民族中。另有部分留在辽东,成为渤海国的臣民,而其余小部分融入突厥及新罗。自此,高句丽国家不再存在于世。

AutoCAD 基本操作

‘绑定 AutoCAD
Dim oAutoCAD As Object ‘AutoCAD Application 本身
Call BindAutoCAD(True)
Dim oDraw As Object ‘AutoCAD 多文档之一

‘打开并绑定文件 D:/Test.dwg
Set oDraw = oAutoCAD.Application.Documents.Open(“D:/Test.dwg”)

‘绑定已经打开文件 Demo.dwg
Set oDraw = oAutoCAD.Documents.Item(“Demo.dwg”)

‘新建文件并绑定
Set oDraw = oAutoCAD.Documents.Add

‘绑定已经打开的当前文件
Set oDraw = oAutoCAD.ActiveDocument

‘另存文件并指定格式
oDraw.SaveAs “D:/TestBack.dwg”, 12 ’12 为 AutoCAD 2000 DWG (*.dwg) 格式

‘退出 AutoCAD 并释放资源
oAutoCAD.Quit
Set oAutoCAD = Nothing
Set oDraw = Nothing

绑定 WPS Word 对象

模块 BindWord 后期绑定 WPS Word 对象,调用方法如下:

Dim sProg As String
sProg = “kwps” ‘WPS 2013 之前版本为 wps
Dim oWord As Object
Call BindWord(True)

Public Sub BindWord(ByVal bVisible As Boolean)
If Not oWord Is Nothing Then Exit Sub
On Error Resume Next
Set oWord = GetObject(, sProg & “.Application”)
If Err.Number <> 0 Then ‘没有打开
Err.Clear
Set oWord = CreateObject(sProg & “.application”)
If Err.Number <> 0 Then ‘没有正确安装
Err.Clear
Exit Sub
End If
oWord.Visible = bVisible
End If
On Error GoTo 0
End Sub

绑定 WPS Excel 对象

模块 BindExcel 后期绑定 WPS Excel 对象,调用方法如下:

Dim sProg As String
sProg = “ket” ‘WPS 2013 之前版本为 et
Dim oExcel As Object
Call BindExcel(True)

Public Sub BindExcel(ByVal bVisible As Boolean)
If Not oExcel Is Nothing Then Exit Sub
On Error Resume Next
Set oExcel = GetObject(, sProg & “.Application”)
If Err.Number <> 0 Then ‘没有打开
Err.Clear
Set oExcel = CreateObject(sProg & “.application”)
If Err.Number <> 0 Then ‘没有正确安装
Err.Clear
Exit Sub
End If
oExcel.Visible = bVisible
End If
On Error GoTo 0
End Sub