[下载]：一个求实体的形心、惯性矩、惯性积、旋转半径的lisp文件

aliu22

很实用文件有详细的介绍
      具体信息在d:\zzx.mpr里面

xyp1964

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

2. [FONT=courier new](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. |;
    
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. )[/FONT]

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

hudson

现在做毕设，急需参考这个程序，但是积分不够。故而不能下载，所以有一个不情之请，能否将这个程序发到这个信箱一下呢？tjuhudson@gmail.com，添麻烦了，无论如何，都得郑重地说声谢谢您！

xyp1964

效果：

yunlong3000

程序较短，比较有技巧，但还有一些有待改进的发方。最好考虑一下恢复系统变量原有值和完善一下首次选取非闭合曲线的情况。

yjh0123

楼主的东西很好，
多次下载不了
哪位朋友给我发邮件吧！
yjh0123@sina.com
谢谢!!!!!!!!!!

xyp1964

命令：xxgxj (形心惯性矩)

and2008

好程序哈，以后又省事了

银城木匠

斑竹辛苦了,我今天【通用函数及实用程序汇总】从头到尾看了几遍,
1,就是一直没看到签名栏在哪里.
2.下载的 xyp_lib.rar 也无法解压.
3.我也不知道那个"搜索路径"是哪条路径.
4.我不知道屏幕截图是怎样传上来的.
请赐教谢谢

swhlzl

程序不错，考虑一下5楼的建议吧，恢复一下系统初始设置，特别不要清空捕捉设置

xboywind

需要啊
下来看看

zhaozwf

下来看看，这个不错，以后省事多了

lmt112233

以前求实体的形心、惯性矩、惯性积、需要很多操作程序，現在有了這個小程式，就不用那麼煩惱

lewyee

不错的程序！

xiaojin2084

这个不错，以前下的没这个好，谢谢