Cad代码

Option Explicit '图形集合

Private colDwgs As New Collection '文档对象

Private objDoc As AcadDocument '布局对象

Private objLayout As AcadLayout '打印配置集合

Private objPlotConfigurations As AcadPlotConfigurations '打印配置

Private objPlotConfiguration As AcadPlotConfiguration Private objOriginalPC As AcadPlotConfiguration '打印对象

Private objPlot As AcadPlot '图纸尺寸名称数组

Private paperSizes As Variant

Private Numerator As Double, Denominator As Double Private OffsetX As Double, OffsetY As Double Private ms As Boolean

Private Type BrowseInfo hOwne

常用命令：

A——ARC——圆弧 B——BLOCK——块定义 C——CIRCLE——圆 D——DIMSTYLE——标注样式 E/DEL键——ERASE——删除 F——FILIET——倒圆角 H——BHATCH——填充 L——LINE——直线 M/S——MOVE——移动 O——OFFSET——偏移 P——PAN——实时平移（图标为小手） X——EXPLODE——分解 PO——POINT——点 XL——XLINE——射线 ML——MLINE——多线 PL——PLINE——多段线 POL——POLYGON——正多边形 REC——RECTANGLE——矩形 DO——DONUT——圆环 EL——ELLIPSE——椭圆 CO——COPY——复制 M

加载CAD中.LSP程序的方法

1.打开CAD,输入AP命令,加载下载的LSP程序

2.点击AP加载对话框点右下角的方框 “启动组” ，这样才能保证每次打开CAD都能有LSP的文件,不需每次重新加载。

3、然后你就可以用快捷键1、2、3、4、5……调出相应的图层了。

代码说明：

