参数的值返回不了，求解决！

guohq

在VS里新建了一个项目（已经将 为com生成互操作 选中）

下面是部分代码：

1. Public Class PointEx
   
2.         Public Function GetPointZCoord(ByVal Pt As Object, ByRef ZCoord As Double) As Boolean
   
3.             Try
   
4.                 If Pt Is Nothing OrElse Pt.ObjectName <> "AcDbPoint" Then
   
5.                     Return False
   
6.                 End If
   
7. 
   
8.                 Dim Coord() As Double = Pt.Coordinates()
   
9.                 ZCoord = Coord(2)
   
10.                 Return True
    
11.             Catch ex As Exception
    
12.                 Return False
    
13.             End Try
    
14.         End Function
    
15.     End Class

Public Class PointEx<br />         Public Function GetPointZCoord(ByVal Pt As Object, ByRef ZCoord As Double) As Boolean<br />             Try<br />                 If Pt Is Nothing OrElse Pt.ObjectName <> "AcDbPoint" Then<br />                     Return False<br />                 End If<br /> <br />                 Dim Coord() As Double = Pt.Coordinates()<br />                 ZCoord = Coord(2)<br />                 Return True<br />             Catch ex As Exception<br />                 Return False<br />             End Try<br />         End Function<br />     End Class

现在需要在lisp里调用 ，代码如下：

1. (setq ptTool (vlax-create-object "VLispEx.PointEx")) ;此处能正常运行
   
2. (setq Z 0)
   
3. (vlax-invoke ptTool 'GetPointZCoord (vlax-ename->vla-object (car (entsel))) Z);此处也能正常运行，就是Z的值返回不了，为何？
   
4. (vlax-release-object ptTool)

(setq ptTool (vlax-create-object "VLispEx.PointEx")) ;此处能正常运行<br /> (setq Z 0)<br /> (vlax-invoke ptTool 'GetPointZCoord (vlax-ename->vla-object (car (entsel))) Z);此处也能正常运行，就是Z的值返回不了，为何？<br /> (vlax-release-object ptTool)

请问为什么返回不了 Z 的值？应该怎么处理？

guohq

自己顶一下！！

AbnerXk

VS不懂，应该是你VS函数的问题？

自贡黄明儒

楼主会VS，显然已经是高手了。我只会lisp,也许帮不了你。
对于vla-Get-Coordinates函数，我也一直纳闷，只取得二维点坐标。vl好多函数都是这样设计的