|
|
(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); |
|
置顶卡
