上传时间：
CAD打开一个文件,选中的时候会很慢很迟钝的感觉.,点个虚线框住线条时候要等很久鼠标的位置才会出现,很不方便.不知道怎么搞的.,有时候本来一个文件好好的,画着画着突然会出现这样的情况.我另外打开另一个制图文件就不会这么迟钝.
56官方微信
扫一扫发现精彩制图 范围受限 求解我在画CAD图的时候区域总受到限制，比如说画的区域就不可以，怎样才能避免这个问题呢，能不能不要那个区域的限制啊！！！急 ...谢谢 ~~
在命令行输入LIMITS,回车,再回车,在命令提示行出现右上角位置,键入大于你所绘制图形最大尺寸范围的界限,就拿你所讲的,可以键入
"0",然后回车,在命令提示行键入Z,回车,键入A,回车既可,这样你就可以绘制你所需的图形了,不至于超出区域.
其他答案（共2个回答）
1）输入命令LIMITS，回车或点MOUSE右键；
2）确认左下角位置，默认为原点（0，0）（回车或点MOUSE右键）；
3）输入右上角位置，键入你希望的位置
4）输入命令Z－－－A，搞定，就可画你设定的范围了
遇到区域受限时，发命令Z回车，发命令E或A即可扩大绘图区域。
你输入SC回车后,它你你选择对象,你选择你的缩小的对象后回车,再回车,再在屏幕上任点一位置后,输入R,你输入你目前的尺寸,回车后,再输入你要缩小的尺寸,回...
这个是在打印输出那里设置的。一般画图是按一比一画，再按比例输出就行，不是的话还要转换比例。
视图--缩放---全屏
大家看看38+6的Bc单！医生不给我剖！急的我呀！。。
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区you have been blocked欢迎加入我们，一同切磋技术。 &
用户名： &&&
密　码： &
共有 1535 人关注过本帖
标题：关于VB在CAD上画图的问题，求昨天的大神师傅解答~~~
等　级：新手上路
帖　子：45
结帖率：77.78%
&&已结贴√
&&问题点数：20&&回复次数：11&&&
关于VB在CAD上画图的问题，求昨天的大神师傅解答~~~
Dim AcadApp As AcadApplication
Private Sub Command1_Click()
Dim circleObj As AcadCircle
Dim centerpoint(0 To 2) As Double
Dim radius As Double
centerpoint(0) = 0: centerpoint(1) = 0: centerpoint(2) = 0
radius = Val(Text1.Text) / 2
Set circleObj = AcadApp.ActiveDocument.ModelSpace.AddCircle(centerpoint, radius)
centerpoint(0) = 0: centerpoint(1) = 0: centerpoint(2) = 0
radius = Val(Text2.Text) / 2
Set circleObj = AcadApp.ActiveDocument.ModelSpace.AddCircle(centerpoint, radius)
Dim lineObj As AcadLine
Dim Startpoint(0 To 2) As Double
Dim Endpoint(0 To 2) As Double
Startpoint(0) = 600: Startpoint(1) = 0: Startpoint(2) = 0
Endpoint(0) = 600: Endpoint(1) = Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
Startpoint(0) = 600: Startpoint(1) = Val(Text1.Text) / 2: Startpoint(2) = 0
Endpoint(0) = 600 + Val(Text5.Text): Endpoint(1) = Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
Startpoint(0) = 600 + Val(Text5.Text): Endpoint(1) = Val(Text1.Text) / 2: Endpoint(2) = 0:
Endpoint(0) = 600 + Val(Text5.Text): Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
Startpoint(0) = 600: Startpoint(1) = 0: Startpoint(2) = 0
Endpoint(0) = 600: Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
Startpoint(0) = 600: Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Endpoint(0) = 600 + Val(Text5.Text): Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
Private Sub Form_Load()
On Error Resume Next
Set AcadApp = GetObject(, &AutoCAD.Application&)
If Err Then
Set AcadApp = CreateObject(&AutoCAD.Application&)
If Err Then
MsgBox (&不能运行AutoCAD 2007,请检查是否安装了AutoCAD 2007&)
AcadApp.Visible = True
有点长，请耐心看看
等　级：贵宾
威　望：26
帖　子：734
专家分：3478
&&得分:10&
记得描述问题
等　级：新手上路
帖　子：45
好嘞，嘿嘿，谢谢师傅，，，，，这样的，，我想画一个矩形，但是在画最后一条线的时候怎么都画不上，坐标没问题，画的线总是和我画那个矩形的起始画点连接
等　级：新手上路
帖　子：45
附件: 您没有浏览附件的权限，请
等　级：贵宾
威　望：26
帖　子：734
专家分：3478
回复 3楼 孙东东007
Startpoint(0) = 600 + Val(Text5.Text): Endpoint(1) = Val(Text1.Text) / 2: Endpoint(2) = 0:
Endpoint(0) = 600 + Val(Text5.Text): Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
Startpoint(0) = 600: Startpoint(1) = 0: Startpoint(2) = 0
Endpoint(0) = 600: Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
Startpoint(0) = 600: Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Endpoint(0) = 600 + Val(Text5.Text): Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
仔细一些,自己检查不出来?你看红色部分不是startpoint而是endpoint
等　级：新手上路
帖　子：45
师傅，你没听明白我的意思，我的控件布置界面是这样的然后就开始画上面有我画的顺序，矩形下面红色那部分是我想画的那条线
附件: 您没有浏览附件的权限，请
等　级：新手上路
帖　子：45
附件: 您没有浏览附件的权限，请
等　级：新手上路
帖　子：45
这是我想要的
附件: 您没有浏览附件的权限，请
等　级：新手上路
帖　子：45
师傅，求你帮我看看吧，谢谢啦
等　级：贵宾
威　望：26
帖　子：734
专家分：3478
给你说了代码红色的地方有问题
endpoint 改为startpoint
版权所有，并保留所有权利。
Powered by , Processed in 0.066497 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights ReservedCAD牛人的总结-看后再说你也会画图
牛人十数年CAD经验分享
翻过很多CAD的教材，觉得如果对照那些教材学习CAD的话，确实都能够在一定程度上掌握这个软件，如果到设计院或事务所，也都能勉勉强强的开始画图。但是，我觉得这远远不够，从书本到实战，还有一大段距离。
本人早年毕业于同济，目前早已是一级注册建筑师，在公司里照看着一大堆的小朋友。虽然这些小朋友都能够完成绘图和简单的设计工作，但我感觉距离真正的掌握和运用CAD，还有很多距离。至于公司里的其他专业，更可以用惨不忍睹来形容。
因此，我将连续编写有关CAD的一系列的心得体会，将会在我公司的刊物上发表，同时，我也在这里发表，以飨大家。&&
AUTOCAD使用心得连载之一&使用的三个基本方面
目前，我公司的设计文件，特别是图纸，都是用AUTOCAD软件绘制的。但是，现在还有很多人对CAD并不是非常熟悉，或者说使用起来并非得心应手，以至于效率并不是很高，可以说，在我们公司，绘制同样的一张图纸，速度快的和慢的在耗时上可能会相差好几倍。同时，每个人绘制出来的图纸看上去感觉都不经相同，有些图纸看上去一目了然、清晰漂亮，而有些图纸不但表达不清，过分点可以用惨不忍睹来形容。
从本期工程设计开始，本人会将十几年绘图经验的点点滴滴作为连载，以飨大家，希望对大家能有所借鉴，从中能吸取一二，养成良好的绘图习惯、提高绘图速度。同时，本人也希望这是抛砖引玉，借助这个机会和载体，能够使得大家对CAD的使用展开一次交流和讨论，相互提高。
另外，因为本人是建筑专业的，对其他专业不胜了解，因此，今后的举例将主要是和建筑专业有关的，希望大家能举一反三。
不知大家认为，使用CAD画图，最重要的是什么？对这个问题，每个人都有可能理解不同，但在我看来，最重要的是时时刻刻记住自己使用CAD画图的目的是什么。
我们进行工程设计，不管是什么专业、什么阶段，实际上都是要将某些设计思想或者是设计内容，表达、反映到设计文件上。而图纸，就是一种直观、准确、醒目、易于交流的表达形式。所以我们完成的东西（不管是最终完成的设计文件，还是作为条件提交给其他专业的过程文件，一定需要能够很好的帮助我们表达自己的设计思想、设计内容。
有了这个前提，我们就应该明白，好的计算机绘制的图纸应该具有以下两个特征：清晰、准确。
清晰：我们要表达的东西必须清晰，好的图纸，看上去一目了然。一眼看上去，就能分得清哪是墙、哪是窗、哪是留洞、哪是管线、哪是设备；尺寸标注、文字说明等清清楚楚，互不重叠&&。除了图纸打印出来很清晰以外，在显示器上显示时也必须清晰。图面清晰除了能清楚的表达设计思路和设计内容外，也是提高绘图速度的基石。
准确：200宽的墙体不能画成240；留洞不能尺寸上标注的是，而实际量量是；更常见的错误是分明是3000宽的一条线，量出来却是2999.87。制图准确不仅是为了好看，更重要的是可以直观的反映一些图面问题，对于提高绘图速度也有重要的影响，特别是在图纸修改时。我们在使用CAD绘图时，无时无刻都应该把以上两点铭刻在心。只有做到这两点，才能够说绘图方面基本过关了。
图面要&清晰&、&准确&，在绘图过程中，同样重要的一点就是&高效&了。能够高效绘图，好处不用多说，如果每人都能提高20％的绘图效率，可能每个项目经理和部室主管都会笑不动了。
清晰、准确、高效是CAD软件使用的三个基本点。在CAD软件中，除了一些最基本的绘图命令外，其他的各种编辑命令、各种设置定义，可以说都是围绕着清晰、准确、高效这三方面来编排的。我们在学习CAD中的各项命令、各种设置时，都要思考一下，它们能在这三个方面起到那些作用；在使用
分享这篇日志的人也喜欢
下雨、网不好
Losfinparadise?
厉害了我的丢！
吃了无数条鱿鱼
呆萌小傻子?
热门日志推荐
人人最热标签
北京千橡网景科技发展有限公司：
文网文[号··京公网安备号·甲测资字
文化部监督电子邮箱：wlwh@··
文明办网文明上网举报电话： 举报邮箱：&&&&&&&&&&&&
请输入手机号，完成注册
请输入验证码
密码必须由6-20个字符组成
下载人人客户端
品评校花校草，体验校园广场