[LISP]请教大侠关于转动惯量的问题

hudson

从前编过些粗浅的lisp程序，后来就没有很好地跟进。就vla函数也没有很好的了解。见笑了。这次在编制一个程序的过程中遇到如下的一个问题：需要对给出的几个点定出一个封闭的实体，然后计算出它的转动惯量，查了些书，但是没有很好的解决。需要用到如下的命令(vla-get-MomentOfInertia Object )。但是其中给的例子是画出一个长方体，然后求出转动惯量。现在我想要实现的是不画出实体，只在后台计算出这几个点所定出实体的转动惯量。请问诸位大侠这能够实现么？

在这其中还遇到一个问题，因为几个点画出的实体，我现在所理解的是用3dmesh命令得出，但是实验了几次，用它画出的实体却不能用massprop命令。是否说明用(vla-get-MomentOfInertia Object )命令也不见得能够实现？是否通过其它方法和相应的语句去实现？我的见识着实浅薄的。

如果有实现的方法，请诸位大侠不吝赐教，指点迷津？万分感激！在此由衷地谢谢诸位了！ 再次感谢！

sieben

若图形简单,何不找书看看转动惯量是怎样计算的,找出图形的质心,转动惯量应该就好办了吧?

hudson

谢谢您，多谢您的指教。因为图形有些复杂，而且涉及到很多种情况下的计算，故而想用上述函数的，但是没有时至今日没有实现。

再次致谢！

xyp1964

标注封闭域的形心、惯性矩、惯性积、旋转半径

2. (load "xyp_lib.vlx")  ;版本 V.20051126
3. ;|加载通用函数(可在签名栏直接下载)
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
6. ★1·在acad.lsp中增加(load"xyp_lib")
7. ■2·在每个程序内增加(load"xyp_lib")
8. ■3·在command下，输入(load"xyp_lib")
9. ■4·在菜单.mnl中增加(load"xyp_lib")
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
13. [url]dispbbs.asp?boardID=3&ID=37554&page=1[/url]
14. |;
15. ;;;封闭域的形心、惯性矩、惯性积、旋转半径
16. (defun c:test ()
17.   (cmdlasc0)
18.   (setvar "osmode" 0)
19.   (mkla "中心线" 1)
20.   (while (setq pt (getpoint "\n选择区域内一点<退出> : "))
21.     (command "-boundary" "a" "o" "r" "" pt "")
22.     (setq s1 (entlast)
23.    pt (vlax-safearray->list
24.         (vlax-variant-value
25.    (vla-get-centroid (vlax-ename->vla-object s1))
26.         )
27.       )
28.     )
29.     (XYP_SZX pt (* sc 100))
30.     (command "MASSPROP" s1 "" "y" "c:/tmp.mpr")
31.     (mkla "面域标注" 4)
32.     (write-tmp)
33.     (redraw)
34.   )
35.   (cmdla1)
36. )
37. (defun write-tmp ()
38.   (setq f (open "c:/tmp.mpr" "r"))
39.   (read-line f)
40.   (read-line f)
41.   (read-line f)
42.   (while (setq txt (read-line f))
43.     (setq pt (list (car pt) (- (cadr pt) (* sc 800))))
44.     (xyp-Text pt 1 txt)
45.   )
46.   (close f)
47. )

(load "xyp_lib.vlx")  ;版本 V.20051126 ;|加载通用函数(可在签名栏直接下载) 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib") ■2·在每个程序内增加(load"xyp_lib") ■3·在command下，输入(load"xyp_lib") ■4·在菜单.mnl中增加(load"xyp_lib") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] [url]dispbbs.asp?boardID=3&ID=37554&page=1[/url] |; ;;;封闭域的形心、惯性矩、惯性积、旋转半径 (defun c:test ()   (cmdlasc0)   (setvar "osmode" 0)   (mkla "中心线" 1)   (while (setq pt (getpoint "\n选择区域内一点<退出> : "))     (command "-boundary" "a" "o" "r" "" pt "")     (setq s1 (entlast)    pt (vlax-safearray->list         (vlax-variant-value    (vla-get-centroid (vlax-ename->vla-object s1))         )       )     )     (XYP_SZX pt (* sc 100))     (command "MASSPROP" s1 "" "y" "c:/tmp.mpr")     (mkla "面域标注" 4)     (write-tmp)     (redraw)   )   (cmdla1) ) (defun write-tmp ()   (setq f (open "c:/tmp.mpr" "r"))   (read-line f)   (read-line f)   (read-line f)   (while (setq txt (read-line f))     (setq pt (list (car pt) (- (cadr pt) (* sc 800))))     (xyp-Text pt 1 txt)   )   (close f) )

hudson

说实话，不知道如何感谢您的，如果是同学我可以请他吃顿饭什么的，但是对于在这里求教，得到您的热心指点，真不知道用什么好的方式来答谢您的。只有在这里向你真诚地道声谢谢！程序我定会好好研读的。也希望将来我能够在诸位无私而真诚的牛人以及朋友们的帮助下，多学东西，拥有帮助别人的能量！

万分感激！

adonic

xyp1964 您好！我想请问您一下，能不能详细点告诉我(load"xyp_lib")怎么用吗？下面的程序是要写入lsp中吗？(load"xyp_lib")有快捷键吗？实在很抱歉，我知道这些问题都很初级，但是我是一个刚开始接触这个函数的新人。请您给解释一下吧。如果能有空闲的时间，从安装到运用，最好能给我一个动画效果演示一下。非常感谢您！