学报怎么画

作者：Clyde Wang链接：来源：知乎著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。虽然这和BIM好像没什么关系，但是还是简单回答一下吧，本人倒是做过几个CAD，Excel和word开发的项目，也不敢说多在行，但基本原理还是懂一些的，由于非计算机专业出身，所以语言不专业请见谅。上正文。（对于本解答之中不甚理解之处，或是程序代码运行错误可以私信本人，本人将给与力所能及的帮助。）===============================================================其实做这个事情方法有三种：在Excel VBA上调用CAD，在CAD VBA IDE上调用Excel，在自己的平台上调用两者。不过但本质还是一样的，就是运用其他软件提供给你的接口把你想实现的过程接进去就可以了。下面的一些图解和代码选自原来写的些论文，和您提出的问题可能没直接关系，但可以根据这些实例进行类比，也可以实现您需要的过程。1 如何获取程序的进程 添加引用这一步是多平台交互的基础，没有捕捉到目标平台的进程怎么能在目标平台上操作呢？所以为了实现我们的绘图操作或是数据读取，我们首先要捕捉当前的CAD进程或者Excel进程。这里我采用的是COM程序集的方法，虽然现在的CAD也支持.net的开发模式了，但...（好吧，我不会调用.net开发CAD）...打开一个VB的集成开发环境（，VisualStudio，CAD VBA IDE 或者 Excel VBA）这儿以Excel VBA作为开发环境为例。在Excel的［工具］中单击［宏］选项，在子菜单中单击［VisualBasic编辑器］即可打开VB编辑器，单击［工具］选项中的［引用］打开以下对话框，将上面所述的两个组件勾选便成功添加了对CAD的引用。图1 添加工程引用图1 添加工程引用引用了以上的两个COM组件后，我们就可以开始调用CAD的一些对象和命令了。 获取COM对象AutoCAD在COM组件中的架构如下图所示，要想在CAD的模型空间中进行操作则必须先获取CAD应用和模型空间所依附的文档。图2 CAD的结构图2 CAD的结构具体实现获取模型空间的代码如下：首先定义变量：Dim myCADapp As AcadApplicationDim myCADdoc As AcadDocumentDim space As AcadModelSpace在过程中输入以下代码即可得到AutoCAD进程：On Error Resume Next'如果当前有CAD正在运行，则捕捉当前程序进程Set myCADapp = GetObject(, "")'如果当前CAD未运行，则创建一个CAD的程序进程If > 0 Then Set myCADapp = CreateObject("") '此时创建的CAD进程可见性为[假]，需将其改为[真] = TrueEnd IfmyCADdoc = '获取当前活动文档space = '获取该文档的模型空间获取了模型空间，我们就可以对模型空间里面的图元进行一些操作了。2. CAD自动化绘图的基本原理 利用代码控制CAD的基本原理如果我们打开对象管理器，我们会发现其实CAD提供给我们的所有的类、接口和他们派生的一些方法，函数在结构上和CAD的交互界面设计的结构是一个样的，也就是说，比如，UI里一个文档有好多图层，你就可以在AcadDocument里面找到AcadLayers这个对图层进行管理的类；同样你在模型空间里面可以添加各种图元，你就可以利用AcadModelSpace派生的各种Add***函数来添加图元。本质来说，在你不需要一些智能算法辅助的情况下，其实我们的程序无非是把我们手工过程等效成了一个自动化的流程，其实也没啥区别，只是人家计算机处理的比我们手工的要快多了。图3 CAD代替人工实现自动化的基本原理图3 CAD代替人工实现自动化的基本原理 向模型空间添加一个图元理解了这个，我们就可以尝试去向模型空间中添加一条线了。AutoCAD的界面操作中，用户需要指定两点，才能生成一条直线；同样对于外部程序，想在AutoCAD中生成一条直线，除了调用生成直线的命令外，还应给予必要的参数（对于直线，就是两个端点），实例如下：Public Sub AddLine() ' 定义起点和终点并给其赋值 Dim StartPt(0 To 2) As Double, EndPt(0 To 2) As Double StartPt(0) = 0: StartPt(1) = 4: StartPt(2) = 3 EndPt(0) = 2: EndPt(1) = 3: EndPt(2) = 1 ' 定义直线，并赋值 #另：ThisDrawing是本地全局变量，代指本工程文件 Dim ln As AcadLine Set ln = (StartPt, EndPt)End Sub需要注明的是ThisDrawing这个关键词只在CAD VBA中才有用，其他的平台还是得按照第一节给的方法捕捉模型空间，并赋予某个变量才行。如果不出意外，运行完该代码应该就能完成添加命令了。下面是我运行得到的结果。图4 代码运行结果图4 代码运行结果 所以说CAD实现绘图的自动化该怎么做其实非常囧的就是，如果是一次性的任务，运用这种自动化程序的效率其实并不高，因为它需要将所有关键的点的坐标都表达出来，而且还时不时蹦出个bug...但没办法啊，程序就是这样的...比如要绘制一个倾斜的矩形，首先就是要把这个矩形的长宽及中心的表达式算出来，然后绘制一个直立的矩形，然后通过它派生的Rotate函数将它旋转。（说白了，和CAD界面操作基本上还是没啥区别的，而且...有些操作在界面上完成好像还更简单啊！！！=-=伤不起）给一个画歪着的矩形的一个代码段吧：主程序如下：Public Sub AddRect() Dim StartPt(0 To 1) As Double Dim EndPt(0 To 1) As Double StartPt(0) = 0: StartPt(1) = 0 EndPt(0) = 2000: EndPt(1) = 4000 Dim Rect As AcadLWPolyline Set Rect = RectAngle(StartPt, EndPt, ) Dim Centre(0 To 2) As Double Centre(0) = 0: Centre(1) = 0: Centre(2) = 0 '旋转多段线LWpln Const Degree = / 180 Centre, 30 * DegreeEnd Sub自定义函数如下：Public Function RectAngle(Point1() As Double, Point2() As Double, _Space As AcadModelSpace) As AcadLWPolyline Dim Pt(0 To 9) As Double Pt(0) = Point1(0): Pt(1) = Point1(1) Pt(2) = Point1(0): Pt(3) = Point2(1) Pt(4) = Point2(0): Pt(5) = Point2(1) Pt(6) = Point2(0): Pt(7) = Point1(1) Pt(8) = Point1(0): Pt(9) = Point1(1) Set RectAngle = (Pt)End Function运行出来大概就是这个样子了：图5 代码运行结果图5 代码运行结果基本上简单一点的CAD的自动化也就是这样了，把所有的关键点的坐标求出来，写好每个图元的表达式，然后把参数接进去，运行。就完了...3. Excel忘了说Excel，其实Excel比CAD要知道的少许多，因为基本上如果你只将他做一个数据来源的话，记着一个sheet派生的cells属性就足够解决所有问题了。（毕竟是有了单元格里面的数据）Excel的捕捉和CAD差不多的，引用的话就引用下图的这么几个文件就可以了。（哦，我用的是WPS，MS的Excel引用文件名和这个是不一样的~）引用之后和CAD差不多，用GetObject函数捕捉进程，其中的那个ProgID改成“”就可以。捕捉了进程后，捕捉你想用的Workbook和WorkSheet，引用之后和CAD差不多，用GetObject函数捕捉进程，其中的那个ProgID改成“”就可以。捕捉了进程后，捕捉你想用的Workbook和WorkSheet，使用Sheet派生的Cells（单元格）来获取数据。基本上和Excel的交互也就完了...================================================================回答时默认题主的设计是二维的所以没涉及三维图元的添加和修改，但CAD自动程序在三维图形上的设计能力也是可以接受的。比如下图是本人在一个平台开发时利用软件生成的实体。效果也还不错。但是经过开发CAD后，基于对CAD的天生缺陷的理解，我非常支持题主多去了解BIM，并不是说三维的就一定好，而是BIM从软件平台上来说，已经比CAD要高许多了。现在我也无心在去做什么CAD开发了，原因也非常简单，但是经过开发CAD后，基于对CAD的天生缺陷的理解，我非常支持题主多去了解BIM，并不是说三维的就一定好，而是BIM从软件平台上来说，已经比CAD要高许多了。现在我也无心在去做什么CAD开发了，原因也非常简单，当我想做的事情其实别人早就做完了，或者就算别人没做或者没做好，我也能在他通过的平台上通过了了百句的代码完成我的目标，而非像现在拼了老命写了上万句还只能实现些基础的功能，更可悲的是还增加了很多人为的限制。有时候我在想，牛顿的话也是至理了：如果说我看得比别人更远些，那是因为我站在巨人的肩膀上。祝在BIM的路上共进！Ps:如果觉得我说的太啰嗦当然也可以参考这篇：龙晓林，王国顺．使用VB应用程序调用AutoCAD和Excel软件的方法[J]．武汉理工大学学报（信息与管理工程版），2001，23(4)．以及这两本书曾洪飞，卢择临，张帆．AutoCAD VBA&开发基础与实例教程[M]．北京：中国电力出版社，2008．佟士懋，邢芳芳等．AutoCAD ActiveX/VBA二次开发技术基础及应用实例[M]．北京：国防工业出版社，2006(4)．

