社区 › C++ › 表作参数时，调用LISP程序该如何写？？

h2023197 发表于 2004-12-4 16:37:00

表作参数时，调用LISP程序该如何写？？

(Defun exect(tbl / headnm)
               (getfname tbl)               ;output zblb which contain all function name and text.
       (sortblb zblb)
       (gtblmk blb 100) ;output gtbl
       (htk)
       (if (findfile "headname.txt")
               (progn
                               (setq f (open "headname.txt" "r"))
                               (setq headnm (read-line f))
                               (close f)
                               (if (/= headnm nil)
                                       (command"text" "s" "hz" (list (/ ltf 3.0) (- btf 18)) (* 12 mm) 0 headnm)
                                       (dbt (list (/ ltf 3.0) (- btf 18)) 12 s choice s1 choice1 s2)
                               )
               )
               (dbt (list (/ ltf 3.0) (- btf 18)) 12 s choice s1 choice1 s2) ;output str
       )
       (loadfnc0 blb)
       (pc_draw blb gtbl)
       ;(examhz)
)
上面是我的LISP程序，其中tbl是个表，它作参数时，我调用LISP程序时VC代码该如何写？
下面是VC代码，在"exect"后该如何写？承蒙赐教！！
resbuf *rb_in = acutBuildList(RTSTR,"exect",RTNONE);
                       resbuf *rb_out = NULL;
                       int rc = acedInvoke(rb_in,&rb_out);
                       acutRelRb(rb_in); acutRelRb(rb_out);

h2023197 发表于 2004-12-5 14:46:00

没有人会吗？？
快来帮帮我！

h2023197 发表于 2004-12-6 16:08:00

我的兄弟姐妹们，真的没人会吗？
斑竹，帮帮我吧！！！！

查看完整版本: 表作参数时，调用LISP程序该如何写？？