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

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)<br />

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

雪山飞狐_lzh

应该是lisp调用的问题吧 发到lisp版去问问

guohq

收到，立刻就去！！