明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1208|回复: 2

表作参数时,调用LISP程序该如何写??

[复制链接]
发表于 2004-12-4 16:37:00 | 显示全部楼层 |阅读模式
(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);
 楼主| 发表于 2004-12-5 14:46:00 | 显示全部楼层
没有人会吗??


快来帮帮我!
 楼主| 发表于 2004-12-6 16:08:00 | 显示全部楼层
我的兄弟姐妹们,真的没人会吗?


斑竹,帮帮我吧!!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-26 10:22 , Processed in 0.157747 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表