怎样在vb中改变指定的cad文件图形尺寸

没明白，你是想自己绘制这个图形，还是直接把现有图形按照比例缩放？
另外，你现在是否已经能够调用CAD？还是一穷二白？

是把现有的图形调整尺寸

右边的图形是cad上的。请大师不吝赐教

有会的吗？有红包相谢。

仔细看了一下，如果是缩放，如果是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)

不是按比例缩放，A B C D 边可以是任意尺寸

版主 您QQ是多少

100+ 红包

任意尺寸的话，没法使用缩放。除非你自己在CAD中有方法实现，否则VB也没法，
只能是参照我第二段代码的方式来处理，重新画线。
这个很简单，自己花点心思好好研究一下