你好！
我的英语不是很好，所以我希望你能理解我！
我正在搜索创建一个3D点，它是某个3D面和一条直线的交点。用我的代码，没有发现交集。在论坛上，没有看到我的学习案例。
加载由3D面组成的模型后，我:
ReDim ssobjs(0到此绘图。ModelSpace.Count - 1)作为AcadEntity
Dim f作为整数
对于f = 0到此绘图。ModelSpace.Count - 1
设置ssobjs(f) = ThisDrawing。ModelSpace.Item(f)
下一个
现在，在ssobjs中，我有(f-1)个3D面。
然后我创建我的直线:
Dim line obj As AcadLine
Set line obj = this drawing。模型空间. AddLine(Position_slt_1。坐标，点_任意线。坐标)
最后我用intersection with方法搜索交集:
Dim int points As Variant
Dim h As Integer
For h = 0 To f-1 Step 1
int points = line obj。IntersectWith(ssobjs(h)，acExtendNone)
下一步
在这里，我对变量intpoints没有任何影响...
我想相交第一个点的三维坐标。
正常情况下，必须是:{ int points(0)；int points(1)；intpoints(2)}
你是我最后的机会，因为没有人能帮助我，这是我的第三个论坛！
非常感谢，祝您度过一个愉快的夜晚！问候查尔斯
置顶卡
