qjchen 发表于 2012-1-3 10:57:24

[飞马系列] AutoLisp 调用 Sap2000 14 [小众应用]

本帖最后由 qjchen 于 2012-1-3 11:08 编辑

SAP2000是建筑结构工程界著名的结构有限元分析程序

SAP2000 11之后，具备了API功能，可以进行.net编程，COM编程，也可以进行ACTIVEX编程。

此处，做一个简单的探索，研究一下如何用Lisp来编程实现启动SAP2000，并建立相应的2DFrame的分析。

你可以用更多的函数来实现更多的功能 :P

当然，这个应用应该是比较小众的 :)

http://qjchen.mjtd.com/wp-content/uploads/2012/01/startsap2000.gif


(defun c:test ( / d e q_sap2000_obj)
;;by qjchen, 华南理工大学
(vl-load-com)
    (setq q_sap2000_obj (vlax-get-or-create-object "Sap2000.SapObject"))
    (vlax-invoke q_sap2000_obj 'ApplicationStart nil)
    (setq d (vlax-get-or-create-object "Sap2000.cSapModel"))
    (setq e (vlax-get-or-create-object "Sap2000.cFile") )
    (vlax-invoke-method d 'InitializeNewModel 4)
    (vlax-invoke-method e 'New2DFrame 0 3 12 3 28 nil nil nil nil)
)




yjtdkj 发表于 2021-7-14 16:17:05

运行之后没有反应，是不是有什么前提条件？

cnks 发表于 2012-1-3 11:05:09

顶一下

vormittag 发表于 2012-1-3 11:14:17

不错，飞马兄的思路很开阔啊。
如果能通过选择CAD图元建立有限元模型就更帅了。

qjchen 发表于 2012-1-3 11:24:51

vormittag 发表于 2012-1-3 11:14 static/image/common/back.gif
不错，飞马兄的思路很开阔啊。
如果能通过选择CAD图元建立有限元模型就更帅了。

:) 这个不难的，不过代码要长一点，有空我再编个吧

vormittag 发表于 2012-1-3 11:35:03

qjchen 发表于 2012-1-3 11:24 static/image/common/back.gif
:) 这个不难的，不过代码要长一点，有空我再编个吧

如果只是几何模型应该还好，加上截面特性，材料特性，各种复杂的边界条件、荷载工况和施工过程，恐怕不是短时间能够完成的。

qjchen 发表于 2012-1-3 12:03:34

vormittag 发表于 2012-1-3 11:35 static/image/common/back.gif
如果只是几何模型应该还好，加上截面特性，材料特性，各种复杂的边界条件、荷载工况和施工过程，恐怕不是 ...

是，那就是一个比较完整的程序了。
按道理都是可以做到的，函数都有。
不过就差不多是3d3s了

yshf 发表于 2012-1-3 13:20:04

qjchen你真的思路很广啊！不错

它山之石 发表于 2012-1-4 08:40:56

以前折腾过通过LSP来运行PKPM，算中众应用吧，哈

qjchen 发表于 2012-1-4 08:48:06

它山之石 发表于 2012-1-4 08:40 static/image/common/back.gif
以前折腾过通过LSP来运行PKPM，算中众应用吧，哈

:) 它兄有空演示一下啊，很好奇啊~

logitechlike 发表于 2012-1-4 11:21:46

微软COM强大
页: [1] 2
查看完整版本: [飞马系列] AutoLisp 调用 Sap2000 14 [小众应用]