明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1643|回复: 7

[求助]如何实现Visual LISP与Fortran共同工作

[复制链接]
发表于 2004-3-11 17:28:00 | 显示全部楼层 |阅读模式
接到一个任务,用AutoCAD建模,画一个钢架静力分析图,提取信息,用已有的Fortran程序计算,然后返回信息,画出内力图


我打算用Visual LISP中调用Fortran程序,不知道如何下手

请问:
可不可以用Visual LISP的ActiveX,调用Fortran的dll动态链接库吗?
还是可以直接调用Fortran程序生成exe?
有没有简单一点的做法??

拜托各位给点意见~~` 多谢
发表于 2004-3-11 19:39:00 | 显示全部楼层
第一中应该比较好点,但如果两中语言要做的事情比较独立,就不妨用第二种。。。


FORTRAN我不熟,不妨你做个简单的我试试。。。
发表于 2004-3-12 09:40:00 | 显示全部楼层
acad.pgp中加入 xxx, START xxx, 1,, 程序中加入 (command "xxx") xxx:fortran 執行檔xxx.exe
 楼主| 发表于 2004-3-12 12:29:00 | 显示全部楼层
下面是《fortran95程序设计》里面的一个例子, 我在fortran里面调用过这个DLL,没有问题的 subroutine SUB()
!DEC$ ATTRIBUTES DLLEXPORT :: SUB
implicit none
write(*,*) "Subroutine in DLL"
return
end 下面是下载链接:http://lei6699.go.nease.net/fortrandll.dll (用另存为下载) 程序第二行是说明DLL文件可以被其他程序调用的函数 Write后面为了输出字符串"Subroutine in DLL" 拜托斑竹试验一下,谢谢了
 楼主| 发表于 2004-3-13 16:22:00 | 显示全部楼层
f5612140发表于2004-3-12 9:40:00acad.pgp中加入 xxx, START xxx, 1,, 程序中加入 (command \"xxx\") xxx:fortran 執行檔xxx.exe

可不可以稍微详细一点? 偶是菜鸟~~ :)
发表于 2004-3-13 16:36:00 | 显示全部楼层
1.將xxx.exe放在支援檔搜尋路徑 2.acad.pgp中加入xxx......,可於command下執行該執行檔xxx ; Examples of external commands for Windows
; See also the (STARTAPP) AutoLISP function for an alternative method. EXPLORER, START EXPLORER, 1,,
NOTEPAD, START NOTEPAD, 1,*要列示的檔案: ,
PBRUSH, START PBRUSH, 1,,
xxx, START xxx, 1,, 修改完acad.pgp若不退出cad,記得command下輸入reinit 重新起始設定 3.acad.pgp中已加入該行,則lisp程序可直接調用(command "xxx")
发表于 2004-3-13 17:52:00 | 显示全部楼层
TO楼上的,楼主给的不是可执行文件,是动态连接库文件,,,而且你解决问题的重点放在了简化使用外部可执行文件,楼主的问题是如何使用它,而不是问如何方便使用它。。。现在如何使用它还未做到,却去简化它,似乎没有意义
发表于 2004-3-15 08:44:00 | 显示全部楼层
meflying发表于2004-3-13 17:52:00TO楼上的,楼主给的不是可执行文件,是动态连接库文件,,,而且你解决问题的重点放在了简化使用外部可执行文件,楼主的问题是如何使用它,而不是问如何方便使用...

樓主問: 还是可以直接调用Fortran程序生成exe?
有没有简单一点的做法??
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-27 21:01 , Processed in 0.193326 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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