程序中两个问题怎么解决？

该怎么办呢难哦

一：当在CAD窗口中绘制完实体（如BOX）后，为何实体不能及时显示出来？


二：程序中判定两实体是否干涉的代码如何编制？比如干涉时弹出对话框“两实体干涉”


         当不干涉时弹出对话框："两实体不干涉"

该怎么办呢难哦

一问已解决。 二问还不会，不知怎么改？ Option Explicit Public boxObj As Acad3DSolid
Public cylinderObj As Acad3DSolid
Public solidObj As Acad3DSolid Private Sub CommandButton1_Click()
Me.Hide Dim boxLength As Double, boxWidth As Double, boxHeight As Double
Dim boxCenter As Variant
boxCenter = ThisDrawing.Utility.GetPoint(, "选择BOX中心:")
boxLength = 250#: boxWidth = 175: boxHeight = 250#

Set boxObj = ThisDrawing.ModelSpace.AddBox(boxCenter, boxLength, boxWidth, boxHeight)
ThisDrawing.Regen acActiveViewport
Me.Show
End Sub Private Sub CommandButton2_Click()
Me.Hide Dim cylinderCenter As Variant
Dim cylinderRadius As Double
Dim cylinderHeight As Double
cylinderCenter = ThisDrawing.Utility.GetPoint(, "选择cylinder中心;")
cylinderRadius = 125#
cylinderHeight = 400#

Set cylinderObj = ThisDrawing.ModelSpace.AddCylinder(cylinderCenter, cylinderRadius, cylinderHeight) ThisDrawing.Regen acActiveViewport
Me.Show
End Sub Private Sub CommandButton3_Click()
dim interference as boolean
Set solidObj = boxObj.CheckInterference(cylinderObj, True)
If interference= True Then

MsgBox "两实体干涉"
Else
MsgBox "两实体不干涉"
End If


ThisDrawing.Regen acActiveViewport

End Sub

mccad

1.在添加实体后显示对话框前加入以下代码：
   Update
2.加入这样的程序：(注意把boxObj和cylinderObj两个变量的定义放到声明段中)

2. Private Sub CommandButton3_Click()
3.        Dim insObj As Acad3DSolid
4.        Dim i As Long
5.        i = ThisDrawing.ObjectIdToObject(boxObj.OwnerID).Count
6.        Set insObj = boxObj.CheckInterference(cylinderObj, True)
7.        If ThisDrawing.ObjectIdToObject(boxObj.OwnerID).Count > i Then
8.                MsgBox "两对象相干涉"
9.                insObj.Delete
10.        Else
11.                MsgBox "两对象不干涉"
12.        End If
13.        Me.Hide
14. End Sub

Private Sub CommandButton3_Click()        Dim insObj As Acad3DSolid        Dim i As Long        i = ThisDrawing.ObjectIdToObject(boxObj.OwnerID).Count        Set insObj = boxObj.CheckInterference(cylinderObj, True)        If ThisDrawing.ObjectIdToObject(boxObj.OwnerID).Count > i Then                MsgBox "两对象相干涉"                insObj.Delete        Else                MsgBox "两对象不干涉"        End If        Me.Hide End Sub

mccad

该怎么办呢难哦发表于2004-4-29 21:04:00一问已解决。 二问还不会，不知怎么改？

你的代码问题：
CheckInterference返回的是对象，而不是布尔值。