vba传递点参数问题

liuyang4740 · 发表于 2010-12-13 15:21:33

部分主程序：
   ss = qss(lin1,lin2, p1s, p2s)  'lin1 为直线1，lin2为直线2，p1s为直线1起点，p2s为直线2起点

函数：Function qss(lin1, lin2, p1, p2) As Variant
         If lin1.Layer = "design" Then qss(0) = p1(0): qss(1) = p1(1): qss(2) = p1(2)
      end Function

为何提示 “参数不可选“  ，貌似qss定义有问题？请教高手！

yanyanjun999 · 发表于 2010-12-13 22:03:13

qss你定义了四个参数，但是函数描述里面只用了一个，好像不可以的，vb语法不允许。vba还是初学。

liuyang4740 · 发表于 2010-12-14 09:15:13

ss是3维点坐标函数，同样Qss也是3维点坐标函数

xinghesnak · 发表于 2010-12-17 11:25:22

在子程序qss内部声明一个三维点变量，将计算完的值依次付给这个变量，子程序最后把这个变量付给qss自身

账号		自动登录	找回密码
密码			注册