求助大神指点。vb关联cad的问题。 - 编程论坛

#2

xiangyue05102017-04-17 19:01

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

#3

LDF1232017-04-17 19:12

是把现有的图形调整尺寸

#4

LDF1232017-04-17 19:18

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

#5

LDF1232017-04-17 21:25

有会的吗？有红包相谢。

#6

xiangyue05102017-04-18 08:55

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

#7

LDF1232017-04-18 09:44

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

#8

LDF1232017-04-18 09:45

版主您QQ是多少

#9

LDF1232017-04-18 10:09

100+ 红包

#10

xiangyue05102017-04-18 12:47

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

#11

LDF1232017-04-21 11:12

楼主您好收徒吗

#12

LDF1232017-04-25 16:04