请选择 进入手机版 | 继续访问电脑版
查看: 1347|回复: 2

ARX程序调LISP程序

[复制链接]
发表于 2012-10-14 13:12:03 | 显示全部楼层 |阅读模式
You can directly call lisp function from ObjectARX application using

acedInvoke(...).

See example:

=========LISP code start==============

(defun myfun()

  (setq myfunret 2)

)

;

; If you want to be able to invoke this function from an external ObjectARX

; application, you can use vl-acad-defun to make the function accessible.

;

(vl-acad-defun 'myfun)

=========LISP code end===============

=========C++ code start==============

int call_lisp_function(void)

{

    resbuf *rb_in = acutBuildList(RTSTR,"myfun",RTNONE);

    resbuf *rb_out = NULL;

    int rc = acedInvoke(rb_in,&rb_out);

    acutRelRb(rb_in); acutRelRb(rb_out);

    acedGetSym("myfunret",&rb_out);

    return (RSRSLT) ;

}
回复

使用道具 举报

发表于 2015-3-16 21:49:47 | 显示全部楼层
谢谢啦,很有用!











http://feijipiaowangshangdingpiao.com/  http://ajaxshoptalk.com/        http://serpbd.org/  http://sahramasaj.com/
回复 支持 反对

使用道具 举报

发表于 2016-12-7 13:20:07 | 显示全部楼层
一起交流!楼主给咱们提供机会了











心靈小語  名人佳句   勵志格言佳句   心靈小語       愛情小語   2016年12月07日 笑話謎語  
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册 用百度帐号登录

本版积分规则

Archiver|手机版|小黑屋|BimCad Inc. ( 京ICP备15064117号

GMT+8, 2017-12-14 12:23 , Processed in 0.169811 second(s), 23 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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