没明白,你是想自己绘制这个图形,还是直接把现有图形按照比例缩放?
另外,你现在是否已经能够调用CAD?还是一穷二白?
object.ScaleEntity BasePoint, ScaleFactor
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)