(defun JJT_chlayer (JJT_layer / JJT_S) (if (null (tblsearch \ (entmake (list '(0 . \

'(100 . \ '(100 . \ (cons 2 JJT_layer) ; '(70 . 0) ; '(62 . 7) ; '(6 . \ ;

)

) )

(setq JJT_S (cadr (ssgetfirst))) (if JJT_S

(command \ (setvar \ ) (princ) )

(defun c:1 ()

加载CAD中.LSP程序的方法

1.打开CAD,输入AP命令,加载下载的LSP程序

2.点击AP加载对话框点右下角的方框 “启动组” ，这样才能保证每次打开CAD都能有LSP的文件,不需每次重新加载。

3、然后你就可以用快捷键1、2、3、4、5……调出相应的图层了。

代码说明：

(defun JJT_chlayer (JJT_layer / JJT_S) (if (null (tblsearch \ (entmake (list '(0 . \

'(100 . \ '(100 . \ (cons 2 JJT_layer) ; '(70 . 0) ; '(62 . 7) ; '(6 . \ ;

)

) )

(setq JJT_S (cadr (ssgetfirst))) (if JJT_S

(command \ (setvar \ ) (princ) )

(defun c:1 ()

辽宁工程技术大学毕业设计（论文）

9.专题部分

土坡稳定分析程序

9.1 程序理论依据

目前，我国的一些地区和行业规范都建议采用瑞典圆弧滑动面条分法验算土坡整体稳定性。本程序以该方法作为理论基础。 9.1.1 最危险滑动面圆心的确定

图9.1 最危险滑动圆弧的确定

fig9.1 risk slip face

最危险滑动面圆心位置的确定一般采取试算法。如图9.1。

①

内摩擦角??0的高塑性粘土。认为土坡的最危险圆弧滑动面通过坡脚。首先根据坡脚?由表9.1查出坡底角?1和坡顶角?2。再在图9.1中的坡底和坡顶分别画出破底

角?1和坡顶角?2，两线交点为O，O即为最危险滑动圆弧的圆心。

表9.1 坡脚与坡底角和坡顶角的关系 tab9.1

坡脚?（度） 坡底角?1（度） 90 33 75 32 40 60 29 40 45 28 38 33..78 26 35 30 26 36 26.57 25 35 15 24 37 0.32 25 37 坡顶角?2（度） 40 ②

内摩擦角??0的土：

a. 按上述步骤求出O点；

b. 由A点垂直向下量取一高度，该高度等于边坡高度H，得C点位置，

Visual basic 与AutoCAD二次开发298页 创建菜单

Sub InsertMenu()

Dim currMenuGroup As AcadMenuGroup

Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) Dim newmenu As AcadPopupMenu

Set newmenu = currMenuGroup.Menus.Add(\磁选机设计\

Dim newmenuitem1 As AcadPopupMenuItem Dim newmenuitem2 As AcadPopupMenuItem

Dim openmacro1 As String Dim openmacro2 As String

openmacro1 = Chr(3) & Chr(3) & Chr(95) & \盘类零件\openmacro2 = Chr(3) & Chr(3) & Chr(95) & \轴类零件\

Set newmenuitem1 = newmenu.AddMenuItem(newmenu.Count + 1, \盘类零件\currMenuGroup.M

信息产业部

AUTOCAD认证管理中心

AUTOCAD应用工程师/高级应用工程师

考试题库

信 息 产 业 部

全国AUTOCAD/ProE认证考试简介

邵阳学院机械系CAD/CAM实验室是中华人民共和

国信息产业部中国CAD认证管理中心在湖南省邵阳市唯一

1

指定授权培训和考试中心（ATC）。为满足广大工程技术人员及在校学生就业的需要，面向广大考生提供AUTOCAD和三维CAD(ProE)培训及认证考试。考题为40道选择题,题型包括理论题、绘图题、软件操作题等,总分为100分，60分即可通过。 信息产业部AUTOCAD/ ProE认证证书是全国计算机辅助设计行业中承认范围最广的一项技术证书，是目前国内六大权威性认证之一。获得AUTOCAD/ ProE认证证书，即证明了自己具备使用AUTOCAD/ProE产品，为企业成功设计并绘制复杂图形、图表的能力。AUTOCAD/ ProE认证提高了学员的技术水平，增强了他们的职场竞争能力，获得证明自己能力的权威证书将为你今后的学习和就业提供坚实的保障。目前的考试级别AUTOCAD分为应用工程师和高级应用工程师两个级别，ProE为应用工程师一个级别。本中心为广大考生提供最新试题库，可保证通过率。学生一旦通过认

最全的CAD快捷键+CAD实用技巧+最全操作系统

AutoCAD快捷键

快捷键 执行命令 命令说明 3A 3DARRAY 三维阵列 3DO 3DORBIT 三维动态观察器 3F 3DFACE 三维表面 3P 3DPOLY 三维多义线 A ARC 圆弧

ADC ADCENTER AutoCAD设计设计中心

AA AREA 面积

AL ALIGN 对齐（适用于二维和三维）

AP APPLOAD 加载、卸载应用程序 AR ARRAY 阵列 *AR *ARRAY 命令式阵列 ATT ATTDEF 块的属性 *ATT *ATTDEF 命令式块的属性 ATE ATTEDIT 编辑属性 ATE *ATTEDIT 命令式编辑属性 ATTE *ATTEDIT 命令式编辑属性 B BLOCK 对话框式图块建立 *B *BLOCK 命令式图块建立 BH BHATCH 对话框式绘制图案填充

BO BOUNDARY 对话框式封闭边界建立

*BO *BOUNDARY 命令式封闭边界建立

BR

AUTOCAD应用工程师/高级应用工程师考试题库

一、单选题：

1、重新执行上一个命令的最快方法是：A （A） 按ＥＮＴＥＲ键 （B） 按空格键 （C） 按ＥＳＣ键 （D） 按Ｆ１键

2、运行AutoCAD2002软件，至少需要( )内存空间。D （A） 32MB （B） 40MB （C） 48MB （D） 64MB

3、运行AutoCAD2002软件，计算机的微处理器主频应在( )以上 B （A） 133MHz （B） 233MHz （C） 400MHz （D） 800MHz

4、 在AutoCAD2004中，系统提供了( )条命令用来绘制圆弧。A （A） 11 （B） 6 （C） 8 （D） 9 5、ＡＵＴＯＣＡＤ２００4图形文件和样板文件的扩展名分别是：B （A） ＤＷＴ,ＤＷＧ （B） ＤＷＧ,ＤＷＴ （C） ＢＭＰ,ＢＡＫ （D） ＢＡＫ,ＢＭＰ 6、取消命令执行的键是：B （A） 按ＥＮＴＥＲ键 （B） 按ＥＳＣ键 （C） 按鼠标右键 （D） 按Ｆ１键

CAD快捷键命令命令大全(CAD系统变量设置）

A

ACADLSPASDOC 控制 AutoCAD 是将 acad.lsp 文件加载到所有图形中，还是仅加载到在 AutoCAD 任务中打开的第一个文件中

ACADPREFIX 存储由 ACAD 环境变量指定的目录路径（如果有的话），如果需要则添加路径分隔符

ACADVER 存储 AutoCAD 版本号

ACISOUTVER 控制 ACISOUT 命令创建的 SAT 文件的 ACIS 版本 AFLAGS 设置 ATTDEF 位码的属性标志

ANGBASE 设置相对当前 UCS 的 0 度基准角方向

ANGDIR 设置相对当前 UCS 以 0 度为起点的正角度方向 APBOX 打开或关闭 AutoSnap 靶框

APERTURE 以像素为单位设置对象捕捉的靶框尺寸

AREA 存储由 AREA、LIST 或 DBLIST 计算出来的最后一个面积 ATTDIA 控制 -INSERT 是否使用对话框获取属性值 ATTMODE 控制属性的显示方式

ATTREQ 确定 INSERT 在插入块时是否使用缺省属性设置 AUDITCTL 控制 AUDIT 命令是否创建核查报