| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1482 人关注过本帖
标题:求助大神指点。vb关联cad的问题。
只看楼主 加入收藏
LDF123
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2017-4-17
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:11 
求助大神指点。vb关联cad的问题。
   怎样在vb中改变指定的cad文件图形尺寸
图片附件: 游客没有浏览图片的权限,请 登录注册
2017-04-17 18:10
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:0 
没明白,你是想自己绘制这个图形,还是直接把现有图形按照比例缩放?
另外,你现在是否已经能够调用CAD?还是一穷二白?
2017-04-17 19:01
LDF123
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2017-4-17
收藏
得分:0 
是把现有的图形调整尺寸
2017-04-17 19:12
LDF123
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2017-4-17
收藏
得分:0 
右边的图形是cad上的。请大师不吝赐教
2017-04-17 19:18
LDF123
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2017-4-17
收藏
得分:0 
有会的吗?有红包相谢。
2017-04-17 21:25
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:20 
仔细看了一下,如果是缩放,如果是A、B、C、D比例都一样,那么
object.ScaleEntity BasePoint, ScaleFactor

或者要A和C、B和D的比例分别相同。只用将图形以块的形式插入才可以在XY不同方向设置缩放比例。这个代码你自己用CAD的宏录制做一下。

如果都不相同,没法缩放,只能是重新绘制。
程序代码:
Dim MyCadLine As AcadLine
Dim St_Pt(2) As Double
Dim Ed_Pt(2) As Double
St_Pt(0) = 1
St_Pt(1) = 2
St_Pt(2) = 2
Ed_Pt(0) = 4
Ed_Pt(1) = 5
Ed_Pt(2) = 4
Set MyCadLine = ThisDrawing.ModelSpace.AddLine(St_Pt, Ed_Pt2)

2017-04-18 08:55
LDF123
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2017-4-17
收藏
得分:0 
不是按比例缩放,A B C D 边可以是任意尺寸
2017-04-18 09:44
LDF123
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2017-4-17
收藏
得分:0 
版主 您QQ是多少
2017-04-18 09:45
LDF123
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2017-4-17
收藏
得分:0 
100+ 红包
2017-04-18 10:09
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:0 
任意尺寸的话,没法使用缩放。除非你自己在CAD中有方法实现,否则VB也没法,
只能是参照我第二段代码的方式来处理,重新画线。
这个很简单,自己花点心思好好研究一下
2017-04-18 12:47
快速回复:求助大神指点。vb关联cad的问题。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.054154 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved