vba执行lisp函数返回值

flydyt · 发表于 2017-4-24 17:22:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我写了一个lisp函数供vba调用，lisp函数我想返回两个变量，一个是坐标，一个是选择集。代码如下：
(defun vbaset2lspset (str delim x y / aa n i tf)
  (setq aa (parse9 str delim) )
  (setq n (length aa))
  (setq i 0)
  (setq ss (ssadd))
  (repeat n
(setq h (nth i aa))
(setq tf (handent h))
(ssadd tf ss)
(setq i (+ i 1))
  )
  (setq p (list x y 0.00))
  (COMMAND "_move" ss "" p pause "")
  (princ)
)

我想把红色代码提出来放到自己定义的命令里，但是不知道怎么获得坐标变量p和选择集变量ss。请问哪位可以给解决一下。谢谢

Lisphk · 发表于 2017-4-24 18:01:44

你这个函数获得的选择集和坐标保存到全局变量，你的命令调用全局变量就行了

flydyt · 发表于 2017-4-24 18:27:26

请问怎么设置，我对lisp不太懂

qqqincccken · 发表于 2017-4-24 19:37:54

谢谢提供学习学习了!!!!!!!!!!

Lisphk · 发表于 2017-4-24 19:53:14

flydyt 发表于 2017-4-24 18:27

(defun vbaset2lspset (str delim x y / aa n i tf)
上面定义函数，不在 / 后面标明的变量，比如这里你标明了 aa n i tf ，函数里面其他的变量都是全局变量，函数执行完后，还有值。

flydyt · 发表于 2017-4-24 20:58:23

但是我在别的lisp命令里获得不到变量值，如引用ss，查询ss为空

Lisphk · 发表于 2017-4-24 21:05:09

flydyt 发表于 2017-4-24 20:58

你是隔开很长时间才在查询的SS的值？全局变量名你可以起个不容易被覆盖的，比如*my_ss* ，你查询不到，说明可能中间SS被别的函数覆盖了。

你是怎么后续调用的SS，把代码写上来。

flydyt · 发表于 2017-4-25 07:48:24

我就是定义一个命令，获得选择集ss后调用move命令移动。
(defun c:dq ()
(command "VBARUN" "dq")
(print (sslength ss))
)

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

[求助] vba执行lisp函数返回值

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。