[LISP]怎样求实体的型心?

孤独客

怎样求实体的型心?

xyp1964

2. (load "xyp_lib.vlx")  ;版本 V.20060422
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
7. ■3·在command下，输入(load"xyp_lib.vlx")
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
12. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
13. [url]http://free.ys168.com/?xyp1964[/url]
14. |;
15. ;;;封闭域的形心、惯性矩、惯性积、旋转半径
16. (defun c:test285 ()
17.   (defun write-tmp ()
18.     (setq f (open "c:/tmp.mpr" "r"))
19.     (read-line f)
20.     (read-line f)
21.     (read-line f)
22.     (while (setq txt (read-line f))
23.       (setq pt (list (car pt) (- (cadr pt) (* sc 800))))
24.       (xyp-Text 1 pt txt)
25.     )
26.     (close f)
27.   )
28.   (cmdlasc0)
29.   (setvar "osmode" 0)
30.   (xyp-mkLaCo "中心线" 1)
31.   (while (setq pt (getpoint "\n选择区域内一点<退出> : "))
32.     (command "-boundary" "a" "o" "r" "" pt "")
33.     (setq s1 (entlast)
34.    pt (vlax-safearray->list
35.         (vlax-variant-value
36.    (vla-get-centroid (xyp-Ve2Vo s1))
37.         )
38.       )
39.     )
40.     (xyp-Cross pt (* sc 200) 1)
41.     (command "MASSPROP" s1 "" "y" "c:/tmp.mpr")
42.     (xyp-mkLaCo "面域标注" 4)
43.     (write-tmp)
44.     (redraw)
45.   )
46.   (cmdla1)
47. )
48. ;|
49. 相关vl函数：
50. AutoLISP 对象名 : (setq s1 (car(entsel)))
51. VL实体 : (setq Object (xyp-Ve2Vo s1))
52. 面积 : (vla-get-Area (xyp-Ve2Vo s1))
53. 周长 : (vla-get-Perimeter (xyp-Ve2Vo s1))
54. 边界框 : (xyp-get-MinMaxPoint s1 1)
55.          (xyp-get-MinMaxPoint s1 9)
56. 质心 : (vlax-safearray->list
57.         (vlax-variant-value
58.    (vla-get-Centroid (xyp-Ve2Vo s1))
59.         )
60.       )
61. 惯性矩 : (vlax-safearray->list
62.         (vlax-variant-value
63.    (vla-get-MomentOfInertia (xyp-Ve2Vo s1))
64.         )
65.       )
66. 惯性积 : (vla-get-ProductOfInertia (xyp-Ve2Vo s1))
67. 旋转半径 : (vlax-safearray->list
68.         (vlax-variant-value
69.    (vla-get-RadiiOfGyration (xyp-Ve2Vo s1))
70.         )
71.       )
72. 主力矩与质心的 X-Y 方向 : (vlax-safearray->list
73.         (vlax-variant-value
74.    (vla-get-PrincipalMoments (xyp-Ve2Vo s1))
75.         )
76.       )
77. |;

(load "xyp_lib.vlx")  ;版本 V.20060422 ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib.vlx") ■2·在每个程序内增加(load"xyp_lib.vlx") ■3·在command下，输入(load"xyp_lib.vlx") ■4·在菜单.mnl中增加(load"xyp_lib.vlx") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url] [url]http://free.ys168.com/?xyp1964[/url] |; ;;;封闭域的形心、惯性矩、惯性积、旋转半径 (defun c:test285 ()   (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 1 pt txt)     )     (close f)   )   (cmdlasc0)   (setvar "osmode" 0)   (xyp-mkLaCo "中心线" 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 (xyp-Ve2Vo s1))         )       )     )     (xyp-Cross pt (* sc 200) 1)     (command "MASSPROP" s1 "" "y" "c:/tmp.mpr")     (xyp-mkLaCo "面域标注" 4)     (write-tmp)     (redraw)   )   (cmdla1) ) ;| 相关vl函数： AutoLISP 对象名 : (setq s1 (car(entsel))) VL实体 : (setq Object (xyp-Ve2Vo s1)) 面积 : (vla-get-Area (xyp-Ve2Vo s1)) 周长 : (vla-get-Perimeter (xyp-Ve2Vo s1)) 边界框 : (xyp-get-MinMaxPoint s1 1)          (xyp-get-MinMaxPoint s1 9) 质心 : (vlax-safearray->list         (vlax-variant-value    (vla-get-Centroid (xyp-Ve2Vo s1))         )       ) 惯性矩 : (vlax-safearray->list         (vlax-variant-value    (vla-get-MomentOfInertia (xyp-Ve2Vo s1))         )       ) 惯性积 : (vla-get-ProductOfInertia (xyp-Ve2Vo s1)) 旋转半径 : (vlax-safearray->list         (vlax-variant-value    (vla-get-RadiiOfGyration (xyp-Ve2Vo s1))         )       ) 主力矩与质心的 X-Y 方向 : (vlax-safearray->list         (vlax-variant-value    (vla-get-PrincipalMoments (xyp-Ve2Vo s1))         )       ) |;