期刊卷号又称文献标识码,文献标识码是按照《中国学术期刊（光盘版）检索与评价数据规范》规定的分类码。

如1981年创刊的《中山大学学报论丛》2004年12月为第二十四卷第六期，《中山大学学报论丛》 是 双月刊，故12月出来的是第六期；

而这个“二十四”就是卷号，1981年全部《中山大学学报论丛》为第一卷，2004年的全部6期《中山大学学报论丛》，依序就为第二十四卷。

扩展资料：

以《中国大百科全书》新闻出版卷为代表，将期刊分为四大类：

(1)一般期刊，强调知识性与趣味性，读者面广，如我国的《人民画报》、《大众电影》，美国的《时代》、《读者文摘》等;

(2)学术期刊，主要刊载学术论文、研究报告、评论等文章，以专业工作者为主要对象;

(3)行业期刊，主要报道各行各业的产品、市场行情、经营管理进展与动态，如中国的《摩托车信息》、《家具》、日本的《办公室设备与产品》等;

(4)检索期刊，如我国的《全国报刊索引》、《全国新书目》，美国的《化学文摘》等。

参考资料：百度百科-期刊

参考资料：百度百科-期刊卷号

期刊。

学生发学报的话还是有难度的，一些本科学报是不面向本科生征稿的，且对内容质量要求很高，审核时也比较严格，审稿时间也不短，总的来说发表难度还是比较大的。

如果不是学校要求必须发学报，其实本科生发普刊来说就是比较合适的。像题主还想要审稿快比较好发的刊物，如果放到普刊里边寻找可选择项就多了很多。下面推荐几本文学类期刊你参考一下吧：

1、 《新纪实》省级期刊，知网收录，版面要求3版4500字符起发，收稿方向：文学研究、作品赏析、中外文学、电影文学等。

2、 《文化月刊》国家级期刊，知网收录，国家文化和旅游部主管，版面要求3版5300字符起发。收稿方向： 文化、艺术、旅游、非遗、文旅融合、戏剧影视、文学、书画收藏、设计等文化艺术，图书出版、新闻，大文化领域等。

3、《作家天地》知网收录，版面要求5000字符数3版起发，收稿方向：文学理论、文化、哲学、艺术、汉语言文学类、文学评论欣赏、单纯美术音乐历史文章。