新手求助 VBA插入CAD问题

feixiong52

我想先在VBA里程序做好块，然后在CAD 命令行提示 通过鼠标选取插入点，然后通过鼠标左键点击模型空间一下后， 在自己想要的插入点 插入块，这个功能怎么做到？可以发一个能达到类似功能的源码 让我学习下么？

wsccmm

Sub Ch10_InsertingABlock()
' 定义块
Dim blockObj As AcadBlock
Dim insertionPnt(0 To 2) As Double
insertionPnt(0) = 0
insertionPnt(1) = 0
insertionPnt(2) = 0
Set blockObj = ThisDrawing.Blocks.Add (insertionPnt, "CircleBlock")
' 向块中添加圆
Dim circleObj As AcadCircle
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 0
center(1) = 0
center(2) = 0
radius = 1
Set circleObj = blockObj.Set circleObj = blockObj.AddCircle(center, radius)
'获取插入点
Dim returnPnt As Variant
returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
' 插入块
Dim blockRefObj As AcadBlockReference
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock (returnPnt, "CircleBlock", 1#, 1#, 1#, 0)
ZoomAll
End Sub

feixiong52

回复 wsccmm 的帖子

谢谢您，可是为什么用了您拷贝的源码后，无法实现ZOOMALL的功能呢？我鼠标点后，自动回到VBA操作菜单，再回CAD里未出现zoomall后的效果

chmenf087

thisdrawing.sendcommand("_zoom" & vbcr & "all" & vbcr)

fwsw1986

此方法正在使用中，好用