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

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

(Defun exect(tbl / headnm)<BR>               (getfname tbl)               ;output zblb which contain all function name and text.<BR>       (sortblb zblb)<BR>       (gtblmk blb 100) ;output gtbl<BR>       (htk)<BR>       (if (findfile "headname.txt")<BR>               (progn <BR>                               (setq f (open "headname.txt" "r"))<BR>                               (setq headnm (read-line f))<BR>                               (close f)<BR>                               (if (/= headnm nil)<BR>                                       (command"text" "s" "hz" (list (/ ltf 3.0) (- btf 18)) (* 12 mm) 0 headnm)<BR>                                       (dbt (list (/ ltf 3.0) (- btf 18)) 12 s choice s1 choice1 s2)<BR>                               )<BR>               )<BR>               (dbt (list (/ ltf 3.0) (- btf 18)) 12 s choice s1 choice1 s2) ;output str<BR>       )<BR>       (loadfnc0 blb)<BR>       (pc_draw blb gtbl)<BR>       ;(examhz)<BR>)


上面是我的LISP程序，其中tbl是个表，它作参数时，我调用LISP程序时VC代码该如何写？


下面是VC代码，在"exect"后该如何写？承蒙赐教！！


resbuf *rb_in = acutBuildList(RTSTR,"exect",RTNONE);<BR>                       resbuf *rb_out = NULL;<BR>                       int rc = acedInvoke(rb_in,&amp;rb_out);<BR>                       acutRelRb(rb_in); acutRelRb(rb_out);

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

没有人会吗？？


快来帮帮我！

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

我的兄弟姐妹们，真的没人会吗？


斑竹，帮帮我吧！！！！
页: [1]
查看完整版本: 表作参数时，调用LISP程序该如何写？？