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

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

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

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

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

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

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

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

(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

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

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

顶一下

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

微软COM强大

账号		自动登录	找回密码
密码			注册

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

评分